Сортировка столбцов макросом Excel

Posted by obzor under VBA

Существует ли какой нибудь способ отсортировать столбцы на листе Ексель макросом по первой строке выделенных столбцов? Записанные действия макрорекордером после подвески его кода на кнопку не выполняются..

Aleksandr H.

Sub Макрос2()
    Dim wd As Worksheet
'
' Макрос2 Макрос
' Макрос записан 25.10.2016 (Admin)
'
For Each wd In Worksheets(Array("1", "2", "3"))
'
    wd.Columns("B:G").Sort Key1:=wd.Range("B1"), Order1:=xlAscending, Header:=xlGuess, _
        OrderCustom:=1, MatchCase:=False, Orientation:=xlLeftToRight, _
        DataOption1:=xlSortTextAsNumbers

Next
Range("A4").Select
End Sub

тема на форуме

Похожие статьи

• Ping из VBA
• Progress bar или индикация выполнения макроса в Microsoft Office Excel
• Запретить ввод пробелов в ячейки Excel
• Массовое переименование label на форме
• Вынести часть текста из многострочной ячейки по условию (Excel)
• Копирование данных в Excel «отталкиваясь» от последней заполненой строки
• Вставка данных в Excel после последней заполненной ячейки
• Как в Excel посчитать количество дней, прошедших с заданного числа
• Копирование данных «отталкиваясь» от последней заполненной строки Excel
• Как вытащить URL адрес из формулы с гиперссылкой в Excel