Удаление смежных дубликатов строк

@mandrian · Регистрация: 24.07.2013

Студворк — интернет-сервис помощи студентам

Добрый день! Помогите с кодом, плиз!
В Word есть табличка в 1 столбец. Нужно удалить дубликаты строк, но только в том случае, если они рядом расположены. Само собой, сортировка исключается.

@Catstail · 26.07.2013, 21:14

Вот навскидку:

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
Sub Del_dup(tbl As Table)
    n& = tbl.Rows.Count
    iii& = 1
    Do
       If iii& >= tbl.Rows.Count Then Exit Do
       If tbl.Cell(iii&, 1).Range.Text = tbl.Cell(iii& + 1, 1).Range.Text Then
          tbl.Rows(iii& + 1).Delete
       Else
          iii& = iii& + 1
       End If
    Loop
End Sub
 
Sub Main()
Dim tbl As Table
    Set tbl = ThisDocument.Tables(1)
    Del_dup tbl
End Sub

@mandrian · 28.07.2013, 20:42 **[ТС]**

Этот "навскидку" не работает (ни один из двух). Впрочем, мне уже подсказали решение. Спасибо.

@Catstail · 29.07.2013, 09:57

Сообщение от mandrian

Этот "навскидку" не работает (ни один из двух)

- если бы не работал, я бы не публиковал. Нужно еще уметь воспользоваться

Прилагаю две картинки (до и после):

@Igor_Tr · 29.07.2013, 10:14

Без инструкции не считается. "Включить..."

@Catstail · 29.07.2013, 10:52

Сообщение от Igor_Tr

Без инструкции не считается.

- принято...

@mandrian · 29.07.2013, 14:59 **[ТС]**

Сообщение от Catstail

Нужно еще уметь воспользоваться

Catstail, я дико извиняюсь - был неправ.

Перепроверил - действительно, все работает.
Хотя, если честно, мне, чайнику, непонятно, почему первый раз код не срабатывал, и все строчки, начиная с n& = tbl.Rows.Count , высвечивало красным. Ну, может, когда вырасту - пойму.

Еще раз спасибо за помощь!

Новые блоги и статьи Все статьи Все блоги /
SDL3 для Web (WebAssembly): Подключение Box2D v3, физика и отрисовка коллайдеров 8Observer8 12.02.2026 Содержание блога Box2D - это библиотека для 2D физики для анимаций и игр. С её помощью можно определять были ли коллизии между конкретными объектами и вызывать обработчики событий столкновения. . . .	SDL3 для Web (WebAssembly): Загрузка PNG с прозрачным фоном с помощью SDL_LoadPNG (без SDL3_image) 8Observer8 11.02.2026 Содержание блога Библиотека SDL3 содержит встроенные инструменты для базовой работы с изображениями - без использования библиотеки SDL3_image. Пошагово создадим проект для загрузки изображения. . .	SDL3 для Web (WebAssembly): Загрузка PNG с прозрачным фоном с помощью SDL3_image 8Observer8 10.02.2026 Содержание блога Библиотека SDL3_image содержит инструменты для расширенной работы с изображениями. Пошагово создадим проект для загрузки изображения формата PNG с альфа-каналом (с прозрачным. . .	Установка Qt-версии Lazarus IDE в Debian Trixie Xfce volvo 10.02.2026 В общем, достали меня глюки IDE Лазаруса, собранной с использованием набора виджетов Gtk2 (конкретно: если набирать текст в редакторе и вызвать подсказку через Ctrl+Space, то после закрытия окошка. . .
SDL3 для Web (WebAssembly): Работа со звуком через SDL3_mixer 8Observer8 08.02.2026 Содержание блога Пошагово создадим проект для загрузки звукового файла и воспроизведения звука с помощью библиотеки SDL3_mixer. Звук будет воспроизводиться по клику мышки по холсту на Desktop и по. . .	SDL3 для Web (WebAssembly): Основы отладки веб-приложений на SDL3 по USB и Wi-Fi, запущенных в браузере мобильных устройств 8Observer8 07.02.2026 Содержание блога Браузер Chrome имеет средства для отладки мобильных веб-приложений по USB. В этой пошаговой инструкции ограничимся работой с консолью. Вывод в консоль - это часть процесса. . .	SDL3 для Web (WebAssembly): Обработчик клика мыши в браузере ПК и касания экрана в браузере на мобильном устройстве 8Observer8 02.02.2026 Содержание блога Для начала пошагово создадим рабочий пример для подготовки к экспериментам в браузере ПК и в браузере мобильного устройства. Потом напишем обработчик клика мыши и обработчик. . .	Философия технологии iceja 01.02.2026 На мой взгляд у человека в технических проектах остается роль генерального директора. Все остальное нейронки делают уже лучше человека. Они не могут нести предпринимательские риски, не могут. . .

@mandrian 1 / 1 / 0 Регистрация: 24.07.2013 Сообщений: 9

	Word Удаление смежных дубликатов строк 26.07.2013, 19:33. Показов 3812. Ответов 6 Метки нет (Все метки) Добрый день! Помогите с кодом, плиз! В Word есть табличка в 1 столбец. Нужно удалить дубликаты строк, но только в том случае, если они рядом расположены. Само собой, сортировка исключается. 0

@mandrian 1 / 1 / 0 Регистрация: 24.07.2013 Сообщений: 9
	28.07.2013, 20:42 [ТС]
	Этот "навскидку" не работает (ни один из двух). Впрочем, мне уже подсказали решение. Спасибо. 0

@Igor_Tr 4377 / 661 / 36 Регистрация: 17.01.2010 Сообщений: 2,134
	29.07.2013, 10:14
	Без инструкции не считается. "Включить..." 0