德语版Excel VBA页脚设置重复执行失效显示异常问题咨询

• 占位符本地化不兼容：你代码中使用的&S（页码）、&A（工作表名）是英文版Excel的页脚短占位符，德语版Excel的内置占位符为本地化标识，直接使用英文占位符会触发解析逻辑异常，多次运行后残留的未识别占位符片段会被错误拼接至其他页脚区域，也就是你观察到的中间页脚自动出现内容、带删除线的异常表现。
• PrintCommunication配置错误：你在修改PageSetup前关闭了PrintCommunication开关，该开关关闭时Excel不会将页脚修改实时同步到打印缓存，多次运行后缓存残留内容和实际赋值错位，因此即使代码给CenterFooter赋空值也无法清理缓存残留，仅手动修改页脚时触发的强制缓存刷新才能恢复正常。
• 多余的工作表激活操作：两次Activate切换工作表会触发隐式的打印缓存同步，进一步加重内容错位问题。

直接替换为以下代码即可：

Sub updateFootnote_Click()
    Application.ScreenUpdating = False
    ' 先清理页脚缓存，确保无残留
    With Table2.PageSetup
        .LeftFooter = vbNullString
        .CenterFooter = vbNullString
        .RightFooter = vbNullString
    End With
    DoEvents ' 强制完成缓存清理
    ' 赋值新页脚，使用德语版对应占位符
    With Table2.PageSetup
        .LeftFooter = "Cell Value: " & Table1.Cells(15, 4).Value
        .CenterFooter = vbNullString
        ' 德语版页码占位符为&[Seite]，工作表名占位符为&[Register]
        .RightFooter = "Test" & Chr(10) & "Seite &[Seite] von &[Register]"
    End With
    Application.ScreenUpdating = True
End Sub

如果需要适配多语言版本的Excel，可以调用VBA的International属性获取对应本地化占位符，避免不同语言版本的适配问题。

内容的提问来源于stack exchange，提问作者doej1367