엑셀 시트 정렬 입니다
엑셀 문서 작업을 하게 되면 시트를 여러개 생성하면 작업을 진행하기도 합니다. 한두개의 시트라면 시트 정렬을 간단하게 할 수 있지만 시트가 많아 지면 하나씩 이동하기가 번거로운데요. 엑셀 개발자 모드은 Visual Basic를 이용하면 쉽게 시트 정렬을 할 수 있는데요
이번 시간은 엑셀 시트 정렬에 대해 알아보겠습니다.
엑셀 샘플을 준비했습니다. A시트 부터 E 시트 까지 있습니다. 순서는 아무렇게나 되어 있네요
시트를 A~E 까지 정렬을 해보겠습니다.
[Alt + F11] 키를 눌러줍니다.
Microsoft Visual Basic for Applications 가 실행됩니다.
아이콘 중 두번째 위치한 모듈삽입을 선택 후 메뉴가 나오면 모듈을 선택합니다.
새로운 폼이 나오면 아래 내용을 붙여넣기 합니다.
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키를 눌러주세요
이제 엑셀을 보시면 시트자 A~ E까지 오름차순으로 정렬된 것을 확인할 수 있습니다.
지금 까지 엑셀 시트 정렬을 알아보았습니다.
