当VBA动态数据不均衡时如何选择并复制到最后一个单元格

Question

input:

45311       
0003ML00030-1   0003ML00030-2   0003ML00030-3
0003ML00030-1   0003ML00030-1 

从上述输入中选择所有数据并复制。当我重复使用工作表时，数据范围可能会变化，这时标准公式无法正常工作。

当前我使用此VBA代码。

Sub Macro()
 Sheets("input").Select
Range("b1").Select
   Range(Selection, ActiveCell.SpecialCells(xlLastCell)).Select
   Selection.Copy
End Sub

[当我使用此代码时，选择Extreme last cell（row 1048570 x col 41）。

但是在这种情况下，最后一个单元格是（row3 x col3）像这样，如果数据范围不同，我需要动态选择

Answer 1

这里是代码：

Sub Macro()
Sheets("input").Activate
Range("b1").CurrentRegion.Copy

End Sub

通常，要检查最后一个单元格的行号，可以使用

Cells(Rows.Count, "B").End(xlUp).Row