Excel finding duplicates in two columns.

[Excelnub]

I have two columns of information. I'd like to find the duplicates in column B and remove them from column A. How can I do this? Any help is greatly appreciated.



-ExcelNub

 

[QuietRiot]

Sub dupbgone()

Application.ScreenUpdating = False

Set c = Cells.Find(What:="*", After:=[A1], SearchDirection:=xlPrevious)
If c Is Nothing Then
    last = 1
Else
    last = c.Row
End If

For x = 1 To last
check = Cells(x, 2).Value
    For g = 1 To last
    If Cells(g, 1).Value = check Then Cells(g, 1).Formula = ""
    Next g
Next x
Application.ScreenUpdating = True
End Sub

 

[jindon]

Hope you are not on Mac...

Sub test()
Dim a, i As Long
With Range("a1").CurrentRegion.Resize(,2)
     a = .Value
     With CreateObject("Scripting.Dictionary")
          .CompareMode = vbTextCompare
          For i = 1 To UBound(a,1)
               If Not IsEmpty(a(i,2)) And Not .exists(a(i,2)) Then .add a(i,2), Nothing
          Next
          For i = 1 To UBound(a,1)
               If .exists(a(i,1)) Then a(i,1) = ""
         Next
     End With
     .Value = a
End With
End Sub