В файле-примере можно найти разные варианты сортировок диапазонов на листе. Ниже заготовки для кодов:
With Range("A1:G" & Cells(Rows.Count, 1).End(xlUp).Row) 'сортировка по строкам; метод Sort
.Sort Key1:=.Cells(1, 1), Order1:=xlAscending, _
Key2:=.Cells(1, 2), Order2:=xlAscending, _
Key3:=.Cells(1, 3), Order3:=xlAscending, Header:=xlYes, MatchCase:=False
End With
With Range("A1").CurrentRegion 'сортировка по столбцам; метод Sort
.Sort Key1:=.Cells(1), Order1:=xlAscending, Orientation:=xlLeftToRight
End With
|