如何删除Excel中的两个重复项

Question

我有一个列表，如下面的屏幕截图中的两列数据。我想删除两列中的重复项。因此，在下面的示例中，我需要一种可以检测并从列A和B中删除“Brian”的方法。

我该怎么做？

Answer 1

尝试这个微小的宏：

Sub DupRemover() 
    Dim AB As Range, r As Range, cl As Collection 
    Set AB = Range("A:B").Cells.SpecialCells(xlCellTypeConstants) 
    Set cl = New Collection 
    On Error Resume Next 
    For Each r In AB 
     v = r.Value 
     k = CStr(v) 
     cl.Add v, k 
     If Err.Number > 0 Then 
      Err.Number = 0 
      AB.Replace What:=v, Replacement:="" 
     End If 
    Next r 
End Sub