Excel VBA：复制/粘贴范围

Question

我正在编写一个宏，它可以打开许多不同的工作簿，从每个工作簿复制数据，然后编译成一个“主”工作簿。在下面的代码示例中，wb2 是我从中复制的工作簿之一，而 wb1 是主工作簿。

lrow3A 是源工作簿中的最后一行数据。 Lrow3 是主工作簿中的最后一行数据。

lrow3A = wb2.Sheets("DCF3").Cells(1048576, 2).End(xlUp).Row
wb2.Sheets("DCF3").Range(Cells(6, 1), Cells(lrow3A, 16)).Copy _
    Destination:=wb2.Worksheets("DCF3").Cells(lrow3 + 1, 2)

我在复制行收到“下标超出范围”错误。

Answer 1

我认为你应该编码：

With wb2.Sheets("DCF3") 'reference "source" worksheet
    lrow3A = .Cells(.Rows.Count, 2).End(xlUp).Row ' get referenced sheet column "B" last not empty cell row index 
    .Range("A6:P" & lrow3A).Copy _
    Destination:=wb1.Worksheets("DCF3").Cells(lrow3 + 1, 2) 'copy referenced sheet range in columns A:P from row 6 to row 'lrow3A' and paste it to "master" workbook sheet "DCF3" starting from its column B cell at row 'lrow3'+1
End With