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

下面是我的代码，它使用数组将数据从SW粘贴到DW。代码没有抛出任何错误，但数据也没有粘贴到DW。我试图做的是找到SW中的AG最后一行数据，然后将其分配给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

试一试

DW.Range（“A2”）。调整大小（ubound（arr，1），ubound（arr，2））。值=arr

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

试试看

DW.Range（“A2”）。调整大小（ubound（arr，1），ubound（arr，2））。值=arr

---

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

@SharmilaV关于数组和范围对于理解这个答案是如何工作的以及为什么工作非常有用。@Mods-所以让别人接受答案是不可能的？我认为这是该网站的中心平台之一。@SharmilaV关于数组和范围的内容对于理解这个答案是如何工作的以及为什么工作非常有用。@Mods-所以让别人接受答案是不可能的？我以为它是这个地方的一块中心木板。