Как да сортирате работни листове по азбучен / буквено-цифров ред в Excel?
Обикновено можете да сортирате или подредите разделите на работния лист в Excel, като плъзнете и пуснете разделите на листа в лентата с раздели на листа. Но за да направите това с множество работни листове, можете да обмислите следните трудни начини за бързо сортиране на работни листове по азбучен / буквено-цифров ред в голяма работна книга.
Сортирайте работни листове по азбучен / буквено-цифров ред с VBA код
Сортирайте работни листове по азбучен / буквено-цифров ред с Kutools за Excel
Сортирайте работни листове по азбучен / буквено-цифров ред с VBA код
Има макрос за сортиране на работни листове по алфа, публикуван в центъра за поддръжка на Microsoft. Можем да го приложим със следните стъпки:
1. Задръжте надолу ALT + F11 ключове и отваря Microsoft Visual Basic за приложения прозорец.
2. Кликнете Поставете > Модулии след това поставете следния макрос в Прозорец на модула.
VBA: Сортиране на листове по азбучен / буквено-цифров ред
Sub SortWorkBook()
'Updateby20140624
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 за Excel
Ако не сте запознати с макросите или предпочитате други начини, можете да опитате Kutools за Excel. Kutools за Excel's Сортиране на листове инструментът може лесно да сортира всички работни листове.
Преди да кандидатствате Kutools за Excel, Моля те първо го изтеглете и инсталирайте.
1. Щракнете Kutools плюс > Работен лист > Сортиране на листове. Вижте екранна снимка:
2. В Сортиране на листове диалоговия прозорец, изберете един тип сортиране, който ви е необходим в десния панел, като напр Алфа сортиране, Буквено-цифрово сортиране, след което щракнете върху OK бутон. Вижте екранна снимка:
След това всички работни листове се сортират въз основа на посочения тип сортиране. Вижте екранна снимка:
Kutools за Excel's Сортиране на листове инструментът може бързо да пренареди всички работни листове в активната работна книга. Поддържа няколко вида сортиране, включително Алфа сортиране, Буквено-цифрово сортиране, Сортиране по цвят намлява Обратни. Освен това можете също да местите работни листове нагоре / надолу и да нулирате сортирането.
Ако искате да имате безплатен пробен период (30 дни) на тази помощна програма, моля, щракнете, за да го изтеглитеи след това преминете към прилагане на операцията съгласно горните стъпки.
Демонстрация: Сортирайте всички работни листове по азбучен / буквено-цифров ред
Свързана статия:
Сортирайте разделите на работния лист по цвят
Най-добрите инструменти за продуктивност в офиса
Усъвършенствайте уменията си за Excel с Kutools за Excel и изпитайте ефективност, както никога досега. Kutools за Excel предлага над 300 разширени функции за повишаване на производителността и спестяване на време. Щракнете тук, за да получите функцията, от която се нуждаете най-много...
Раздел Office Внася интерфейс с раздели в Office и прави работата ви много по-лесна
- Разрешете редактиране и четене с раздели в Word, Excel, PowerPoint, Publisher, Access, Visio и Project.
- Отваряйте и създавайте множество документи в нови раздели на един и същ прозорец, а не в нови прозорци.
- Увеличава вашата производителност с 50% и намалява стотици кликвания на мишката за вас всеки ден!
