Выровнять уникальные значения в двух столбцах в Excel

Question

COL 1  COL 2
 A      E
 B      G 
 C      A
 G      A
 D      C
 E      F
 D      F
 F      F

Я хочу, чтобы это выглядело так:

COL 1  COL 2
 A      A
 BLANK  A
 B      BLANK
 C      C
 D      BLANK
 D      BLANK
 E      E
 F      F
 BLANK  F
 BLANK  F
 G      G

Пожалуйста, помогите мне. У меня есть тонны чисел в двух столбцах, и я хочу выровнять их, как показано выше.

Answer 1

Казалось бы, это реорганизует пример данных, которые вы предоставили правильно.

Sub mcr_fix()
    Dim rw As Long, c As Long
    With ActiveSheet
        For c = 1 To 2
            With .Cells(1, 1).CurrentRegion.Columns(c)
                .Cells.Sort key1:=.Columns(1), order1:=xlAscending, _
                            Orientation:=xlTopToBottom, Header:=xlYes
            End With
        Next c
        rw = 3
        Do While CBool(Application.CountA(.Cells(rw, 1).Resize(1, 2)))
            If .Cells(rw, 1).Value > .Cells(rw, 2).Value Then
                .Cells(rw, 1).Insert Shift:=xlDown
            ElseIf .Cells(rw, 1).Value < .Cells(rw, 2).Value Then
                .Cells(rw, 2).Insert Shift:=xlDown
            End If
            rw = rw + 1
            If rw > 500 Then Exit Do
        Loop
    End With
End Sub