Excel VBA循环复制粘贴异常：仅复制当前激活工作表内容

问题根源 #

你的代码核心问题是所有Range和Select操作都没有明确指定所属的工作表，导致循环时始终使用当前激活的工作表，而非Current变量指向的目标工作表。同时过度依赖Select和Selection不仅容易出错，还会拖慢代码运行效率。

你之前尝试的Current.Range("A2", Range("k1048576").End(xlUp))报错，是因为第二个Range没有绑定到Current，仍然默认指向激活表；Sheets(Current)错误是因为Current本身就是Worksheet对象，不需要再用Sheets()包裹。

修正后的代码 #

Sub Copy_Paste()
'
' Copy_Paste Macro
' Keyboard Shortcut: Ctrl+w
'
    Dim Current As Worksheet
    Dim destSheet As Worksheet
    Dim sourceRange As Range
    Dim destLastRow As Long
    
    ' 提前指定目标工作表，避免重复查找
    Set destSheet = ThisWorkbook.Worksheets("Sheet3")
    
    ' 遍历所有工作表，排除目标表避免重复复制
    For Each Current In ThisWorkbook.Worksheets
        If Current.Name <> destSheet.Name Then
            ' 明确绑定Current工作表的范围，从A2到K列最后一行
            Set sourceRange = Current.Range("A2", Current.Range("K" & Current.Rows.Count).End(xlUp))
            
            ' 如果源范围有数据才复制
            If Not sourceRange Is Nothing And sourceRange.Rows.Count > 0 Then
                ' 找到目标表最后一行的下一行
                destLastRow = destSheet.Range("A" & destSheet.Rows.Count).End(xlUp).Row + 1
                ' 直接复制粘贴，无需Select
                sourceRange.Copy destSheet.Range("A" & destLastRow)
            End If
        End If
    Next Current
End Sub

关键修改说明 #

• 绑定工作表对象：所有Range操作都明确加上Current.或destSheet.前缀，确保操作的是正确的工作表。
• 摒弃Select/Selection：直接通过对象引用完成复制粘贴，既消除激活表带来的干扰，又提升代码运行速度。
• 排除目标工作表：添加判断Current.Name <> destSheet.Name，防止把Sheet3的内容再复制回自身。
• 空范围判断：增加数据检查，避免复制空行导致无效操作。

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