Remove Duplicate Pairs(2 Columns) - Excel 2013

[TheProffesional]

I found a similar post to mine on this forum from back in 2006. It offered a VBA macro to do this, which did not work for me for some reason. I was wondering if there is a new easy way to do this. I'm using excel 2013. I have a value in 2 columns and all I need to do is remove the corresponding UNIQUE values.

For example (123,123) REMOVE, (123,124) Leave.

I tried removing duplicates feature and the filter feature. But this does not work. Remove duplicates only works for duplicates in the same column. But I need to remove duplicates corresponding to unique values in both columns.

More Example Data:

123	123 --- REMOVE
124	128
126	124 --- REMOVE this 124 and matching 124, leave 126
130	140

When Process Finished:

	128
126
130	140

[natefarm]

So after the process is complete, the above would look as follows?

123

124 128

126

130 140

[TheProffesional]

So after the process is complete, the above would look as follows?

123

124 128

126

130 140

It would look as follows:



128

126

130 140

[natefarm]

The following searches columns A:B. Adjust as needed:

Sub DeleteDups()
Dim cel As Range, EndRw As Long, FindThis As String, FoundAt As String, IsDup As Boolean

    EndRw = Range("A" & Rows.Count).End(xlUp).Row
    For Each cel In Range(Range("A1"), Range("B" & EndRw))
        FindThis = cel.Value
        If FindThis <> "" Then
            IsDup = False
            Do Until FoundAt = cel.Address
                FoundAt = Columns("A:B").Find(what:=FindThis, after:=cel, lookat:=xlWhole).Address
                If FoundAt <> cel.Address Then
                    IsDup = True
                End If
                If IsDup Then
                    Range(FoundAt).ClearContents
                End If
            Loop
        End If
    Next

    Do Until EndRw = 0 ' Delete resulting blank rows
        If Range("A" & EndRw).Value & Range("B" & EndRw).Value = "" Then
            Rows(EndRw).Delete
        End If
        EndRw = EndRw - 1
    Loop
End Sub

[TheProffesional]

Wow, Worked Magic. Thanks a lot.