Excel VBA 重複データを削除する

• オブジェクト（必須）
  重複を削除するセル範囲をRange【ﾚﾝｼﾞ】オブジェクトで指定します。
• Columns【ｶﾗﾑｽ】（必須）
  重複をチェックする列のインデックス番号を指定します。複数の列についての重複チェックを行う場合はArray【ｱﾚｲ】関数を使用した配列で指定します。
• Header【ﾍｯﾀﾞｰ】（省略可）
  先頭行をタイトル行とみなすかどうかを表す以下の定数を指定します。

  定数	内容
  xlNO	先頭行を見出しとしません。（既定値）
  XlYes	先頭行を見出しとしてデータから除外します。
  xlGuess	Guess【ｹﾞｽ】は推測という意味があり Excelが見出しの有無を判断します。

Sub 重複削除()
Range("A1").CurrentRegion.RemoveDuplicates Columns:=Array(1, 2, 3), Header:=xlYes
End Sub

A1セルから始まるデータ範囲をRange【ﾚﾝｼﾞ】オブジェクトのCurrentRegion【ｶﾚﾝﾄﾘｰｼﾞｮﾝ】プロパティで参照してRemoveDuplicates【ﾘﾑｰｳﾞﾃﾞｨﾌﾟﾙｷｬｯﾄｩ】の引数 Columns【ｶﾗﾑｽﾞ】にArray【ｱﾚｲ】関数を使って重複を確認する列のインデックス番号を指定しています。ここではA列B列C列のデータの重複を指定しています。例えば、D列があってABC列は重複しているがD列のデータは重複していない場合でもABC列が重複しているのでデータは削除されます。すべてのデータが重複している場合のみデータを削除する場合は、配列にすべての列のインデックス番号を指定します。RemoveDuplicates【ﾘﾑｰｳﾞﾃﾞｨﾌﾟﾙｷｬｯﾄｩ】で削除した重複データは一度削除すると元には戻せません。心配のようであれば、Range【ﾚﾝｼﾞ】オブジェクトのAdvancedFilter【ｱﾄﾞﾊﾞﾝｽﾄﾞﾌｨﾙﾀｰ】メソッドを使用して重複のないデータを別シートに抽出する方法もあります。