Новости:

Новая редакция правил форума: 2.4. Если вопрос или ответ содержится во вложенном файле, все-равно кратко описывайте в сообщении вопрос или суть решения. Это необходимо, чтобы тему можно было найти через поиск.

Главное меню

Макрос сортировка строк по алфавиту

Автор AlexKK, 17.03.2014, 20:34

« назад - далее »

AlexKK

Здравствуйте. Сформировал клиентскую базу через формулу массива, отлично работала, пока не перешел границу за 1500 строк, происходит загрузка процессора минут на 20, понял что нужно переходить на макрос, но я его не знаю. Нашел приблизительно такую тему http://www.cyberforum.ru/vba/thread1077774.html  но у меня не получается. Не могли бы помочь. Пример: В Листе1 есть имена в произвольной форме, нужно в листе2  начиная с А14 эти имена выстроить по алфавиту.   

ShAM

Так, вроде, работает:
Sub Макрос1()
    With Worksheets("Лист2")
        Worksheets("Лист1").Range("A3:A" & Cells(Rows.Count, 1).End(xlUp).Row).Copy .[a14]
        With .Sort
            .Orientation = xlTopToBottom
            .Apply
        End With
    End With
End Sub

AlexKK

Не совсем правильно работает. Мне нужно чтобы выстраивалась по алфавиту, а так просто копирует.

Wasilic

А так?
Sub Сортировка()
    Range("A3:A" & Cells(Rows.Count, 1).End(xlUp).Row).Sort Key1:=Range("A3"), _
    Orientation:=xlTopToBottom
End Sub
Может и я на что сгожусь ... Если сгодился, можете меня по+благодарить+.

AlexKK

Огромное спасибо. Все работает

AlexKK

Еще вопросик,  при защите листа кнопка макрос не работает, что можно сделать. Спасибо.

cheshiki1

в коде прописать
снять защиту
выполнить код
поставить защиту
kak-zashhitit-list-ot-polzovatelya-no-ne-ot-makrosa/