循环过程中需依次引用下一个工作表的VBA代码问题

你的问题根源在于代码错误激活了初始工作表sourceSheet，导致每次粘贴都回到起始表，而非当前循环处理的工作表。另外，大量使用Select和Activate是VBA的不良习惯，既容易引发切换错误，也会降低代码效率。

修改后的代码 #

Sub AddNewMonthToJPR()
    Dim masterSheet As Worksheet
    Dim ws As Worksheet
    
    ' 提前获取MasterSheet对象，避免重复查找
    Set masterSheet = ThisWorkbook.Worksheets("MasterSheet")
    
    ' 遍历所有工作表
    For Each ws In ThisWorkbook.Worksheets
        ' 跳过不需要处理的工作表
        Select Case ws.Name
            Case "XSummary", "Summary", "Legend", "DATA", "XMastersheet", "MasterSheet"
                ' 跳过这些表，继续下一个循环
            Case Else
                ' 在当前工作表一次性插入5列到C列位置
                ws.Columns("C:C").Resize(ColumnSize:=5).Insert
                
                ' 清除C:G列的内容
                ws.Columns("C:G").Clear
                
                ' 直接从MasterSheet复制C:G列到当前工作表的C1起始位置
                masterSheet.Columns("C:G").Copy Destination:=ws.Range("C1")
        End Select
    Next ws
End Sub

关键改动说明 #

• 移除激活操作：全程通过工作表对象ws直接操作，不再依赖Activate和Select，彻底避免工作表切换错误。
• 优化对象查找：提前获取MasterSheet对象，避免循环内重复查找，提升代码运行效率。
• 简化插入列逻辑：用Resize(ColumnSize:=5).Insert一次性插入5列，替代重复5次的EntireColumn.Insert，代码更简洁。
• 一步式复制粘贴：使用Copy Destination:=语法直接完成复制粘贴，无需先复制再切换工作表粘贴。
• 简化条件判断：用Select Case替代冗长的And串联条件，代码可读性更强。

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