Сравнение 2 столбцов и удаление повторяющегося из второго столбца

[ildusfm]

В одном листе имеется 2 столбца с телефонными номерами. Нужен скрипт который сравнит эти два столбца и удалит из второго столбца те строки, которые есть в первом. Спасибо

[IFRSoff]

А может столбцом формул и автофильтром обойтись или именно скрипт?

[SAS888]

Следующий код удалит из столбца "B" значения, которые совпадают с одним из значений в столбце "A".

Sub Main()
    Dim i As Long, j As Long, x As New Collection, a(), b(), c()
    Application.ScreenUpdating = False
    a = Range([A1], Cells(Rows.Count, "A").End(xlUp)).Value
    b = Range([B1], Cells(Rows.Count, "B").End(xlUp)).Value
    On Error Resume Next
    For i = 1 To UBound(a, 1): x.Add a(i, 1), CStr(a(i, 1)): Next
    On Error GoTo 0: ReDim c(1 To UBound(b, 1), 1 To 1): j = 1
    For i = 1 To UBound(b, 1)
        On Error Resume Next: x.Add b(i, 1), CStr(b(i, 1))
        If Err = 0 Then
            c(j, 1) = b(i, 1): j = j + 1
        Else: On Error GoTo 0
        End If
    Next
    Range([B1], Cells(UBound(c, 1), "B")).Value = c
End Sub

[ildusfm]

Спасибо Огромное!!!!