VBA 用于将粘贴数据从一个工作簿复制到另一个工作簿的数组

Question

下面是我使用数组将数据从 SW 到 DW 的代码。代码没有抛出任何错误，但数据也没有粘贴到 DW。 我要做的是在 SW 中找到 AG-last 行数据，然后将其分配给 Arr 并尝试将其复制到 DW 中。 我的源工作簿在我的 C 驱动器中。

Sub Arr()
    Dim SW AS Workbook
    Dim DW As Worksheet
    Dim Arr as Variant

    Set DW = ThisWorkbook.Sheets("Sample")
    Set SW = Workbooks.Open ("C:\User\filename.xlsx")

    Lastrow = SW.Sheets("data").Cells(Rows.Count, "A").End(xlUP).Row

    Arr = SW.Sheets("data").Range("A3:AG" & Lastrow)
    DW.Range("A2").Value = Arr
End Sub

Answer 1

尝试

DW.Range("A2").resize(ubound(arr,1),ubound(arr,2)).Value = Arr

您正试图将整个数组放入一个单元格中。