dual column matching and deleting NON duplicating numbers/rows

[horus9484]

HI,

I am new to this site. I wanted to say thanks in advance to anybody who tries to help me tackle my questions.

I am trying to match numbers in one column 1 with numbers in column 2. Not only do I want to recognize the numbers that are duplicated but delete the rows with numbers that are not duplicates. Any help would be appreciated.

Thanks!!!

 

[lewisgmorris]

would the two values be in the same row?

 

[lewisgmorris]

Sub hilightandremove()


Dim a As Range
Dim b As Range
Dim found As Boolean
Dim p As Integer
p = 3


For Each a In Range("A1:a999")


    If a.Value = "" Then Exit For
    
    For Each b In Range("B1:B999")
        
        If b.Value = "" Then Exit For
        
            If a.Value = b.Value Then
                
                a.Interior.ColorIndex = p
                b.Interior.ColorIndex = p
                            
            End If
        
    Next b
    
p = p + 1
Next a


For Each a In Range("A1:B9999")


    If a.Interior.ColorIndex = -4142 Then
        
        a.ClearContents
    End If


Next a


    
        
End Sub

 

[horus9484]

would the two values be in the same row?

I would like the two values to be in the same row. Right now they are in different columns and in different rows. I would like to remove the non duplicated numbers and place the same numbers side by side in the same rows, just different columns.