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

您正試圖將整個數組放入一個單元格中。