VBA跨工作簿粘贴单元格数组至最后已填充行时粘贴失效如何解决

问题原因 #

你的代码存在两个核心错误导致粘贴后无内容：

• 粘贴参数配置错误：代码中PasteSpecial Paste:=xlPasteFormats代表仅粘贴单元格格式，不会粘贴单元格的数值内容，这是目标区域内容为空的直接原因
• 粘贴起始行计算错误：你计算的lastRow_PowerBI_Table是V列当前最后一个有内容的行号，直接从该行粘贴会覆盖原有数据，应该从该值+1的下一行空行开始粘贴

修正后的代码（保留原复制粘贴逻辑） #

Sub copyWB2()
Dim ws1 As Worksheet, ws2 As Worksheet
Dim lastRow_PowerBI_Table As Long
Dim lastRow_csv_file As Long

Set ws1 = Workbooks("stats.csv").Sheets("stats")
Set ws2 = Workbooks("Dig_File.xlsm").Sheets("PowerBI_Table")

lastRow_PowerBI_Table = ws2.Cells(ws2.Rows.Count, "V").End(xlUp).Row
lastRow_csv_file = ws1.Cells(ws1.Rows.Count, "A").End(xlUp).Row

If Not IsEmpty(ws1.Range("A2")) Then
    ' 复制源区域内容+格式
    ws1.Range("A1:G" & lastRow_csv_file).Copy
    ' 从V列第一个空行开始粘贴数值+格式
    ws2.Range("V" & lastRow_PowerBI_Table + 1).PasteSpecial Paste:=xlPasteAll ' 也可以拆成xlPasteValues+xlPasteFormats分两次粘贴
    Application.CutCopyMode = False ' 清空剪切板
    Workbooks("stats.csv").Close SaveChanges:=False
Else
    MsgBox ("Error...This Workbook is Empty")
    Workbooks("stats.csv").Close SaveChanges:=False
End If
End Sub

更优方案（直接赋值，不依赖剪切板，运行更快更稳定） #

如果不需要复制源格式仅需要复制数值，推荐使用直接区域赋值的方式，避免剪切板波动导致的粘贴失败问题：

Sub copyWB2_fast()
Dim ws1 As Worksheet, ws2 As Worksheet
Dim lastRow_PowerBI_Table As Long
Dim lastRow_csv_file As Long

Set ws1 = Workbooks("stats.csv").Sheets("stats")
Set ws2 = Workbooks("Dig_File.xlsm").Sheets("PowerBI_Table")

lastRow_PowerBI_Table = ws2.Cells(ws2.Rows.Count, "V").End(xlUp).Row
lastRow_csv_file = ws1.Cells(ws1.Rows.Count, "A").End(xlUp).Row

If Not IsEmpty(ws1.Range("A2")) Then
    ' 直接给目标区域赋值，和源区域尺寸保持一致
    ws2.Range("V" & lastRow_PowerBI_Table + 1).Resize(lastRow_csv_file, 7).Value = ws1.Range("A1:G" & lastRow_csv_file).Value
    Workbooks("stats.csv").Close SaveChanges:=False
Else
    MsgBox ("Error...This Workbook is Empty")
    Workbooks("stats.csv").Close SaveChanges:=False
End If
End Sub

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