메인 컨텐츠로 가기

Excel에서 알파벳 / 영숫자 순서로 워크 시트를 정렬하는 방법은 무엇입니까?

일반적으로 시트 탭 모음에 시트 탭을 끌어서 놓아 Excel에서 워크 시트 탭 순서를 정렬하거나 정렬 할 수 있습니다. 그러나 여러 워크 시트로이 작업을 수행하려면 큰 통합 문서에서 알파벳 / 영숫자 순서로 워크 시트를 빠르게 정렬하는 다음과 같은 까다로운 방법을 고려할 수 있습니다.

VBA 코드를 사용하여 알파벳 / 영숫자 순서로 워크 시트 정렬
Excel 용 Kutools를 사용하여 알파벳 / 영숫자 순서로 워크 시트 정렬


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 이 매크로를 실행하려면 키를 누르십시오. 다음 프롬프트 상자에서 가능, 모든 워크 시트가 알파벳 오름차순으로 정렬됩니다. 클릭 아니, 모든 워크 시트가 알파벳 내림차순으로 정렬됩니다.


Excel 용 Kutools를 사용하여 알파벳 / 영숫자 순서로 워크 시트 정렬

매크로에 익숙하지 않거나 다른 방법을 선호하는 경우 시도해 볼 수 있습니다. Excel 용 Kutools. Excel 용 Kutools's 시트 정렬 도구는 모든 워크 시트를 쉽게 정렬 할 수 있습니다.

신청하기 전에 Excel 용 Kutools, 제발 먼저 다운로드하여 설치하십시오..

1. 딸깍 하는 소리 쿠툴즈 플러스 > 워크 시트 > 시트 정렬. 스크린 샷보기 :

2. 에서 시트 정렬 대화 상자에서 다음과 같이 오른쪽 창에서 필요한 정렬 유형을 하나 선택합니다. 알파 정렬, 영숫자 정렬를 클릭 한 다음 OK 단추. 스크린 샷보기 :

그런 다음 모든 워크 시트가 지정된 정렬 유형에 따라 정렬됩니다. 스크린 샷보기 :

문서 정렬 시트 6

Excel 용 Kutools's 시트 정렬 도구는 활성 통합 문서의 모든 워크 시트를 빠르게 재정렬 할 수 있습니다. 다음을 포함한 여러 정렬 유형을 지원합니다. 알파 정렬, 영숫자 정렬, 색상 정렬개머리판. 또한 워크 시트를 위 / 아래로 이동하고 정렬을 재설정 할 수도 있습니다.

  이 유틸리티의 무료 평가판 (30 일)을 받으려면 그것을 다운로드하려면 클릭하십시오을 클릭 한 다음 위 단계에 따라 작업 적용으로 이동합니다.


데모 : 모든 워크 시트를 알파벳 / 영숫자 순서로 정렬


관련 기사 :

색상별로 워크 시트 탭 정렬

최고의 사무 생산성 도구

🤖 Kutools AI 보좌관: 다음을 기반으로 데이터 분석을 혁신합니다. 지능형 실행   |  코드 생성  |  사용자 정의 수식 만들기  |  데이터 분석 및 차트 생성  |  Kutools 기능 호출...
인기 기능: 중복 항목 찾기, 강조 표시 또는 식별   |  빈 행 삭제   |  데이터 손실 없이 열이나 셀 결합   |   수식없이 반올림 ...
슈퍼 조회: 다중 기준 VLookup    다중 값 VLookup  |   여러 시트에 걸친 VLookup   |   퍼지 조회 ....
고급 드롭다운 목록: 드롭다운 목록을 빠르게 생성   |  종속 드롭다운 목록   |  다중 선택 드롭 다운 목록 ....
열 관리자: 특정 개수의 열 추가  |  열 이동  |  Toggle 숨겨진 열의 가시성 상태  |  범위 및 열 비교 ...
특색 지어진 특징: 그리드 포커스   |  디자인보기   |   큰 수식 바    통합 문서 및 시트 관리자   |  리소스 라이브러리 (자동 텍스트)   |  날짜 선택기   |  워크 시트 결합   |  셀 암호화/해독    목록으로 이메일 보내기   |  슈퍼 필터   |   특수 필터 (굵게/기울임꼴/취소선 필터링...) ...
상위 15개 도구 세트12 본문 도구 (텍스트 추가, 문자 제거,...)   |   50+ 거래차트 유형 (Gantt 차트,...)   |   40+ 실용 방식 (생일을 기준으로 나이 계산,...)   |   19 삽입 도구 (QR 코드 삽입, 경로에서 그림 삽입,...)   |   12 매출 상승 도구 (숫자를 단어로, 환율,...)   |   7 병합 및 분할 도구 (고급 결합 행, 셀 분할,...)   |   ... 그리고 더

Excel용 Kutools로 Excel 기술을 강화하고 이전과는 전혀 다른 효율성을 경험해 보세요. Excel용 Kutools는 생산성을 높이고 시간을 절약하기 위해 300개 이상의 고급 기능을 제공합니다.  가장 필요한 기능을 얻으려면 여기를 클릭하십시오...

상품 설명


Office Tab은 Office에 탭 인터페이스를 제공하여 작업을 훨씬 쉽게 만듭니다.

  • Word, Excel, PowerPoint에서 탭 편집 및 읽기 사용, Publisher, Access, Visio 및 Project.
  • 새 창이 아닌 동일한 창의 새 탭에서 여러 문서를 열고 만듭니다.
  • 생산성을 50% 높이고 매일 수백 번의 마우스 클릭을 줄입니다!

Comments (81)
Rated 5 out of 5 · 2 ratings
This comment was minimized by the moderator on the site
Grazie, ha funzionato perfettamente e mi ha risparmiato un sacco di lavoro. Complimenti
Rated 5 out of 5
This comment was minimized by the moderator on the site
Bom dia a macro funcionou porém com uma falha, veja no exemplo:
Abas (ANEXO 1, ANEXO 10, ANEXO 100, ANEXO 2, ANEXO 20)
Em uma planilha com os anexos acima ele organiza exatamente como está acima
Ele respeita a ordem somente a cada 10

Alguém sabe como corrigir? Olhei no font da macro mas não encontrei o problema
This comment was minimized by the moderator on the site
Macro qui marche parfaitement, en 30s c'est fait. Merci beaucoup
Rated 5 out of 5
This comment was minimized by the moderator on the site
Does anyone know how I would negate text from this macro? for example if my sheets were named "cafe 1st floor" and "kitchen 2nd floor" but id like to get rid of "cafe" and "kitchen"
thank you!
This comment was minimized by the moderator on the site
not working if your sheet was number ex: 1, 2, 10 12,
after sort: 1, 10, 12, 2
This comment was minimized by the moderator on the site
Hi Imd,
Do you mean all your sheet names are numbers and want to sort them ascending or descending? You can try the below VBA.

Sub Test1()

Dim i As Integer, j As Integer

For i = 1 To Sheets.Count

For j = 1 To Sheets.Count - 1

If Val(Replace(UCase(Sheets(j).Name), "SHEET", "")) > Val(Replace(UCase(Sheets(j + 1).Name), "SHEET", "")) Then Sheets(j).Move After:=Sheets(j + 1)

Next j

Next i

End Sub
This comment was minimized by the moderator on the site
Thank you for the macro !!!
This comment was minimized by the moderator on the site
Thank you for your help, very much appreciated...
This comment was minimized by the moderator on the site
I don't know VBA at all but your instructions worked perfectly. Thank you so much!
This comment was minimized by the moderator on the site
Thank you :)
This comment was minimized by the moderator on the site
Very helpful :) Thank you!
There are no comments posted here yet
Load More
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations