
重複行を1コードで削除することが
できます!

1コードで削除できるため、
・ループ処理で各行を確認し、重複しているかどうかを判定する
といったやり方は不要です!

ループ処理が不要のため、
処理の高速化が期待できます!

「RemoveDuplicates」を使用して、
重複行を削除します。
VBAコード
例えば
・シート「sample」上に、以下の表のようにID「0001」の行が重複している
場合に、

重複行を削除するために、以下のコードを実行します。
※ここでは「ID列(2列目)」が同じである場合、重複していると判断することにします。
Sub sample()
'ID列(2列目)が重複していたら削除
Worksheets("sample").Range("B2:E7").RemoveDuplicates Columns:=Array(2), Header:=xlYes
End Sub
実行結果
重複行を削除することが出来ました。
