VBA调用Paste/PasteSpecial及录制宏运行报1004错误求助

错误原因与解决方案 #

1. 录制宏生成代码的问题

你录制的代码报错核心有两个原因：

• 大量依赖Select、ActiveCell等运行时状态属性，代码运行结果完全取决于你执行宏时当前选中的单元格位置，稳定性极差
• 切换到All Portfolios工作表后执行的ActiveCell.Offset(2, -3)存在越界风险：如果当前激活单元格在A列或B列，往左偏移3列会得到不存在的负列号，直接触发1004错误。

修正后的无Select版本代码如下，完全不依赖选中状态：

Sub Macro1()
    Dim 源表 As Worksheet, 目标表 As Worksheet
    Set 源表 = Sheets("Aggressive")
    Set 目标表 = Sheets("All Portfolios")
    
    ' 直接指定复制范围和粘贴目标位置，可根据你的实际需求修改目标单元格
    源表.Range("A1:D15").Copy Destination:=目标表.Range("A3")
End Sub

你可以把目标表.Range("A3")替换为你实际需要粘贴的左上角单元格位置即可。

2. 自行编写的GenRep代码问题

这段代码报错的核心原因非常简单：全程没有执行Copy操作，调用ActiveSheet.Paste时剪贴板内没有任何可粘贴的内容，必然触发报错。

修正后的代码如下：

Sub GenRep()
    Dim x As Integer
    Dim 当前表 As Worksheet
    Dim 粘贴起始位 As Range
    
    For x = 1 To Worksheets.Count - 1
        Set 当前表 = Worksheets(x)
        ' 复制需要的区域
        当前表.Range("B6").CurrentRegion.Copy
        ' 定位粘贴位置
        Set 粘贴起始位 = 当前表.Range("B2000").End(xlUp).Offset(2, 0)
        ' 写入工作表名称
        粘贴起始位.Value = 当前表.Name & "portfolio"
        ' 粘贴到名称下方2行
        粘贴起始位.Offset(2, 0).PasteSpecial Paste:=xlPasteAll
        ' 清空剪贴板残留
        Application.CutCopyMode = False
    Next x
End Sub

Paste/PasteSpecial相关注意要点 #

• 调用粘贴方法前必须确认已经成功执行Copy操作，且中间没有其他操作清空系统剪贴板
• Offset偏移后不能出现行号<1、列号<1的情况，否则属于引用不存在的单元格直接报错
• 尽量不要用Select类操作，直接声明对象引用指定范围，代码稳定性会提升非常多
• 使用Range的PasteSpecial方法时，仅需要指定粘贴区域的左上角单元格即可，不需要选中和复制范围等大的区域

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