Здравствуйте! нужен макрос который сортирует данные из таблицы по столбцам по убыванию, каждого столбца независимо от других столбцов, нашел макрос который сортирует строки, но не получается его переделать под столбцы, может кто поможет в данном вопросе
| Код |
|---|
Sub ert() Dim r As Range Application.ScreenUpdating = 0 With [a1].CurrentRegion For Each r In .Rows r.Sort Key1:=r.Cells(1), Order1:=xlAscending, Orientation:=xlLeftToRight Next End With Application.ScreenUpdating = 1 End Sub |
