excel - VBA Excel 按特定列排序范围

Question

我有一个可以包含任意行数的表:

正如我所说，它可以包含 1 或 Infini 行。

我想按 B 列中的日期单元格对范围 A3:D∞ 进行排序。
我该怎么做？

问题是我不知道如何从 A3 中选择到最后一行。

我认为循环到最后一行不是正确的方法。

到目前为止，我已经得到了它看起来是正确的，但范围是硬编码的。
如何摆脱范围的硬编码？

Range("A3:D8").Sort key1:=Range("B3:B8"), _
order1:=xlAscending, Header:=xlNo

Answer 1

试试这个代码:

Dim lastrow As Long
lastrow = Cells(Rows.Count, 2).End(xlUp).Row
Range("A3:D" & lastrow).Sort key1:=Range("B3:B" & lastrow), _
   order1:=xlAscending, Header:=xlNo