엑셀 시트 이름순으로 정렬 방법

엑셀을 사용하다보면 여러개의 시트가 있는 경우가 있습니다.

이러한 시트가 이름순으로 정렬되면 보다 더 편하게 볼 수 있는데요.

시트수가 5개 미만이라면 수작업으로 옮겨도 큰 불편함이 없지만, 시트수가 10개 이상이라면 수작업으로 이동하는 건 매우 불편합니다.

이런 경우 매크로를 통해 간단하게 정렬할 수 있는데요.

이번에는 엑셀 시트 정렬 이름순 방법에 대해 알려드리려고 합니다.

 

 

 

▲ 우선 시트를 정렬할 엑셀 파일 실행 후 [Alt + F11] 단축키를 사용하여 매크로 화면을 띄워줍니다.

 

 

 

 

 

▲ 좌측 상단에 있는 [모듈]을 클릭합니다.

 

 

 

▲ 모듈 창이 나타나면, 아래의 명령어를 복사 및 붙여넣어줍니다.

 

Option Explicit
Option Base 1
Sub dhsortSheet()
Dim i As Integer, j As Integer, temp As String
Dim arr() As String
i = Worksheets.Count
ReDim arr(i)
For i = 1 To UBound(arr())
arr(i) = CStr(Worksheets(i).Name)
Next i
For i = UBound(arr()) - 1 To 1 Step -1
For j = 1 To i Step 1
If arr(j) > arr(j + 1) Then
temp = arr(j)
arr(j) = arr(j + 1)
arr(j + 1) = temp
Worksheets(temp).Move after:=Worksheets(arr(j))
End If
Next j
Next i
End Sub

 

 

 

▲ 명령어 붙여넣기 후 [F5]키를 눌러 새로고침 후 창을 닫아주시면 시트가 이름순으로 정렬된 것을 확인하실 수 있습니다.