Excel VBA运行时错误1004：跨工作表复制粘贴值宏代码报错求助

嘿，刚接触VBA两周就能写复制粘贴的宏已经很厉害了！咱们来拆解一下你遇到的问题，一步步解决这个1004错误。

错误原因分析 #

你调试时定位的那行代码，问题大概率出在Range("A2").End(xlToRight)这个操作上：

• 如果Result工作表的A2单元格右侧没有任何数据，End(xlToRight)会直接跳到Excel工作表的最右列（XFD列），这时候再用Offset(,1)就会超出Excel的列数限制，直接触发1004错误。
• 另外，原代码里用了Select和Selection，这种依赖工作表激活状态的写法很不稳定，一旦工作表切换或者激活状态变化，就容易出问题。

修复方案 #

1. 修正空列定位逻辑 #

把找空列的代码改成从行2的最右侧往左找最后一个有数据的列，再偏移一列，这样即使A2右边没数据，也能正确定位到B2：

Sheets("Result").Cells(2, Columns.Count).End(xlToLeft).Offset(, 1)

2. 优化代码，去掉Select/Selection #

直接操作对象而不是依赖选中状态，代码会更稳定高效：

修改后的完整代码：

Sub CopyPaste()
    ' 定义变量，让代码更清晰易维护
    Dim sourceSheet As Worksheet
    Dim targetSheet As Worksheet
    Dim targetCell As Range
    
    ' 绑定工作表对象
    Set sourceSheet = ThisWorkbook.Sheets("Primary")
    Set targetSheet = ThisWorkbook.Sheets("Result")
    
    ' 定位目标单元格：行2的最后一个非空列右侧的单元格
    Set targetCell = targetSheet.Cells(2, targetSheet.Columns.Count).End(xlToLeft).Offset(, 1)
    
    ' 直接复制粘贴值，跳过剪贴板，更高效
    sourceSheet.Range("A1").Copy
    targetCell.PasteSpecial Paste:=xlPasteValues
    
    ' 清除剪贴板，避免残留
    Application.CutCopyMode = False
End Sub

3. 排查其他可能的诱因 #

如果修改后还是报错，可以检查这几点：

• 确认Primary和Result工作表名称完全匹配（包括大小写，Excel在部分环境下对工作表名称大小写敏感）
• 检查Result工作表是否被保护，如果是，需要先取消保护再粘贴
• 确认目标单元格所在的行/列没有被隐藏或者冻结导致无法访问

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