Hoe verwijder ik dubbele rijen uit de tabel in een Word-document?
In een Word-document kunnen er enkele tabellen zijn met dubbele rijen die u wilt verwijderen en soms de eerste vorm wilt behouden. In dit geval kunt u ervoor kiezen om de dubbele handmatig een voor een te verwijderen, u kunt er ook voor kiezen om de VBA-code te gebruiken.
Verwijder dubbele rijen uit de tabel in Word
Verwijder dubbele rijen uit de tabel in Word
1. Plaats de cursor op de tabel waaruit u de dubbele rijen wilt verwijderen, druk op Alt + F11 toetsen om het Microsoft Visual Basic voor toepassingen venster.
2. klikken Invoegen > Module om een nieuwe module te maken.
3. Kopieer onderstaande codes en plak ze in het nieuwe Module scripts.
VBA: verwijder dubbele rijen uit de tabel in 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. druk op F5 sleutel om de code uit te voeren, dan worden alle dubbele rijen verwijderd.
Opmerking:: Bovenstaande code is hoofdlettergevoelig, als u dubbele rijen wilt verwijderen voor niet hoofdlettergevoelig, kunt u onderstaande code gebruiken:
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
Als u dubbele rijen in alle tabellen van het document wilt verwijderen, plaatst u de cursor op een willekeurige plaats van het document buiten de tabel en past u een van de bovenstaande codes toe.
Bladeren en bewerken met tabbladen in meerdere Word-documenten / Excel-werkmappen als Firefox, Chrome, Internet Explore 10! |
U bent wellicht bekend om meerdere webpagina's in Firefox / Chrome / IE te bekijken en tussen de webpagina's te schakelen door eenvoudig op de overeenkomstige tabbladen te klikken. Hier ondersteunt Office Tab vergelijkbare verwerking, waarmee u door meerdere Word-documenten of Excel-werkmappen kunt bladeren in één Word-venster of Excel-venster, en gemakkelijk tussen deze documenten kunt schakelen door op hun tabbladen te klikken. |
![]() |
Aanbevolen Word-productiviteitstools
Kutools For Word - Meer dan 100 geavanceerde functies voor Word, bespaar 50% tijd
- Ingewikkelde en herhaalde bewerkingen kunnen een eenmalige verwerking in seconden worden uitgevoerd.
- Voeg meerdere afbeeldingen in verschillende mappen tegelijk in een Word-document in.
- Voeg meerdere Word-bestanden in mappen samen en combineer ze tot één met de door u gewenste volgorde.
- Splits het huidige document in afzonderlijke documenten op basis van koptekst, sectie-einde of andere criteria.
- Converteer bestanden tussen Doc en Docx, Docx en PDF, verzameling tools voor algemene conversies en selectie, enzovoort ...