Совет. Другие языки - Google-Translated. Вы можете посетить English версия этой ссылки.
Войти
x
or
x
x
Регистрация
x

or

Как удалить повторяющиеся строки из таблицы в документе Word?

В документе Word могут быть несколько таблиц с повторяющимися строками, которые вы хотите удалить и иногда сохраняете первое появление. В этом случае вы можете удалить дубликаты один за другим вручную, также вы можете использовать код VBA.

Удаление повторяющихся строк из таблицы в Word

Быстро вставьте поле формы флажка в несколько содержимого сразу в документе Word

С Kutools для Word CheckBox утилита, вам просто нужен один клик, вы можете вставить поле формы флажка в выбранное содержимое в Word documnet один раз. Нажмите для бесплатной пробной версии 45!
Поле поля поля doc
Kutools for Word: с помощью сотен удобных надстроек Word, без ограничений в 45-дни.

Удаление повторяющихся строк из таблицы в Word

1. Поместите курсор в таблицу, из которой вы хотите удалить повторяющиеся строки, нажмите Alt + F11 для включения Microsoft Visual Basic для приложений окна.

2. Нажмите Вставить > модуль для создания нового модуля.
doc удалить повторяющиеся строки table01

3. Скопируйте ниже коды и вставьте их в новый модуль скрипты.

VBA: удалить повторяющиеся строки из таблицы в Word

Открытый Sub DeleteDuplicateRows2 () 'UpdatebyExtendoffice20181011 Dim xTable As Table Dim xRow As Range Dim xStr As String Dim xDic As Object Dim I, J, KK, xNum As Long If ActiveDocument.Tables.Count = 0 Тогда MsgBox "В этом документе нет таблицы (s). ", vbInformation," Kutools for Word "Exit Sub End If Application.ScreenUpdating = False Установить xDic = CreateObject (" Scripting.Dictionary ") Если Selection.Information (wdWithInTable) Затем Установить xTable = Selection.Tables (1) Для I = xTable.Rows.Count To 1 Step -1 Установите xRow = xTable.Rows (I) .Range xStr = xRow.Text xNum = -1 Если xDic.Exists (xStr) Затем «xTable.Rows (I) .Delete Для J = xTable.Rows.Count To 1 Step -1 If (xStr = xTable.Rows (J) .Range.Text) И (J <> I) Тогда xNum = xNum + 1 xTable.Rows (J). Удалить конец Если Next I = I - xNum Else xDic.Add xStr, I End If Next Else для I = 1 В ActiveDocument.Tables.Count Set xTable = ActiveDocument.Tables (I) xNum = -1 xDic.RemoveAll Для J = xTable.Rows .Count To 1 Step -XNU MX Set xRow = xTable.Rows (J) .Range xStr = xRow.Text xNum = -1 Если xDic.Exists (xStr) Затем «xTable.Rows (I) .Delete For KK = xTable.Rows.Count To 1 Step - 1 If (xStr = xTable.Rows (KK) .Range.Text) И (KK <> J) Тогда xNum = xNum + 1 xTable.Rows (KK). Удалить конец, если следующий J = J - xNum Else xDic.Add xStr , J End If Next Next End If Application.ScreenUpdating = True End Sub

doc удалить повторяющиеся строки table02

4. Нажмите F5 ключ для запуска кода, то все повторяющиеся строки будут удалены.
doc удалить повторяющиеся строки table03

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

Открытый Sub DeleteDuplicateRows2 () 'UpdatebyExtendoffice20181011 Dim xTable As Table Dim xRow As Range Dim xStr As String Dim xDic As Object Dim I, J, KK, xNum As Long If ActiveDocument.Tables.Count = 0 Тогда MsgBox "В этом документе нет таблицы (s). ", vbInformation," Kutools for Word "Exit Sub End If Application.ScreenUpdating = False Установить xDic = CreateObject (" Scripting.Dictionary ") Если Selection.Information (wdWithInTable) Затем Установить xTable = Selection.Tables (1) Для I = xTable.Rows.Count To 1 Step -1 Установите xRow = xTable.Rows (I) .Range xStr = UCase (xRow.Text) xNum = -1 Если xDic.Exists (xStr) Затем 'xTable.Rows (I ) .Delete For J = xTable.Rows.Count To 1 Step -1 Если (xStr = xTable.Rows (J) .Range.Text) И (J <> I) Тогда xNum = xNum + 1 xTable.Rows (J) .Delete End If Next I = I - xNum Else xDic.Add xStr, I End If Next Else для I = 1 для ActiveDocument.Tables.Count Set xTable = ActiveDocument.Tables (I) xNum = -1 xDic.RemoveAll Для J = xTable.Rows.Count To 1 St ep -1 Установите xRow = xTable.Rows (J) .Range xStr = UCase (xRow.Text) xNum = -1 Если xDic.Exists (xStr) Затем «xTable.Rows (I) .Delete For KK = xTable.Rows. Count To 1 Step -1 Если (xStr = xTable.Rows (KK) .Range.Text) И (KK <> J) Тогда xNum = xNum + 1 xTable.Rows (KK). Удалить конец, если следующий J = J - xNum Else xDic.Add xStr, J End If Next Next End If Application.ScreenUpdating = True End Sub

Если вы хотите удалить повторяющиеся строки во всех таблицах документа, поместите курсор в любом месте документа за пределы таблицы, а затем примените один из вышеуказанных кодов.


Просмотр вкладок и редактирование нескольких документов Word / книг Excel как Firefox, Chrome, Internet Исследуйте 10!

Возможно, вам знакомо просматривать несколько веб-страниц в Firefox / Chrome / IE и переключаться между ними, легко щелкая соответствующие вкладки. Здесь вкладка Office поддерживает аналогичную обработку, которая позволяет вам просматривать несколько документов Word или книги Excel в одном окне Word или окне Excel и легко переключаться между ними, нажимая их вкладки.
Нажмите для бесплатной пробной версии Office Tab!

Просмотр нескольких документов Word в одном окне как Firefox


Рекомендуемые инструменты для повышения производительности Word

Kutools For Word - больше, чем расширенные возможности 100 для Microsoft Word, сэкономьте время 50%

  • Сложные и повторяющиеся операции могут быть выполнены одноразовой обработкой за считанные секунды.
  • Вставьте несколько изображений из папок в документ Word одновременно.
  • Объединяйте и объединяйте несколько файлов Word в разных папках в нужном вам порядке.
  • Разделите текущий документ на отдельные документы в соответствии с заголовком 1, разрывом раздела или другими критериями.
  • Конвертировать файлы между Doc и Docx, Docx и PDF, набор инструментов для общих преобразований и выбора, и так далее...
Say something here...
symbols left.
You are guest ( Sign Up? )
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.

Be the first to comment.