Всем привет! Проблема такая: Имеется таблица с повторяющимися значениями в каждой строке, нужно чтобы дубликат удалился. Руками это фильтровать нереально, некоторые таблицы огромные.

Строка такого вида: Вася Петя Катя Саша Ира Петя Толя Марина . Т.е получается первого Петю нужно оставить а второго удалить автоматом. образец похожего файла прикладываю.

Если что, не обязательно ячейку со сдвигом удалять, хотя бы почистить...

Заранее всем спасибо за помощь, сильно не пинайте, я только формулы Ексель постигать начал.

p.s Если кому помочь с парсингом ключевых слов из поисковиков нужно или семантическое ядро составить - обращайтесь! Помогу за спасибо - вы мне а я вам!

Public Sub www()
    Dim i&, j&
    For i = 1 To Cells(Rows.Count, 1).End(xlUp).Row
        For j = 7 To 14
            If Not IsError(Application.Match(Cells(i, j).Value, _
            Range(Cells(i, 1), Cells(i, 5)).Value, 0)) Then Cells(i, j) = ""
        Next
    Next
End Sub

Или удалить:

Public Sub www()
    Dim i&, j&
    For i = 1 To Cells(Rows.Count, 1).End(xlUp).Row
        For j = 7 To 14
            If Not IsError(Application.Match(Cells(i, j).Value, _
            Range(Cells(i, 1), Cells(i, 5)).Value, 0)) Then Cells(i, j) = Empty
        Next
        Range(Cells(i, 7), Cells(i, 15)).SpecialCells(4).Delete xlToLeft
    Next
End Sub