이 자습서에서는 VBA 코드와 통합 문서 관리자 도구를 사용하여 Excel 워크시트를 사전순으로 빠르게 정렬하는 방법을 보여줍니다.

Microsoft Excel은 여러 가지 빠르고 쉬운 정렬 방법을 제공합니다. 열 또는 행을 사전순으로 정렬합니다. 그러나 Excel에서 워크시트를 재정렬하는 유일한 방법은 시트 탭 표시줄에서 원하는 위치로 드래그하는 것입니다. 매우 큰 통합 문서에서 탭을 알파벳순으로 정렬하는 경우 이는 길고 잘못된 방법일 수 있습니다. 시간을 절약할 수 있는 대안을 찾고 계십니까? VBA 코드 또는 타사 도구의 두 가지만 존재합니다.

VBA를 사용하여 Excel에서 탭을 알파벳순으로 정렬하는 방법

아래에는 Excel을 정렬하는 세 가지 VBA 코드 예제가 있습니다. 사용자의 선택에 따라 시트가 오름차순, 내림차순 및 어느 방향으로든.

VBA에 어느 정도 경험이 있음을 암시하여 워크시트에 매크로를 추가하는 기본 단계만 간략하게 설명합니다.

1. Excel 통합 문서에서 Alt + F11을 눌러 Visual Basic Editor를 엽니다.
2. 왼쪽 창에서 ThisWorkbook 을 마우스 오른쪽 버튼으로 클릭한 다음 삽입<을 클릭합니다. 2> > 모듈 .
3. 코드 창에 VBA 코드를 붙여넣습니다.
4. F5를 눌러 매크로를 실행합니다.

용 자세한 단계별 지침은 Excel에서 VBA 코드 삽입 및 실행 방법을 참조하십시오.

Tip. 추가 사용을 위해 매크로를 유지하려면 파일을 Excel 매크로 사용 통합 문서(.xlsm)로 저장해야 합니다.

또는 샘플 Alphabetize Excel Tabs 통합 문서를 다운로드하고 메시지가 표시되면 콘텐츠를 활성화한 다음 여기에서 원하는 매크로를 직접 실행할 수 있습니다. 통합 문서에는 다음 매크로가 포함되어 있습니다.

• TabsAscending - 시트를 A에서 Z까지 알파벳순으로 정렬합니다.
• TabsDescending - 시트를 Z에서 A로 역순.
• AlphabetizeTabs - 시트 탭을 오름차순 또는 내림차순으로 양방향으로 정렬합니다.

다운로드된 샘플 통합 문서를 Excel에서 탭을 알파벳순으로 정렬하려는 통합 문서를 열고 Alt + F8을 누른 다음 원하는 매크로를 선택하고 실행 을 클릭합니다.

A에서 Z까지 알파벳순으로 Excel 탭 정렬

이 작은 매크로는 현재 통합 문서의 시트를 영숫자 오름차순 으로 정렬합니다. 첫 번째 워크시트 이름은 숫자로 시작하고 그 다음 시트는 A부터 Z까지입니다.

Sub TabsAscending() For i = 1 Application.Sheets.Count로 j = 1로 Application.Sheets.Count로 - 1 If UCase$(Application.Sheets(j).Name) > UCase$(Application.Sheets(j + 1).Name) Then Sheets(j).Move after:=Sheets(j + 1) End If Next Next MsgBox "탭이 A에서 Z로 정렬되었습니다." End Sub

Z에서 A로 Excel 탭 정렬

시트를 내림차순 영숫자 순서 (Z에서 A로, 숫자 이름이 있는 시트)로 정렬하려면 다음을 사용하십시오. 다음 코드:

Sub TabsDescending() For i = 1 ToApplication.Sheets.Count For j = 1 To Application.Sheets.Count - 1 If UCase$(Application.Sheets(j).Name) < UCase$(Application.Sheets(j + 1).Name) Then Application.Sheets(j).Move after:=Application.Sheets(j + 1) End If Next Next MsgBox "탭이 Z에서 A로 정렬되었습니다. " End Sub

탭을 오름차순 또는 내림차순으로 알파벳순으로 정렬

이 매크로를 사용하면 사용자가 주어진 통합 문서에서 워크시트를 알파벳순으로 A에서 Z로 또는 역순으로 정렬하는 방법을 결정할 수 있습니다.

이후 Excel VBA의 표준 대화 상자(MsgBox)는 몇 가지 미리 정의된 버튼 중에서만 선택할 수 있으며 A에서 Z , Z에서 A<의 세 가지 사용자 정의 버튼이 있는 자체 양식(UserForm)을 만듭니다. 2> 및 취소 .

이를 위해 Visual Basic Editor를 열고 ThisWorkbook 을 마우스 오른쪽 버튼으로 클릭한 다음 삽입 ><을 클릭합니다. 1>유저폼 . 양식 이름을 SortOrderFrom 으로 지정하고 여기에 4개의 컨트롤(레이블 및 3개의 버튼)을 추가합니다.

다음으로 F7 키를 누릅니다(또는 양식을 두 번 클릭합니다. ) 코드 창을 열고 아래 코드를 붙여넣습니다. 코드는 버튼 클릭을 가로채고 각 버튼에 고유한 태그를 할당합니다.

Private Sub CommandButton1_Click() Me.Tag = 1 Me.Hide End Sub Private Sub CommandButton2_Click() Me.Tag = 2 Me.Hide End Sub Private Sub CommandButton3_Click () Me.Tag = 0 Me.Hide End Sub

사용자가 양식에서 A to Z 또는 Z to A 버튼을 클릭하는지 여부에 따라 탭을 정렬합니다.오름차순 알파벳순(기본값으로 선택됨) 또는 내림차순 알파벳순; 또는 양식을 닫고 취소 의 경우 아무것도 하지 마십시오. Insert > Module .

Sub AlphabetizeTabs() Dim SortOrder As Integer SortOrder = showUserForm If SortOrder를 통해 일반적인 방법으로 삽입하는 다음 VBA 코드로 수행됩니다. = 0 그런 다음 종료 Sub For x = 1 To Application.Sheets.Count For y = 1 To Application.Sheets.Count - 1 If SortOrder = 1 Then If UCase$(Application.Sheets(y).Name) > UCase$(Application.Sheets(y + 1).Name) Then Sheets(y).Move after:=Sheets(y + 1) End If ElseIf SortOrder = 2 Then If UCase$(Application.Sheets(y).Name) < UCase$(Application.Sheets(y + 1).Name) Then Sheets(y).Move after:=Sheets(y + 1) End If End If End If Next End Sub Function showUserForm() As Integer showUserForm = 0 Load SortOrderForm SortOrderForm .Show (1) showUserForm = SortOrderForm.Tag Unload SortOrderForm End Function

아직 VBA가 익숙하지 않은 경우 샘플 워크북을 다운로드하여 탭을 알파벳순으로 정렬하고 원하는 파일과 함께 Excel에서 열 수 있습니다. 탭을 정렬하고 통합 문서에서 AlphabetizeTabs 매크로를 실행합니다.

선호하는 정렬 순서를 선택합니다(예: A에서 Z<2)>, 결과 관찰:

팁. VBA를 사용하면 Excel 워크시트의 복사본을 만들 수도 있습니다. 코드는 여기에서 확인할 수 있습니다. 방법VBA를 사용하여 Excel에서 시트를 복제합니다.

Ultimate Suite를 사용하여 Excel 탭을 알파벳순으로 정렬하는 방법

Ultimate Suite for Excel 사용자는 VBA를 만지작거리지 않아도 됩니다. -원하는 기능의 통합 문서 관리자:

이 도구를 Excel 리본에 추가하면 한 번의 버튼 클릭으로 탭의 알파벳순 정렬이 정확하게 수행됩니다!

이 기능과 70개 이상의 Excel용 전문 도구를 살펴보고 싶다면 여기에서 Ultimate Suite 평가판을 다운로드할 수 있습니다.

감사합니다. 읽어 주셔서 감사합니다. 다음 주 블로그에서 뵙겠습니다!