在VBA中使用sheet（）。Range（）。Value進行列引用

Question

我試圖避免復制和粘貼，以極大地加快Macro的速度（以前需要兩分鍾才能運行）。 我正在嘗試在Sheetx（A，B，J，L）中引用四個完整的列，並將它們顯示在sheety（A6，B6，C6，D6）中。

我嘗試了多種變體

Sheets（“ Sheety”）。Range（“ A6：A，B6：B，C6：C，D6：D”）。Value = Sheets（“ Sheetx”）。Range（“ A：A，B：B，J： J，L：L“）。值

另外，對於sheets（“ sheety”），我傾向於Active.Sheet或Sheets（B），因為我已經使用了工作表的索引號，即

對於B = 31 31是實際工作表的索引號。

我一直在尋找過去一個小時的答案。 有人可以幫忙嗎？

Answer 1

告訴我是否是這樣的：

Sub Testy3()
    Dim N As Long
    N = Sheets("Sheet1").Cells(Rows.Count, "A").End(xlUp).Row
    Sheets("Sheet1").Range("A1:A" & N).Copy Sheets("Sheet2").Range("A6")
End Sub

為您工作。

如果Sheet1中的所有列都具有相同的行數，則無需為每列重新計算N。