分配并重新调用范围变量以对Excel表进行排序

Question

我在两个方向上都有一个连续的表，该表可以根据情况在两个方向上扩展和收缩。 左上角的单元格在B2，因此右下角的单元格始终在变化 我想导航到单元格B2，执行“结束向下”和“结束右移”以查找并选择表的整个范围。 我想将此表范围写入一个变量，以便以后可以调用。我们将范围称为“ SortData” 完成此操作后，我想使用此“ SortData”变量和2个不同的列作为关键字段对表进行排序。

Sub Sort_Test()

Dim SortRange As Range

SortRange = Range("B2").End(xlToRight).End(xlToRight)

'Write range to variable called SortRange
Set SortRange = Selection

Range(SortRange).Sort key1:=Range("D4"), order1:=xlAscending, Header:=xlNo

End Sub