Як видалити повторювані рядки з таблиці в документі Word?
У документі Word можуть бути деякі таблиці з повторюваними рядками, які ви хочете видалити, а іноді зберегти першу. У цьому випадку ви можете видалити дублікати по одному вручну, а також скористатися кодом VBA.
Видаліть повторювані рядки з таблиці у програмі Word
Видаліть повторювані рядки з таблиці у програмі Word
1. Помістіть курсор до таблиці, з якої потрібно видалити повторювані рядки, натисніть Alt + F11 клавіші, щоб увімкнути Microsoft Visual Basic для додатків вікна.
2. клацання Insert > Модулі створити новий модуль.
3. Скопіюйте наведені нижче коди та вставте їх у новий Модулі сценарій
VBA: Видаліть повторювані рядки з таблиці в Word
Public 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 Then
MsgBox "This document does not have table(s).", vbInformation, "Kutools for Word"
Exit Sub
End If
Application.ScreenUpdating = False
Set xDic = CreateObject("Scripting.Dictionary")
If Selection.Information(wdWithInTable) Then
Set xTable = Selection.Tables(1)
For I = xTable.Rows.Count To 1 Step -1
Set xRow = xTable.Rows(I).Range
xStr = xRow.Text
xNum = -1
If xDic.Exists(xStr) Then
' xTable.Rows(I).Delete
For J = xTable.Rows.Count To 1 Step -1
If (xStr = xTable.Rows(J).Range.Text) And (J <> I) Then
xNum = xNum + 1
xTable.Rows(J).Delete
End If
Next
I = I - xNum
Else
xDic.Add xStr, I
End If
Next
Else
For I = 1 To ActiveDocument.Tables.Count
Set xTable = ActiveDocument.Tables(I)
xNum = -1
xDic.RemoveAll
For J = xTable.Rows.Count To 1 Step -1
Set xRow = xTable.Rows(J).Range
xStr = xRow.Text
xNum = -1
If xDic.Exists(xStr) Then
' xTable.Rows(I).Delete
For KK = xTable.Rows.Count To 1 Step -1
If (xStr = xTable.Rows(KK).Range.Text) And (KK <> J) Then
xNum = xNum + 1
xTable.Rows(KK).Delete
End If
Next
J = J - xNum
Else
xDic.Add xStr, J
End If
Next
Next
End If
Application.ScreenUpdating = True
End Sub
4. прес F5 для запуску коду, тоді всі повторювані рядки будуть видалені.
примітки: Наведений вище код чутливий до регістру, якщо ви хочете видалити повторювані рядки, якщо регістр не чутливий, ви можете використати нижченаведений код:
Public 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 Then
MsgBox "This document does not have table(s).", vbInformation, "Kutools for Word"
Exit Sub
End If
Application.ScreenUpdating = False
Set xDic = CreateObject("Scripting.Dictionary")
If Selection.Information(wdWithInTable) Then
Set xTable = Selection.Tables(1)
For I = xTable.Rows.Count To 1 Step -1
Set xRow = xTable.Rows(I).Range
xStr = UCase(xRow.Text)
xNum = -1
If xDic.Exists(xStr) Then
' xTable.Rows(I).Delete
For J = xTable.Rows.Count To 1 Step -1
If (xStr = xTable.Rows(J).Range.Text) And (J <> I) Then
xNum = xNum + 1
xTable.Rows(J).Delete
End If
Next
I = I - xNum
Else
xDic.Add xStr, I
End If
Next
Else
For I = 1 To ActiveDocument.Tables.Count
Set xTable = ActiveDocument.Tables(I)
xNum = -1
xDic.RemoveAll
For J = xTable.Rows.Count To 1 Step -1
Set xRow = xTable.Rows(J).Range
xStr = UCase(xRow.Text)
xNum = -1
If xDic.Exists(xStr) Then
' xTable.Rows(I).Delete
For KK = xTable.Rows.Count To 1 Step -1
If (xStr = xTable.Rows(KK).Range.Text) And (KK <> J) Then
xNum = xNum + 1
xTable.Rows(KK).Delete
End If
Next
J = J - xNum
Else
xDic.Add xStr, J
End If
Next
Next
End If
Application.ScreenUpdating = True
End Sub
Якщо ви хочете видалити повторювані рядки з усіх таблиць документа, поставте курсор у будь-яке місце документа за межами таблиці, а потім застосуйте один із наведених вище кодів.
Перегляд та редагування декількох документів Word / книг Excel із вкладками як Firefox, Chrome, Internet Explore 10! |
Можливо, ви знайомі з переглядом декількох веб-сторінок у Firefox / Chrome / IE та перемиканням між ними, легко натискаючи відповідні вкладки. Тут вкладка Office підтримує подібну обробку, яка дозволяє переглядати кілька документів Word або книги Excel у одному вікні Word або вікні Excel та легко перемикатися між ними, клацаючи їх вкладки. |
![]() |
Рекомендовані засоби підвищення продуктивності слів
Kutools для Word - Більше 100 вдосконалених функцій для Word, економите свій 50% часу
- Складні та повторювані операції можна виконати одноразово за кілька секунд.
- Вставте кілька зображень між папками в документ Word одночасно.
- Об’єднайте та об’єднайте декілька файлів Word у папках в одне із потрібним замовленням.
- Поділіть поточний документ на окремі документи відповідно до заголовка, розділу розділу чи інших критеріїв.
- Перетворюйте файли між Doc та Docx, Docx та PDF, колекцією інструментів для загальних перетворень та виділення тощо ...