728x90
엑사남 16강 study
| 엑셀 파일 다운로드 |
| Sub Test_01() Dim rngD As Range Dim lngE As Long lngE = Cells(Rows.Count, "c").End(xlUp).Row Range("h:h").Clear Range("c3:c" & lngE).Copy Range("h3") Set rngD = Range("h4:h" & lngE) rngD.RemoveDuplicates Columns:=1, Header:=xlNo '중복제거 End Sub |
| Sub Test_02() Dim rngD As Range Dim lngE As Long lngE = Cells(Rows.Count, "c").End(xlUp).Row Range("h:k").Clear Range("c3:f" & lngE).Copy Range("h3") Set rngD = Range("h4:k" & lngE) rngD.RemoveDuplicates Columns:=Array(1, 2, 3, 4), Header:=xlNo '중복제거 End Sub |
| Sub Test_03() Dim rngD As Range Dim lngE As Long lngE = Cells(Rows.Count, "c").End(xlUp).Row Range("h:k").Clear Range("c3:f" & lngE).Copy Range("h3") Set rngD = Range("h4:k" & lngE) rngD.RemoveDuplicates Columns:=Array(1, 2, 3, 4), Header:=xlNo '중복제거 lngE = Cells(Rows.Count, "h").End(xlUp).Row Set rngD = Range("h4:k" & lngE) rngD.Sort _ key1:=Range("h3"), order1:=xlAscending, _ key2:=Range("i3"), order2:=xlDescending, _ key3:=Range("j3"), order3:=xlAscending, _ Header:=xlYes End Sub |
728x90
'■ Excel > ㅡExcel VBA Study' 카테고리의 다른 글
| 엑셀 vba 여학생만 복사 (조건에 맞는 행 전체 복사) (2) | 2020.05.20 |
|---|---|
| 엑셀 vba 남학생만 모두 삭제, 행 전체 (0) | 2020.05.19 |
| 엑셀 vba 정렬, sort(소트), 제목줄 (0) | 2020.05.07 |
| 엑셀 vba 작성시 자동구문(메뉴)가 나타나지 않을 때, (0) | 2020.05.07 |
| 엑셀 vba 유저폼 값을 바꾸면 작동하는 매크로 (0) | 2020.05.06 |