Excel VBA遍历全工作簿工作表批量更新内容失效如何解决

原代码循环逻辑失效是三个基础写法问题导致的：

• 版本判断逻辑If Range("D38") = 2 Then Call Version2写在了所有Sub过程的外部，属于模块级游离代码，VBA不会自动执行这段逻辑，自然无法触发Version2过程的完整遍历
• 所有未指定父对象的Range、Columns调用默认指向代码触发时的活动工作表，开头写的J5赋值、列宽调整逻辑没有绑定到Frontsheet，一旦触发代码时活动表不是Frontsheet就会报错中断，循环根本不会执行
• 原循环逻辑只绑定了J6的规划人员字段，漏了J5的日期字段，就算跑通也达不到完整信息展示的要求，且没有做版本回退清除逻辑，切回版本1时残留信息不会自动消失。

将原有零散代码全部删除，把以下代码粘贴到VBA编辑器的标准模块中：

Sub SyncVersionInfo()
    Dim ws As Worksheet
    Dim frontSheet As Worksheet
    
    ' 固定绑定Frontsheet工作表，避免活动表切换导致的引用错误
    Set frontSheet = ThisWorkbook.Worksheets("Frontsheet")
    
    ' 版本1状态：清除所有表右下角的残留版本信息
    If frontSheet.Range("D38").Value <> 2 Then
        For Each ws In ThisWorkbook.Worksheets
            ws.Cells(14, 47).ClearContents
        Next
        Exit Sub
    End If
    
    ' 版本2状态：初始化Frontsheet输入区格式与默认值
    With frontSheet
        .Range("J5").Value = Date
        .Columns("J").ColumnWidth = 15
        .Columns("J:M").HorizontalAlignment = xlCenter
    End With
    
    ' 遍历全工作簿工作表同步信息，包含隐藏工作表
    For Each ws In ThisWorkbook.Worksheets
        ' 跳过Frontsheet本身避免重复引用
        If ws.Name <> frontSheet.Name Then
            ' 固定值写法：信息写入后不会随Frontsheet内容自动更新
            ws.Cells(14, 47).Value = "版本日期：" & frontSheet.Range("J5").Text & "  Planner：" & frontSheet.Range("J6").Text
            ' 公式联动写法（需要联动就注释掉上一行，放开下面这行）：Frontsheet内容修改后所有表信息自动同步
            ' ws.Cells(14, 47).Formula = "=""版本日期：""&Frontsheet!J5&""  Planner：""&Frontsheet!J6"
        End If
    Next
End Sub

• 如需实现版本号修改后自动同步，可在Frontsheet的工作表代码页添加如下事件代码，不需要手动运行宏：

Private Sub Worksheet_Change(ByVal Target As Range)
    If Not Intersect(Target, Me.Range("D38")) Is Nothing Then
        Call SyncVersionInfo
    End If
End Sub

• 可在循环逻辑内追加单元格合并、边框、底色、字体格式的设置代码，匹配你需要的右下角信息框展示样式。

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