重複する行を削除するExcel VBA

Question

Excelのスプレッドシートで重複する行を削除するスクリプトをVBAで作成しています。しかし、2つの列の情報だけを考慮して重複行を削除したい。

つまり、範囲B：Fのテーブルがあります。スクリプトは、行Dと列Eの値だけを考慮して重複行を削除したい。 。これをどうやってやることができますか？ありがとうございます

Answer 1

これはこれを行う例です。

あなたがアップし、使用するシートとそれを実行していることを確認してください：ハイライト表示の

Sub DeleteDupes() 
Dim x 
For x = Cells(Rows.CountLarge, "D").End(xlUp).Row To 1 Step -1 
    If Cells(x, "D") = Cells(x, "E") Then 
     'This line deletes the row: 
     Cells(x, "D").EntireRow.Delete xlShiftUp 
     'This line highlights the row to show what would be deleted; 
     'Cells(x, "D").EntireRow.Interior.Color = RGB(230, 180, 180) 
    End If 
Next x 
End Sub 

結果：削除の

結果：