[VBA기초] RemoveDuplicates 이용한 중복 제거

중복 데이터가 입력되었을 때 중복된 데이터를 제거하고 고유한 항목만 뽑아내고 싶을 때가 있습니다.

Array를 사용하면 여러개의 조건이 일치하는 것만 찾아서 중복 제거를 할 수도 있습니다.

RemoveDuplicates 를 사용하면 되는데

Range.RemoveDuplicates Colums, Header 로 되어 있습니다.

Header:=xlNo (열 머리글이 존재하지 않음)

Header:=xlYes (열 머리글이 존재)

Columns : 중복된 정보가 들어있는 열 인덱스의 배열. 열을 지정하지 않으면 모든 열에 중복된 정보가 있는 것으로 간주

ActiveSheet.Range("A1:C100").RemoveDuplicates Columns:=Array(1,2), Header:=xlYes
또는 간략하게
ActiveSheet.Range("A1:C100").RemoveDuplicates Array(1,2), xlYes
로 사용해도 됩니다.

Sub 중복데이터제거()
    Range("A1:C" & Cells(Rows.Count, "A").End(3).Row).RemoveDuplicates Columns:=Array(2, 3), Header:=xlYes

    '// A1:C의 데이타가 있는 마지막열 구간범위내에서 2열, 3열 기준으로 중복된 것을 제거하라. 헤더는 포함

  
    '// 2번째 열 기준으로 중복제거
    'Range("A1:C100").RemoveDuplicates Columns:=2, Header:=xlYes
   
    '// 3번째 열 기준으로 중복제거
    'Range("A1:C100").RemoveDuplicates Columns:=3, Header:=xlYes
End Sub