VBA宏Copy_Past中PasteSpecial xlPasteValues无法粘贴源工作簿值问题

你的代码出现异常、无法正常粘贴值，大概率是以下几个原因导致的，对应修复方案如下：

可能的问题1：目标/源工作簿未打开 #

代码中直接通过Workbooks("SomeFile1.xlsx")调用工作簿，但如果这两个文件没在当前Excel实例中打开，会直接触发运行时错误，后续复制粘贴操作根本无法执行。

修复方式：

• 确保SomeFile1.xlsx和SomeFile2.xlsx在运行代码前已经打开；
• 或者改用完整文件路径打开工作簿（避免路径错误），示例：

  Dim wbOne As Workbook, wbTwo As Workbook
  Set wbOne = Workbooks.Open("C:\你的文件路径\SomeFile1.xlsx")
  Set wsOne = wbOne.Worksheets("Sheet1")
  Set wbTwo = Workbooks.Open("C:\你的文件路径\SomeFile2.xlsx")
  Set wsTwo = wbTwo.Worksheets("Sheet1")
  

可能的问题2：最后一行计算导致无效复制范围 #

如果源工作表wsOne的A列只有表头（A1有值，A2及以下为空），lCopyLastRow = wsOne.Cells(wsOne.Rows.Count, "A").End(xlUp).Row会返回1，此时wsOne.Range("A2:A" & lCopyLastRow)会变成A2:A1，这是一个无效的单元格范围，复制操作会失败。

修复方式：
添加判断，只有当最后一行大于等于2时才执行复制：

'Copy and paste
If lCopyLastRow >= 2 Then
    wsOne.Range("A2:A" & lCopyLastRow).Copy
    wsTwo.Range("A2").PasteSpecial Paste:=xlPasteValues
    Application.CutCopyMode = False '清空剪贴板，释放资源
End If

更高效的替代方案：直接赋值（避免剪贴板依赖） #

使用Copy/PasteSpecial依赖剪贴板，容易受其他操作干扰，直接赋值单元格值的方式更稳定高效：

Sub Copy_Paste_Values()
    Dim wsOne As Worksheet
    Dim wsTwo As Worksheet
    Dim lCopyLastRow As Long
    Dim pasteLastRow As Long
    
    '确保工作簿已打开，或改用Open方法打开
    Set wsOne = Workbooks("SomeFile1.xlsx").Worksheets("Sheet1")
    Set wsTwo = Workbooks("SomeFile2.xlsx").Worksheets("Sheet1")
    
    '获取源数据最后一行
    lCopyLastRow = wsOne.Cells(wsOne.Rows.Count, "A").End(xlUp).Row
    
    '仅当有数据时执行赋值
    If lCopyLastRow >= 2 Then
        '计算目标粘贴区域的范围
        pasteLastRow = 2 + (lCopyLastRow - 2)
        wsTwo.Range("A2:A" & pasteLastRow).Value = wsOne.Range("A2:A" & lCopyLastRow).Value
    End If
End Sub

额外注意点 #

• 代码中'Copy and past拼写错误，应为'Copy and paste，虽然不影响运行，但建议修正以保持代码规范；
• 运行代码前确认两个工作簿的工作表名称确实是Sheet1，避免因工作表名称不匹配报错。

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