Excel. Удаление из строки ячеек с повторяющимися данными.

[CubaLibra]

Есть строка с заполненными ячейками. Из них некоторые одинаковы.

Надо, построчно, удалять ячейки с повторяющимеся данными, оставляя по одной уникальной на строку. В итоге, в строке не должно остаться ячеек с одинаковыми данными.

Благодарю за ответ.

[GSerg]

Гы гы гы...
Щас будет изврат

Если первая строка таблицы данных - это B4:G4, то:
Выделяем I4:N4 (рядом, слева, строку того же размера), не снимая выделения пишем в строке формул:
=ЕСЛИ(СЧЁТЕСЛИ($B4:$G4;B4:G4)=1;B4:G4;"")

Написав, нажимаем Ctrl+Shift+Enter...

Растягиваем вниз.

Гы гы...

[CubaLibra]

GSerg, отлично работает, спасибо, но при этом удаляет ВСЕ дублирующиеся, а я хотел оставить из них по одной тоже ))

Я проиллюстрирую:

Были ячейки с данными: val1 | val2 | val3 | val4 | val4 | val5 | val5
Должны остаться: val1 | val2 | val3 | val4 | val5

Благодарю.

[GSerg]

А мона изменить порядок следования данных в строке?..

[CubaLibra]

Да, это не принципиально.
Главное - нельзя менять местами символы внутри ячейки, а менять местами ячейки целиком в пределах строки можно.

[GSerg]

Код: Выделить всё

Sub foo(ByVal where As Excel.Range)
  Dim r As Excel.Range, i As Long, j As Long, t As Long, f As Boolean
 
  t = where.Columns.Count
 
  For Each r In where.Rows
    r.Sort Key1:=r.Cells(1), Header:=xlNo, Orientation:=xlLeftToRight
   
    For i = 2 To t
      j = i - 1
      Do While r.Cells(i).Value = r.Cells(j).Value
        i = i + 1
        f = True
      Loop
     
      For j = j + 1 To i - 1
        r.Cells(j).ClearContents
      Next
      If f Then i = i - 1: f = False
    Next
  Next
End Sub

[CubaLibra]

GSerg, благодарю за быстрый ответ, проблема решена Вашим кодом.