VBA跨工作簿复制遇Run-time error 1004（多选区不可用）问题排查

我来帮你搞定这个1004错误，其实问题出在你写代码时的一个小细节上——用冒号:把Copy和PasteSpecial合并成一行语句，这会打乱VBA执行时的上下文逻辑，导致系统误判为“多重选择”操作。

修正后的代码 #

先给你能直接运行的修正版本：

Sub panacea()
 Dim wb1 As Workbook, wb2 As Workbook
 Dim ws1 As Worksheet, ws2 As Worksheet
 Set wb1 = Workbooks.Open("Q:\Radiology\Administration\Data\CT Distribution\Infinity List\salvage.xlsx")
 Set wb2 = Workbooks.Open("h:\Deputy\testing folder\Streamlined Infinity\test.xlsm")
 Set ws1 = wb1.Sheets("infinity list")
 Set ws2 = wb2.Sheets("infinity list")
 
 ' 把Copy和PasteSpecial拆分成两行，不要用冒号合并
 ws1.Range("C10:L12").Copy
 ws2.Range("C11:L13").PasteSpecial Paste:=xlPasteValues
 
 ' 清除剪贴板，避免后续操作受影响
 Application.CutCopyMode = False
 
 ' 明确关闭时的保存选项，避免弹窗干扰
 wb1.Close SaveChanges:=False
 wb2.Close SaveChanges:=True
End Sub

错误原因解释 #

当你用ws1.Range(...).Copy: ws2.Range(...).PasteSpecial这种写法时，VBA会尝试在同一个执行步骤里完成复制和粘贴。但复制操作后，系统需要短暂切换到目标工作簿/工作表的上下文，冒号合并语句会跳过这个必要的上下文切换，导致VBA误以为你在操作“多重选择”的区域，从而触发1004错误。

更高效的替代方案（推荐） #

其实不需要用到剪贴板，直接通过单元格值赋值的方式完成数据转移，这种方法更稳定、更快，还能避免所有和剪贴板相关的问题：

Sub panacea()
 Dim wb1 As Workbook, wb2 As Workbook
 Dim ws1 As Worksheet, ws2 As Worksheet
 Set wb1 = Workbooks.Open("Q:\Radiology\Administration\Data\CT Distribution\Infinity List\salvage.xlsx")
 Set wb2 = Workbooks.Open("h:\Deputy\testing folder\Streamlined Infinity\test.xlsm")
 Set ws1 = wb1.Sheets("infinity list")
 Set ws2 = wb2.Sheets("infinity list")
 
 ' 直接赋值，跳过剪贴板，彻底避免复制粘贴类错误
 ws2.Range("C11:L13").Value = ws1.Range("C10:L12").Value
 
 wb1.Close SaveChanges:=False
 wb2.Close SaveChanges:=True
End Sub

这个方法的优势：

• 不依赖剪贴板，不会被其他系统操作干扰
• 执行速度比复制粘贴快得多，尤其是处理大量数据时
• 避免了所有和复制粘贴上下文相关的错误

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