Tip: andere talen zijn Google-Vertaald. Je kunt het English versie van deze link.
Log in
x
or
x
x
Registreren
x

or

Hoe dubbele rijen uit tabel in Word-document te verwijderen?

In Word-document kunnen er enkele tabellen met dubbele rijen zijn die u wilt verwijderen en u kunt de eerste keer voorkomen. In dit geval kunt u ervoor kiezen om de duplicaten één voor één handmatig te verwijderen, ook kunt u ervoor kiezen om de VBA-code te gebruiken.

Verwijder dubbele rijen uit de tabel in Word

Voeg snel het formulierveld voor selectievakjes in meerdere keren tegelijk in het Word-document in

Met Kutools voor Word's CheckBox hulpprogramma, u hoeft slechts één klik nodig te hebben, u kunt eenmaal per keer het selectievakje invoervak ​​invoegen in geselecteerde inhoud in het Word documnet. Klik voor gratis proefperiode van 45 dagen!
doc checkbox formulierveld
Kutools voor Word: met honderden handige Word-invoegtoepassingen, gratis om zonder beperking in 45-dagen te proberen.

Verwijder dubbele rijen uit de tabel in Word

1. Plaats de cursor aan de tafel waarvan u de dubbele rijen wilt verwijderen, druk op Alt + F11 toetsen om de Microsoft Visual Basic voor toepassingen venster.

2. klikken bijvoegsel > module om een ​​nieuwe module te maken.
doc verwijder dubbele tabel table01

3. Kopieer onderstaande codes en plak ze in de 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 Als object Dim I, J, KK, xNum As Long If ActiveDocument.Tables.Count = 0 Then MsgBox "Dit document heeft geen tabel (s). ", vbInformation," Kutools voor Word "Sub-einde afsluiten Als Application.ScreenUpdating = False xDic = CreateObject instellen (" Scripting.Dictionary ") If Selection.Information (wdWithInTable) Stel vervolgens xTable = Selection.Tables (1) in Voor I = xTable.Rows.Count To 1 Step -1 Set xRow = xTable.Rows (I) .Range xStr = xRow.Text xNum = -1 Als xDic.Exists (xStr) Then 'xTable.Rows (I) .Delete Voor 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) .Deletete 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 -XNU MX 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). Delate End If Next J = J - xNum Else xDic.Add xStr , J einde als volgende volgende einde als Application.ScreenUpdating = True End Sub

doc verwijder dubbele tabel table02

4. druk op F5 sleutel om de code uit te voeren, dan worden alle dubbele rijen verwijderd.
doc verwijder dubbele tabel table03

Notes: Bovenstaande code is hoofdlettergevoelig, als u dubbele rijen wilt verwijderen in het geval dat deze ongevoelig zijn, kunt u onderstaande code gebruiken:

Public Sub DeleteDuplicateRows2 () 'UpdatebyExtendoffice20181011 Dim xTable As Table Dim xRow As Range Dim xStr As String Dim xDic Als object Dim I, J, KK, xNum As Long If ActiveDocument.Tables.Count = 0 Then MsgBox "Dit document heeft geen tabel (s). ", vbInformation," Kutools voor Word "Sub-einde afsluiten Als Application.ScreenUpdating = False xDic = CreateObject instellen (" Scripting.Dictionary ") If Selection.Information (wdWithInTable) Stel vervolgens xTable = Selection.Tables (1) in Voor I = xTable.Rows.Count To 1 Step -1 Set xRow = xTable.Rows (I) .Range xStr = UCase (xRow.Text) xNum = -1 Als xDic.Exists (xStr) Then 'xTable.Rows (I ). Verwijderen voor J = xTabel.Rows.Count naar 1 Step -1 If (xStr = xTable.Rows (J) .Range.Text) And (J <> I) Then xNum = xNum + 1 xTable.Rows (J) . Verwijder Einde als Volgende I = I - xNum anders xDic.Voeg xStr toe, ik eindig als volgende anders voor I = 1 naar ActiveDocument.Tables.Count Set xTable = ActiveDocument.Tables (I) xNum = -1 xDic.RemoveAll For J = xTable.Rows.Count To 1 St ep -1 Set xRow = xTable.Rows (J) .Range xStr = UCase (xRow.Text) xNum = -1 Als xDic.Exists (xStr) Vervolgens 'xTable.Rows (I). Delet voor KK = xTable.Rows. Tel naar 1 Stap -1 If (xStr = xTable.Rows (KK) .Range.Text) En (KK <> J) Then xNum = xNum + 1 xTable.Rows (KK). Verwijder End If Next J = J - xNum Anders xDic.Add xStr, J einde als volgende volgende einde als 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 buiten de tabel en past u vervolgens een van de bovenstaande codes toe.


Met tabbladen bladeren en bewerken van meerdere Word-documenten / Excel-werkmappen als Firefox, Chrome, Internet Verken 10!

U kunt er bekend mee zijn om meerdere webpagina's in Firefox / Chrome / IE te bekijken en tussen deze pagina's te schakelen door eenvoudig op overeenkomstige tabbladen te klikken. Hier ondersteunt de Office-tab een vergelijkbare verwerking, waarmee u door meerdere Word-documenten of Excel-werkmappen kunt bladeren in één Word-venster of Excel-venster en eenvoudig kunt schakelen tussen deze documenten door op hun tabbladen te klikken.
Klik voor gratis proefversie van Office Tab!

Blader door documenten met meerdere woorden in één venster als Firefox


Aanbevolen Word-productiviteitstools

Kutools For Word - meer dan 100 geavanceerde functies voor Microsoft Word, sla uw 50% tijd op

  • Gecompliceerde en herhaalde bewerkingen kunnen eenmalig worden uitgevoerd in seconden.
  • Voeg meerdere afbeeldingen in meerdere mappen tegelijk in Word-documenten in.
  • Voeg meerdere Word-bestanden samen en combineer ze tot één map met de door u gewenste volgorde.
  • Splits het huidige document in afzonderlijke documenten volgens kop 1, sectie-einde of andere criteria.
  • Converteer bestanden tussen Doc en Docx, Docx en PDF, verzameling tools voor algemene conversies en selectie, en zo verder ...
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.