Удаление строк в автоформируемой при слиянии таблице - VBA

Узнай цену своей работы

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

Добрый день! Есть шаблон, в котором таблица с полями MergeField наполняется автоматически. Мне необходимо настроить удаление строк, в которых повторяются значения в определенной колонке (аналогично действию "Данные - Удалить дубликаты" в Excel). Шаблон и пример результата во вложении - по третьей колонке нужно убрать дубликаты.

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

textual
Листинг программы
Sub RemoveDuplicates()
    If Selection.Information(wdWithInTable) = 1 Then Exit Sub
    Dim i As Long
    Dim oTbl As Table
    Set oTbl = Selection.Tables(1)
    i = oTbl.Rows.Count
    For i = oTbl.Rows.Count To 2 Step -1
        Dim ocell As Cell
        If oTbl.Cell(i, 3).Range.Text = oTbl.Cell(i - 1, 3).Range.Text Then
            oTbl.Rows(i - 1).Delete
        End If
    Next
End Sub

ИИ поможет Вам:


  • решить любую задачу по программированию
  • объяснить код
  • расставить комментарии в коде
  • и т.д
Попробуйте бесплатно

Оцени полезность:

6   голосов , оценка 4.333 из 5
Похожие ответы