VBA无需激活工作表复制动态单元格遇1004报错的解决问询

报错原因 #

你代码里的wsSource.Range(Cells(1, 1), Cells(2, 2))会触发1004错误，核心问题是Cells(1,1)和Cells(2,2)默认指向当前活动工作表，而非你指定的wsSource。当Range方法引用的Cells不属于同一个工作表时，就会出现对象不匹配的报错。

正确写法 #

要实现不激活工作表的动态范围复制，必须给所有单元格对象明确指定所属工作表，有两种简洁可行的方式：

方式1：直接为Cells绑定目标工作表

wsSource.Range(wsSource.Cells(1, 1), wsSource.Cells(2, 2)).Copy

方式2：用With语句简化代码（推荐）

如果需要多次操作同一个工作表，With语句能让代码更简洁易读，同时确保所有对象都绑定到目标工作表：

With wsSource
    .Range(.Cells(1, 1), .Cells(2, 2)).Copy
End With

这里的.代表With块中的wsSource，保证Range和Cells属于同一个工作表对象。

完整修正代码 #

另外注意你原代码的变量声明问题：Dim wbSource, wbTarget As Workbook只有wbTarget是Workbook类型，wbSource会被默认声明为Variant，建议修正为明确的类型声明：

Sub test()
    Dim wbSource As Workbook, wbTarget As Workbook
    Dim wsSource As Worksheet, wsTarget As Worksheet
    
    Set wbSource = ThisWorkbook
    Set wsSource = wbSource.Worksheets(1)
    
    Set wbTarget = Workbooks.Add
    Set wsTarget = wbTarget.Worksheets(1)
    
    ' 无需激活工作表，直接复制动态范围
    With wsSource
        .Range(.Cells(1, 1), .Cells(2, 2)).Copy
    End With
    
    wsTarget.Cells(1, 1).PasteSpecial
End Sub

关键要点 #

• 所有Excel对象（Range、Cells、Rows等）都要明确绑定到对应的Workbook/Worksheet，不要依赖默认的活动对象
• 这种写法完全避免了工作表切换闪烁，也不会因为用户操作切换活动表导致宏运行出错
• 动态调整行/列时，直接把代码里的数字换成变量即可，比如.Range(.Cells(startRow, startCol), .Cells(endRow, endCol)).Copy

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