重複したデータを削除する【RemoveDuplicatesメソッド】【ExcelVBA】

RemoveDuplicatesメソッドとは

選択範囲内の重複したデータを自動で削除する機能です。
リスト内に同じ情報は必要ない、整理をしたい、といった場合に使えます。

構文
Object.RemoveDuplicates(Columns, Header)

重複するデータを削除するサンプルコード

以下をA1セルに貼り付けてください。

Public Sub xlYes()
  'A列の重複データを削除する
  'ヘッダーを含む
  Range("A1:B5").RemoveDuplicates Columns:=1, Header:=xlYes
End Sub

Public Sub xlNo()
  'A,B列の重複データを削除する
  'ヘッダーを含まない
  Range("A2:B5").RemoveDuplicates Columns:=Array(1, 2), Header:=xlNo
End Sub

Public Sub xlGuesss()
  'A,B列の重複データを削除する
  'ヘッダーを自動で判定
  Range("A1:B5").RemoveDuplicates Columns:=Array(1, 2), Header:=xlGuesss
End Sub

注意点

• 上記サンプルコードは面倒ですが、実行する度に表を復元する必要があります。
• 似た機能に重複データを非表示にする AdvancedFilter がありますが、
  RemoveDuplicates はデータを削除をしてしまい、元に戻せなくなるので注意が必要です。

関連記事

• オートフィルタを使用する【AutoFilterメソッド】
• オートフィルタよりも高性能なフィルター処理を行う【AdvancedFilterメソッド】
• 重複するデータを非表示にする【AdvancedFilterメソッド】