Поиск  Пользователи  Правила  Войти
Форумы "Планета Excel" » Вопросы по Microsoft Excel
Страницы: 1
RSS
Сортировка ФИО с использованием VBA
 
#1
16.10.2017 23:54:27
Коллеги, добрый вечер.

Возник следующий вопрос. Есть острая необходимость отсортировать список ФИО используя макрос.

Суть достаточно простая: есть n ФИО в столбце, количество которых может менять и нужно используя макрос отсортировать их в этом же столбце по возрастанию (в идеале), либо отсортировать и вставить их в соседний столбец (если первый вариант невозможен).

Файл в приложении.  
 
 
 
#2
16.10.2017 23:55:34
А макрорекордер не помогает?
 
 
 
#3
17.10.2017 01:31:55
AndyFit, Запись макрорекордера с минимальными правками.
Код
Sub Макрос4()
    ActiveSheet.Sort.SortFields.Clear
    ActiveSheet.Sort.SortFields.Add Key:=Range("A1"), _
        SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:= _
        xlSortTextAsNumbers
    With ActiveSheet.Sort
        .SetRange [A1].CurrentRegion
        .Header = xlYes
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
End Sub
 
 
 
#4
17.10.2017 15:57:25
Цитата
отсортировать список ФИО используя макрос.
Код
Sub iSort()
 Range("A1:A" & Cells(Rows.Count, "A").End(xlUp).Row).Sort Key1:=Range("A1"), Header:=xlYes
End Sub
 
 
 
#5
18.10.2017 00:06:35
Kuzmich, спасибо Вам огромное!
 
 
 
#6
18.10.2017 10:02:26
AndyFit, здравствуйте. А вариант от Александра П. вам не подошёл?
Код
Sub СортировкаФИО()
    With ActiveSheet.Sort
        .SortFields.Clear
        .SortFields.Add Key:=Range("A1"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortTextAsNumbers
        .SetRange [A1].CurrentRegion
        .Header = xlYes
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
End Sub
Изменено: Jack Famous - 18.10.2017 10:02:40
Во всех делах очень полезно периодически ставить знак вопроса к тому, что вы с давних пор считали не требующим доказательств (Бертран Рассел) ►Благодарности сюда◄
 
 
 
Страницы: 1
Наверх