Comment supprimer les lignes en double du tableau dans un document Word?
Dans le document Word, il peut y avoir des tableaux avec des lignes en double que vous souhaitez supprimer et conserver la première apparence parfois. Dans ce cas, vous pouvez choisir de supprimer les doublons un par un manuellement, vous pouvez également choisir d'utiliser le code VBA.
Supprimer les lignes en double du tableau dans Word
Supprimer les lignes en double du tableau dans Word
1. Placez le curseur sur la table dont vous souhaitez supprimer les lignes en double, appuyez sur Alt + F11 touches pour activer Microsoft Visual Basic pour applications fenêtre.
2. Cliquez insérer > Module pour créer un nouveau module.
3. Copiez les codes ci-dessous et collez-les dans le nouveau Module scripts.
VBA: supprimer les lignes en double du tableau dans 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. presse F5 clé pour exécuter le code, toutes les lignes en double seront supprimées.
Notes: Le code ci-dessus est sensible à la casse, si vous souhaitez supprimer les lignes en double insensible à la casse, vous pouvez utiliser le code ci-dessous:
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
Si vous souhaitez supprimer les lignes en double dans tous les tableaux du document, placez le curseur à n'importe quel endroit du document en dehors du tableau, puis appliquez l'un des codes ci-dessus.
Navigation par onglets et édition de plusieurs documents Word / classeurs Excel comme Firefox, Chrome, Internet Explore 10! |
Vous avez peut-être l'habitude d'afficher plusieurs pages Web dans Firefox/Chrome/IE et de basculer entre elles en cliquant facilement sur les onglets correspondants. Ici, Office Tab prend en charge un traitement similaire, qui vous permet de parcourir plusieurs documents Word ou classeurs Excel dans une fenêtre Word ou une fenêtre Excel, et de basculer facilement entre eux en cliquant sur leurs onglets. |
![]() |
Meilleurs outils de productivité bureautique
Kutools for Word - Élevez votre expérience Word avec Over 100 Caractéristiques remarquables !
Plongez dans les fonctionnalités mises en évidence ci-dessous ou cliquez ici pour découvrir toute la puissance de Kutools for Word.
(I.e. Maîtrise des documents: Pages divisées / Fusionner des documents / Exporter la sélection dans différents formats (PDF/TXT/DOC/XLSX) / Conversion par lots en PDF / Exporter des pages sous forme d'images / Imprimer plusieurs fichiers à la fois
✏ Édition du contenu: Rechercher et remplacer par lots sur plusieurs fichiers / Redimensionner toutes les images / Transposer les lignes et les colonnes du tableau / Convertir le tableau en texte
🧹 Nettoyage sans effort: Balayez Espaces supplémentaires / Sauts de section / Tous les en-têtes / Boîtes de texte / Liens hypertextes / Pour plus d'outils de suppression, rendez-vous sur notre groupe Supprimer
➕ Insertions créatives: insérer Mille séparateurs / Cases à cocher / Boutons radio / QR Code / Code barres / Tableau des lignes diagonales / Légende de l'équation / Légende / Légende de la table / Plusieurs images / Découvrez-en plus dans notre groupe d'insertion
🔍 Sélections de précision: Identifiez des pages spécifiques / les tables / formes / paragraphes de titre / Naviguez en toute simplicité grâce à notre groupe Select
⭐ Améliorations des étoiles: Naviguez rapidement vers n’importe quel endroit / insertion automatique de texte répétitif / basculer de manière transparente entre les fenêtres de document / 11 outils de conversion
Transformez vos tâches Word avec Kutools. 👉 Téléchargez avec un essai de 30 jours maintenant 🚀.
