Como alinhar duplicatas nas mesmas linhas no Excel

Esta é uma pergunta simples que não posso responder.

Eu tenho duas colunas como estas no Excel:

Col1    Col2
 A       C
 B       I
 C       E
 D       D
 E       A
 F       F
 G       B
 H       
 I       

Eu quero classificar as duas colunas para que os mesmos valores sejam alinhados nas mesmas linhas em duas colunas, como:

Col1    Col2
 A       A
 B       B
 C       C
 D       D
 E       E
 F       F
 G       
 H       
 I       I
 K       

Até agora, eu tentei o seguinteVBA código:

 Sub HighlightDups()
    Dim i, LastRowA, LastRowB
    LastRowA = Range("A" & Rows.Count).End(xlUp).Row
    LastRowB = Range("B" & Rows.Count).End(xlUp).Row
    Columns("A:A").Interior.ColorIndex = xlNone
    Columns("B:B").Interior.ColorIndex = xlNone
    For i = 1 To LastRowA
        If Application.CountIf(Range("B:B"), Cells(i, "A")) > 0 Then
            Cells(i, "A").Interior.ColorIndex = 36
        End If
    Next
    For i = 1 To LastRowB
        If Application.CountIf(Range("A:A"), Cells(i, "B")) > 0 Then
            Cells(i, "B").Interior.ColorIndex = 36
        End If
    Next
End Sub

Mas esse código apenas ajuda a encontrar as duplicatas e não coloca as duplicatas nas mesmas linhas nas duas colunas.

Eu me pergunto se vocês podem dar uma ajudinha?

Muito obrigado.

questionAnswers(2)

yourAnswerToTheQuestion