[VBA] 코드 모음4 - 정렬 관련

 

188 사용자지정목록 정렬

.sortfields.add key:=range("a2"), customorder:="lee,park,kim"

.apply

 

option compare binary 대소문자구분정렬

option compare text 구분없음

 

 

[정렬 기본적인 구문]

With rng

.Sort Key1:=rng.Cells(1, 1), Order1:=xlDescending

End With

 

 

[선택한 영역만 정렬]

With ActiveSheet.Sort

.SortFields.Clear

.SortFields.Add Key:=Selection.Columns(1), Order:=xlDescending

.SetRange Selection

.Apply

End With

 

[이차기준 정렬]

Sub 셀정렬()

With Range("A1").CurrentRegion

.Sort key1:=.Cells(1, 2), order1:=1, _

key2:=.Cells(1, 3), order2:=1, _

Header:=xlYes

End With

End Sub

 

 

[특별한 개인 기준으로 정렬]

With ActiveSheet.Sort

.SortFields.Clear

.SortFields.Add rng.Columns(1), xlSortOnValues, _

xlAscending, "고문,자문위원,명예회장,감사,회장,총무,부회장,이사,코치,회원,준회원"

.SetRange rng

.Header = xlGuess

.Apply

End With

 

[2차 기준으로 정렬]

Selection.Sort key1:=Columns(12), Order1:=xlDescending, _

key2:=Columns(7), Order2:=xlAscending