엑사남 17강 RemoveDuplicate, Array

엑사남 17강 RemoveDuplicate, Array

 

Sub test01()

    Dim rngD As Range
    Dim lngE As Long
    
    'lngE = Cells(Rows.Count, 6).End(xlUp).Row  : 시트의 맨마지막 행을 찾는 코드 
    'lngE = Cells(Rows.Count, "F").End(xlUp).Row  : 시트의 맨마지막 행을 찾는 코드
    lngE = Range("F1000").End(xlUp).Row
    
    Range("H:H").Clear
    Range("F6:F" & lngE).Copy Range("H6")
    
    Set rngD = Range("H7:H" & lngE)
    rngD.RemoveDuplicates Columns:=1, Header:=xlNo
    
    'xlAscending : 오름차순
    'xlDescending: 내림차순
    '더이상 정렬한 조건이 없으면 Header:를 입력한다.
    '이때 xlGuess :헤더 설정을 엑셀 마음대로,
    'xlYes : 데이터의 첫번째 행을 제목으로 사용,
    'xlNO: 데이터의 첫번째 행을 제목으로 사용안함.
    
    rngD.Sort key1:=Range("H7"), order1:=xlAscending, Header:=xlNo
End Sub

'+++++++++++++++++++++++++++++++++++++++++++++++++

 

 

Sub test02()
    Dim rngD As Range
    Dim lngE As Long
    
    'lngE = Cells(Rows.Count, 6).End(xlUp).Row
    'lngE = Cells(Rows.Count, "F").End(xlUp).Row
    lngE = Range("F1000").End(xlUp).Row
    
    Range("i:j").Clear
    Range("F6:G" & lngE).Copy Range("I6")
    
    Set rngD = Range("I7:J" & lngE)
    rngD.RemoveDuplicates Columns:=Array(1, 2), Header:=xlNo

    rngD.Sort key1:=Range("I7"), order1:=xlAscending, _
              key2:=Range("J7"), order2:=xlAscending, Header:=xlNo
End Sub
'+++++++++++++++++++++++++++++++++++++++++++++++++

 

Sub test03()
    Dim rngD As Range
    Dim lngE As Long
    
    'lngE = Cells(Rows.Count, 6).End(xlUp).Row
    'lngE = Cells(Rows.Count, "F").End(xlUp).Row
    lngE = Range("F1000").End(xlUp).Row
    
    Range("J:L").Clear
    Range("F6:H" & lngE).Copy Range("J6")
    
    Set rngD = Range("J7:L" & lngE)
    rngD.RemoveDuplicates Columns:=Array(1, 2, 3), Header:=xlNo

    rngD.Sort key1:=Range("J7"), order1:=xlAscending, _
              key2:=Range("K7"), order2:=xlAscending, _
              key3:=Range("L7"), order3:=xlAscending, Header:=xlNo

End Sub

 

17. RemoveDuplicates, Array.xlsm

0.03MB