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