Excel VBA跨工作表粘贴值触发应用程序定义或对象定义错误

错误根源 #

你遇到的报错是因为Cells对象未显式绑定工作表时，默认指向当前处于激活状态的Economic Assumptions表，你把另一个工作表的单元格对象传入Economic Simulations表的Range方法，范围归属不匹配就会触发该错误。

修复后代码 #

Sub Macro1()
    ' 声明工作表对象，避免反复调用和激活问题
    Dim wsAssump As Worksheet, wsSim As Worksheet
    Set wsAssump = ThisWorkbook.Sheets("Economic Assumptions")
    Set wsSim = ThisWorkbook.Sheets("Economic Simulations")
    
    Dim i As Long
    For i = 1 To 1000
        ' 生成随机数
        wsAssump.Range("B17:BL17") = WorksheetFunction.RandArray(1, 63)
        wsAssump.Range("B20:BL20") = WorksheetFunction.RandArray(1, 63)
        wsAssump.Range("B23:BL23") = WorksheetFunction.RandArray(1, 63)
        wsAssump.Range("B26:BL26") = WorksheetFunction.RandArray(1, 63)
        
        ' 直接赋值写法，效率更高无剪贴板操作
        wsSim.Range("B3").Offset(i - 1, 0).Resize(1, 63).Value = wsAssump.Range("B14:BL14").Value
    Next i
End Sub

代码说明 #

• 提前声明工作表对象，不需要手动激活工作表，从根源避免跨表操作的范围归属错误
• 用Offset方法实现粘贴位置逐行下移，不需要手动计算行号列号，写法更简洁不易出错
• 直接赋值的写法比复制粘贴效率更高，1000次循环的运行速度会明显更快

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