删除重复行Excel VBA

Question

我在VBA中编写一个脚本，可以删除Excel电子表格中的重复行。但是，我希望它只考虑两列中的信息来删除重复的行。

换句话说，我有一个范围为B：F的表。我希望脚本删除重复的行，考虑到每一行，只考虑列D和E上的值。最后，只有在列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

突出显示的结果：

删除结果：