Если вы используете рекордер макросов в Excel для сортировки по диапазону, вы получите следующий код.Замените «Selection» на «Sheet1.Range (« A1: D35 ») или любой другой диапазон сортировки, а затем измените Key1 на любой столбец, по которому вы хотите отсортировать. Вы также можете просто оставить« Selection »весли вы хотите вручную выбрать то, что хотите отсортировать по коду.
Sub SortSomeStuff()
Selection.Sort Key1:=Range("D1"), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal
End Sub