Как отсортировать листы в алфавитном / буквенно-цифровом порядке в Excel?

Сортировка листов в Excel в алфавитном или буквенно-цифровом порядке может значительно улучшить организацию и эффективность вашей книги, особенно при работе с большим количеством листов. В этом руководстве вы познакомитесь с несколькими способами достижения этой цели, рассчитанными на различные уровни комфорта пользователей при работе с Excel.

Сортировка листов в алфавитном / буквенно-цифровом порядке с кодом VBA

Сортировка листов в алфавитном / буквенно-цифровом порядке с помощью Kutools for Excel

Сортировка листов в алфавитном / буквенно-цифровом порядке с кодом VBA

В центре поддержки Майкрософт есть макрос для сортировки листов по альфа-каналу. Мы можем применить его, выполнив следующие шаги:

1.  Удерживая нажатой ALT + F11 ключи, и он открывает Microsoft Visual Basic для приложений окно.

2.  Нажмите Вставить > Модули, а затем вставьте следующий макрос в Окно модуля.

VBA: сортировка листов в алфавитном / буквенно-цифровом порядке

Sub SortWorkBook()
'Updateby Extendoffice
Dim xResult As VbMsgBoxResult
xTitleId = "KutoolsforExcel"
xResult = MsgBox("Sort Sheets in Ascending Order?" & Chr(10) & "Clicking No will sort in Descending Order", vbYesNoCancel + vbQuestion + vbDefaultButton1, xTitleId)
For i = 1 To Application.Sheets.Count
    For j = 1 To Application.Sheets.Count - 1
        If xResult = vbYes Then
            If UCase$(Application.Sheets(j).Name) > UCase$(Application.Sheets(j + 1).Name) Then
                Sheets(j).Move after:=Sheets(j + 1)
            End If
            ElseIf xResult = vbNo Then
                If UCase$(Application.Sheets(j).Name) < UCase$(Application.Sheets(j + 1).Name) Then
                    Application.Sheets(j).Move after:=Application.Sheets(j + 1)
            End If
        End If
    Next
Next
End Sub

3. нажмите F5 ключ для запуска этого макроса. В следующем окне подсказки щелкните Да, все листы будут отсортированы по возрастанию в алфавитном порядке; и нажмите Нет, все листы будут отсортированы по убыванию в алфавитном порядке.

Сортировка листов в алфавитном / буквенно-цифровом порядке с помощью Kutools for Excel

Откройте для себя лучшего помощника в Excel – Kutools for Excel's Сортировать листы инструмент! Независимо от того, сколько у вас рабочих листов, вы легко сможете их систематизировать. Он поддерживает различные типы сортировки, включая альфа-сортировку, буквенно-цифровую сортировку, цветовую сортировку и обратную сортировку. Кроме того, вы можете перемещать листы вверх и вниз по своему усмотрению и легко сбрасывать сортировку. Сделайте работу с Excel более эффективной и удобной!

1. Нажмите Кутулс Плюс > Рабочий лист > Сортировать листы. Смотрите скриншот:

2. В Сортировать листы В диалоговом окне выберите один тип сортировки, который вам нужен на правой панели, например Альфа-сортировка, Буквенно-цифровая сортировка, а затем нажмите OK кнопка. Смотрите скриншот:

Затем все листы сортируются на основе указанного типа сортировки. Смотрите скриншот:

В этой статье представлены два метода сортировки листов в алфавитном или буквенно-цифровом порядке: код VBA и Kutools для Excel. Выберите метод, который лучше всего соответствует вашим потребностям. Метод кода VBA подходит для тех, кто знаком со сценариями, и предлагает решение с широкими возможностями настройки. Между тем, Kutools for Excel предоставляет удобный инструмент сортировки листов, который быстро и эффективно упорядочивает все рабочие листы без необходимости написания кода. Если вы хотите узнать больше о советах и ​​приемах Excel, наш сайт предлагает тысячи обучающих программ.

Связанная статья:

Сортировка вкладок рабочего листа по цвету