如何在VBA中引用工作表列表？修改宏实现多表循环复制

修改思路 #

原宏依赖硬编码工作表名和冗余的Select操作，我们可以通过遍历工作簿所有工作表+排除指定表的方式实现动态处理，同时优化代码逻辑提升稳定性。

修改后的完整代码 #

Sub FormattingFinal()
    Dim sourceSheet As Worksheet
    Dim targetSheet As Worksheet
    Dim excludeSheets As Variant
    Dim isExcluded As Boolean
    Dim i As Integer
    
    ' 定义需要排除的工作表（替换为你实际要排除的两个表名）
    excludeSheets = Array("Template Format", "需要排除的第二个表名")
    
    ' 绑定固定的源工作表
    Set sourceSheet = ThisWorkbook.Sheets("Template Format")
    
    ' 遍历工作簿中所有工作表
    For Each targetSheet In ThisWorkbook.Sheets
        isExcluded = False
        
        ' 检查当前表是否在排除列表内
        For i = LBound(excludeSheets) To UBound(excludeSheets)
            If targetSheet.Name = excludeSheets(i) Then
                isExcluded = True
                Exit For
            End If
        Next i
        
        ' 对非排除表执行复制操作
        If Not isExcluded Then
            ' 直接复制源区域到目标位置，无需手动选择
            sourceSheet.Range("A6:G8").Copy Destination:=targetSheet.Range("A6")
        End If
    Next targetSheet
    
    ' 清除剪贴板状态
    Application.CutCopyMode = False
End Sub

关键说明 #

• 排除列表配置：修改excludeSheets数组内的字符串，填入你需要排除的两个工作表名称即可
• 去掉冗余操作：直接通过工作表对象和区域对象完成复制，比原宏的选择操作更稳定、高效
• 保留固定源表：维持Template Format作为硬编码的复制源，匹配你的需求

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