ⓒ 2025 AI교육연구회 withseok. All rights reserved. (위드석)
[블로그 글 내용 상업적 이용금지] ■ 위드석홈 | 위드석개발 | AI교육연구회 ■

엑사남 16강 study

엑셀 파일 다운로드

중복항목제거.xlsm
0.07MB

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

 

320x100
저작자표시 비영리 변경금지 (새창열림)

'■ 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

+ Recent posts

티스토리툴바