엑사남 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 |
728x90
'■ Excel > ㅡExcel VBA Study' 카테고리의 다른 글
| 엑셀 vba 남학생만 모두 삭제, 행 전체 (0) | 2020.05.19 |
|---|---|
| 엑셀 vba 중복항목 제거 (0) | 2020.05.19 |
| 엑셀 vba 작성시 자동구문(메뉴)가 나타나지 않을 때, (0) | 2020.05.07 |
| 엑셀 vba 유저폼 값을 바꾸면 작동하는 매크로 (0) | 2020.05.06 |
| 엑셀 vba 범위 선택 후 바로 차트 만들기 매크로 VBA, 마우스 우클릭 (0) | 2020.05.06 |