У меня есть смежная таблица в обоих направлениях, которая расширяется и сжимается в обоих направлениях в зависимости от обстоятельств.
Верхняя левая угловая ячейка находится на 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