макрос сортировать по выбранному столбцу

Question

Я очень новичок в макросах, поэтому мне нужна помощь в этом. Я хочу отсортировать лист Excel по выбранному столбцу. Например, если у меня есть три колонок «column1, COLUMN2 и колонка3», я хочу, чтобы иметь возможность выбрать один из трех столбцов, чтобы отсортировать весь лист

Answer 1

Вот простой пример для нисходящего рода с Заголовок ячейка:

Sub SortsRUs() 
    Set r = Application.InputBox("Click on a cell in the sort column", Type:=8).EntireColumn(1) 
    ActiveSheet.UsedRange.Sort Key1:=r, Order1:=xlDescending, Header:=xlNo, _ 
      OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _ 
      DataOption1:=xlSortNormal 
End Sub