Удаление строк внутри ячейки - VBA/Excel

Формулировка задачи:

Всем доброго времени суток. Есть таблица контактов. По каким то не понятным причинам у некоторых контактов сделаны одинаковые записи номера телефона. См. пример, вопрос как удалить дубликаты номеров?1111111.xlsx

Решение задачи: «Удаление строк внутри ячейки»

textual
                            Листинг программы 
                        

                            Private Sub Test3()
    Dim iArr1 As Variant, iArr2 As Variant, iRow1&, iRow2&, tmp$
    iArr1 = Range("N2", Cells(Rows.Count, "N").End(xlUp)).Value
    For iRow1 = 1 To UBound(iArr1)
        iArr2 = Split(iArr1(iRow1, 1), vbLf)
        For iRow2 = 0 To UBound(iArr2)
            If Application.Match(iArr2(iRow2), iArr2, 0) = iRow2 + 1 Then
               tmp = tmp & vbLf & iArr2(iRow2)
            End If
        Next
        iArr1(iRow1, 1) = Mid$(tmp, 2): tmp = ""
    Next
    Range("N2").Resize(iRow1 - 1) = iArr1
End Sub
                        