엑셀 vba 정렬, sort(소트), 제목줄

엑사남 16강 study

엑셀 vba 파일 다운로드

엑셀vba 정렬(오름차순,내림차순,중복정렬).xlsm

0.03MB

Sub Sort_Ban_Ascending() Dim rngD     As Range Dim lngRow  As Long lngRow = Cells(Rows.Count, "c").End(xlUp).Row Set rngD = Range("d5:k" & lngRow)          rngD.Sort Range("f5"), xlAscending, Header:=xlNo      End Sub

Sub Sort_Ban_Descending() Dim rngD     As Range Dim lngRow  As Long lngRow = Cells(Rows.Count, "c").End(xlUp).Row Set rngD = Range("d5:k" & lngRow)          rngD.Sort key1:=Range("f5"), order1:=xlDescending, Header:=xlNo          End Sub

Sub Sort_AsDes() Dim rngD        As Range Dim lngRow      As Long lngRow = Cells(Rows.Count, "c").End(xlUp).Row Set rngD = Range("d4:k" & lngRow)          rngD.Sort key1:=Range("f4"), order1:=xlAscending, _               key2:=Range("k4"), order2:=xlDescending, _               Header:=xlYes    End Sub