1-й способ:
'Указанный диапазон будет отсортирован в первую очередь по Key1, если значения совпадают, то по Key2.
'Сортирует только если лист активен.
lastrow = ThisWorkbook.Sheets("Лист1").Cells(Rows.Count, 1).End(xlUp).Row
ThisWorkbook.Sheets("Лист1").Activate
ThisWorkbook.Sheets("Лист1").Range("A1:D" & lastrow).Sort _
Key2:=Range("A1"), Order1:=xlAscending, _
Key1:=Range("D1"), Order2:=xlAscending, Header:=xlYes
|