如何用VBA循环从多工作表提取数据并按指定列粘贴？

你的代码主要有三个核心问题：

• 未明确指定「master」作为目标工作表，依赖ActiveSheet会导致粘贴位置混乱
• 每次粘贴都固定到C4:C12，没有按需求依次切换到下一列
• 循环未排除「master」表本身，可能导致误操作

以下是修正后的代码，完全符合你的需求：

Sub WeekpayLoop()
    Dim ws As Worksheet
    Dim targetCol As Integer
    Dim masterWs As Worksheet
    
    ' 绑定目标工作表，避免ActiveSheet的不确定性
    Set masterWs = ThisWorkbook.Worksheets("master")
    ' 初始目标列为C列（Excel中C列对应数字3）
    targetCol = 3
    
    For Each ws In ThisWorkbook.Worksheets
        ' 跳过master表和Praticeruns表
        If ws.Name <> "master" And ws.Name <> "Praticeruns" Then
            ' 直接复制到目标区域，无需单独调用Paste
            ws.Range("E8:E16").Copy Destination:=masterWs.Cells(4, targetCol).Resize(9, 1)
            ' 切换到下一列，准备下一次粘贴
            targetCol = targetCol + 1
        End If
    Next ws
End Sub

关键细节说明 #

• 固定目标工作表：用Set masterWs = ...明确指定「master」表，彻底避免当前激活表变化导致的错误
• 动态目标列：targetCol变量从3（C列）开始，每处理完一个工作表就+1，自动实现C→D→E…的依次粘贴
• 高效复制方式：直接使用Copy Destination:=语法，比先复制再粘贴更高效，也不会占用剪贴板
• 范围匹配：Resize(9,1)确保粘贴区域和源区域E8:E16的行数一致（共9行），避免格式错位

如果你之前的旧代码把所有数据都放到A列，大概率是因为没有指定目标列，VBA默认从A列起始位置粘贴，修正后就会按列依次排列。

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