Удаление строк в автоформируемой при слиянии таблице - 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
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д