Удаление повторной информации из таблиц

[paratruper17]

Добрый день, уважаемые форумчане. В результате выполнения определенного макроса информация попадает в таблицу в документ ворд. Необходимо сделать так, чтобы если присутствуют ячейки с одинаковой информацией - удалить повторную.

[viter.alex]

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

[paratruper17]

Дело в том, что можно было бы сделать проверку перед добавлением в таблицу информации..... но тут необходимо именно удаление повторной

[viter.alex]

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

[paratruper17]

всю строку в которой находится данная ячейка

[viter.alex]

Пример где?

[paratruper17]

Пример:
Имеется следующая таблица (двоеточия - разделитель между ячейками):
:1:Иванов:24 года:инженер:
:2:Петров:29 лет :мастер :
:3:Иванов:24года :инженер:
:4:Сиборов:30 лет:слесарь :
Необходимо сделать так, чтобы строка, в которой встречалась повторная фамилия удалялась целиком, а остальные смещались вверх с корректировкой индексовв первом столбце

[viter.alex]

Sub DeleteDuplicate()
  Dim oTbl As Table 'Таблица
  Dim oDoc As Document 'Документ
  Dim oCell As Cell 'Ячейка
  
  Set oTbl = Selection.Tables(1)
  Set oDoc = Selection.Document
  
  'Перебираем все ячейки во втором столбце таблицы
  For Each oCell In oTbl.Columns(2).Cells
    'Осуществляем поиск в ячейках второго столбца, расположенных ниже текущей
    With oDoc.Range(oTbl.Cell(oCell.RowIndex + 1, oCell.ColumnIndex).Range.Start, oTbl.Columns(2).Cells(oTbl.Columns(2).Cells.Count).Range.End).Find
      .Text = Left(oCell.Range.Text, Len(oCell.Range.Text) - 2)
      While .Execute 'Если текст текущей ячейки найден, то строку удаляем
        oTbl.Rows(.Parent.Information(wdStartOfRangeRowNumber)).Delete
      Wend
    End With
  Next
End Sub

А чтобы не мучаться с нумерацией, то выдели первый столбец и примени к нему список.

[paratruper17]

большое спасибо!