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更改为Copy或您想要的其他任何内容。

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中最底部的单元格，其中包含数据。因此，我们从 entire 列的非常底部开始，然后将向上向上移动，直到我们点击数据：

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

然后，我们复制生成的矩形范围：).Copy