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

2023年5月27日

例えば、A列に名前のデータが入っており、
重複した名前データを削除したいときは、
下記のコードを使います。

Range(“A:A”).RemoveDuplicates Columns:=1, Header:=xlYes

説明書きを加えると上記のようになります。
適応範囲の箇所にはRange(“A:A”)の形の他、

◆Range(Cells(1,1),Cells(1,1)).EntireColumn
◆Column(“A:A”)

これも可能です。
　

例題１（1行のみ重複データ検索・削除）

↑の例題①のようにA列に名前が羅列してあり、
A列のみを適応範囲、検索範囲とすると
サンプルコードは以下になります。
　

Range("A:A").RemoveDuplicates Columns:=1, Header:=xlYes

上記のコードを実行すると下記のような結果が得られます。

↑の例題では、「No.」と「出身」を付けたしました。
サンプルコードはA･B･Cの３列すべてを
適応範囲・重複検索範囲とする場合、

つまり、
　◆適応範囲　　　　　・・・A:C
　◆重複データを探す列・・・1,2,3列目(つまりA:C)

１～３列目の内容が全て同じモノ、その行のA:C(適応範囲)を
まるまる削除する事になります。

また、[ 重複データを探す列 ] に複数列を選択する場合は、
【Array】を使用します。具体的なサンプルコードは以下になります。
　

Range("A:C").RemoveDuplicates Columns:=Array(1, 2, 3), Header:=xlYes

２行目と３行目が全て同じ内容で重複している事が分かります。
得られる結果は２行目が残り、３行目の(A:C)が削除されるとなりました。
　

例題②のExcelをそのまま使い、今度は

　◆適応範囲　　　　　・・・A:C
　◆重複データを探す列・・・2,3列目(つまりB:C)

とすると、
【２列目(名前)】と【３列目(出身)】

これが一緒の行はA:C(適応範囲)が削除されます。
２列目と１列目の内容が一緒であれば１列目に何が記載されていても削除されます。
サンプルコードと結果は以下になります。
　

Range("A:C").RemoveDuplicates Columns:=Array(2, 3), Header:=xlYes

以上になります。
お役に立てれば幸いです。