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

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

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

    시트수가 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]키를 눌러 새로고침 후 창을 닫아주시면 시트가 이름순으로 정렬된 것을 확인하실 수 있습니다.

     

     

    반응형

    댓글

    Designed by JB FACTORY