[엑셀 VBA] 정렬(Sort)하기

외부에서 가져온 데이터를 날짜/시각이나 번호에 따라서 순서대로 정렬해야 할 때가 있다.

이때 VBA 에서는 Sort라는 개체를 이용하여 정렬 작업을 한다.

 

Sub Sort1()
	With ThisWorkbook.Sheets(1).Sort
    	.SortFields.Clear
        	.SortFields.Add Key:=Range("A2:" & ThisWorkbook.Sheets(1).Range("A2").
            End(xlDown).Address), _
            SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
            .SetRange Range("A2:" & ThisWorkbook.Sheets(1).Range("C2").End(xlDown).Address)
            
            .Header = xlNo
            .MatchCase = False 
            .Orientation = xlTopToBottom
            .SortMethod = xlPinYin 
            .Apply 
     End With 
End Sub

 

1) With ThisWorkbook.Sheets(1).Sort 

정렬을 할 시트를 지정하고 이를 With문으로 선언합니다. With ~ End With문은 앞부분이 같은 여러 줄의 코드를 작성할 때 

반복하는 각 줄의 앞부분을 한 번씩만 기술하기 위해서 사용하는 구문입니다. 

즉, 다음과 같은 코드가 있다고 가정해 봅시다. 

 

Abc.code1

Abc.code2

 

앞부분이 Abc로 같은 코드를 여러 줄 작성할 때 With문을 이용하면 다음과 같이 간단하게 작성할 수 있습니다. 

 

With Abc 

    .code1

    .code2

End With 

 

2) .SortFields.Clear

SortFields는 정렬을 하기 전에 정렬에 필요한 설정 사항들을 저장하여 가지고 있는 개체입니다. 

이전에 설정된 정렬 사항들이 있다면 지워서 초기화합니다. 

 

3) .SortFields.Add

정렬에 대한 설정 정보를 가질 SortFields를 새로 추가합니다. 

 

4) Key:=Range("A2:" & ThisWorkbook.Sheets(1).Range("A2").End(xlDown).Address)

정렬의 기준이 되는 키(Key) 영역을 설정합니다. 데이터가 몇 건이 들어 있는지 알지 못할 때 

데이터 끝을 찾아내는 구문을 이용하여 마지막 행의 첫 셀 주소를 가져와 연결합니다. 

예문에서 위 구문은 결국 Key:=Range("A2:A6")이 됩니다. 

 

5) Order:=xlAscending

Order는 정렬 방향을 지정합니다. xlAscending은 오름차순으로 정렬하라는 의미입니다. 

오름차순은 키(Key) 필드가 1,2,3, ... 과 같이 값이 커지는 순서로 정렬하고, 반대로 xlDescending은 ... 3,2,1과 같이 역순으로 정렬함을 의미합니다. 

 

6) SetRange Range("A2:" & ThisWorkbook.Sheets(1).Range("C2").End(xlDown).Address)

SetRange는 정렬을 할 전체 영역을 설정합니다. 데이터 끝을 알아내기 위한 구문을 이용하여 오른쪽 가장 아랫부분의 셀 주소를 구하고 이를 문자열 연산으로 연결하여 Range를 설정합니다. 

예제에서 위 구문은 결국 .SetRange Range("A2:C6")가 됩니다. 

여기서 주의할 점은 데이터 끝을 알아내는 End() 문을 사용할 때 그 중간에 빈 공백의 셀이 없어야 한다는 점입니다. 

이럴 때는 빈 공백이 없는 키(Key) 열을 이용하여 End(xlDown)으로 행 수를 구한 다음, .Offset(0,2).Address와 같은 식으로 구하는 것이 더 안전합니다. 키(Key)로 사용되는 열은 일반적으로 공백이 없습니다. 

아래는 키열에 End()문을 이용하여 데이터 끝을 구하는 동일하지만 다른 코드입니다. 

 

ThisWorkbook.Sheets(1).Range("A2").End(xlDown).Offset(0,2).Address)

 

7) .Header = xlNo 

정렬의 전체 영역에서 첫 줄이 항목 이름을 포함한 헤더(Header)인지를 설정하는 부분입니다. 

예제에서는 첫 번째 행이 헤더(Header)가 됩니다. 

정렬한 전체 영역에서 이미 이를 제외하고 두 번째 행부터 설정하였으므로 헤더가 없다고 (xlNo) 설정합니다.

 

8) .MatchCase = False 

MatchCase를 True로 설정하면 대/소문자가 구분되어 정렬되고 False로 설정하면 대/소문자에 상관없이 정렬됩니다. 

 

9) .Orientation = xlTopToBottom

정렬의 방향입니다. 위에서 아래의 순서로 정렬합니다. 

 

10) .Apply 

설정을 다 했다면 Apply 구문으로 정렬을 시행합니다. 

키(Key) 영역과 전체 정렬 영역을 지정하고 정렬 방식을 지정하면 일반적인 데이터를 정렬하는 것에 큰 문제가 없습니다. 

나머지 항목들은 부가적인 항목들로써 일반적으로 같은 값이나 기본을 그냥 사용하면 됩니다.