VBA Excel標記選擇，但復制下一列

Question

我想將范圍從B2復制到該列中最后一個填寫的單元格中。 但是，列中有中斷導致xlDown函數過早停止，因此我想將A2列中的A復制到最后一個填充的單元格中，因為A列中沒有任何中斷。

是否可以執行此操作，然后將選定的“范圍”偏移一列，從而獲得我想要的數據？

我在想這樣的事情：

Worksheets("Sheet1").Range("A2").End (xlDown)

但是，如何引起偏移，所以最終出現范圍B2：xlDown（但是xlDown是列A的上一個選擇的位置）？

謝謝，

Answer 1

用這個：

With Worksheets("Sheet1")

.Range("A2", .Range("A2").End(xlDown)).Offset(0, 1).Select

End With

您可以使用偏移功能來移動列。 同樣，將“ Select更改為“復制”或其他所需的內容。

Answer 2

不要從上往下走，從下往上走：

Worksheets("Sheet1").Range(Worksheets("Sheet1").Cells(2,2), Worksheets("Sheet1").Cells(Worksheets("Sheet1").Rows.Count,2).End(xlUp)).Copy

我們使用Worksheets("Sheet1").Range(定義矩形的2個角的范圍。我們的第一個角是單元格B2，又名第2行第2列2： Worksheets("Sheet1").Cells(2,2)

另一個角將是B列中最底部的單元格，其中包含數據。 於是，我們開始與整個塔的最底部 ，並移動，直到我們打數據：

Worksheets("Sheet1").Cells(Worksheets("Sheet1").Rows.Count,2).End(xlUp)

然后，我們復制生成的矩形范圍).Copy