Kuinka poistaa päällekkäiset rivit taulukosta Word-asiakirjassa?
Kirjailija: SunViimeksi muokattu: 2024-08-23
Word-asiakirjassa saattaa olla taulukoita, joissa on päällekkäisiä rivejä, jotka haluat poistaa ja säilyttää joskus ensimmäisenä. Tässä tapauksessa voit poistaa kaksoiskappaleet yksitellen manuaalisesti, ja voit myös käyttää VBA-koodia.
1. Aseta kohdistin sen taulukon kohdalle, josta haluat poistaa päällekkäiset rivit, ja paina Alt + F11 näppäimiä ottaaksesi käyttöön Microsoft Visual Basic for Applications ikkunassa.
2. napsauttaa liite > Moduulit luodaksesi uuden moduulin.
3. Kopioi alla olevat koodit ja liitä ne uuteen Moduulit skriptejä.
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. Lehdistö F5 -näppäintä koodin suorittamiseksi, kaikki päällekkäiset rivit poistetaan.
Huomautuksia: Yllä oleva koodi on isot ja pienet kirjaimet erotteleva. Jos haluat poistaa päällekkäisiä rivejä, jos kirjainkoolla ei ole merkitystä, voit käyttää alla olevaa koodia:
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
Jos haluat poistaa päällekkäiset rivit asiakirjan kaikista taulukoista, aseta kohdistin mihin tahansa asiakirjan paikkaan taulukon ulkopuolella ja käytä sitten jotakin yllä olevista koodeista.
Office-välilehti: Tuo välilehtiliittymät Wordiin, Exceliin, PowerPointiin...
Tee enemmän lyhyemmässä ajassa tekoälyllä tehostettujen Wordin Kutools-työkalujen avulla
Kutools for Word ei ole vain joukko työkaluja - se on älykäs ratkaisu, joka on suunniteltu parantamaan tuottavuuttasi. Tekoälyohjattujen ominaisuuksien ja tärkeimpien ominaisuuksien ansiosta Kutools auttaa sinua saavuttamaan enemmän lyhyemmässä ajassa:
Tee yhteenveto, kirjoita uudelleen, kirjoita ja käännä sisältö välittömästi.
Oikoluku tekstiä reaaliajassa kieliopin, välimerkkien ja tyyliehdotusten avulla kirjoittaessasi.
Muotoile ja käännä sisältöä pitäen samalla asettelun, tyylin ja rakenteen koskemattomana.
Käännä sisältösi helposti yli 40 kielelle ja laajenna kattavuuttasi maailmanlaajuisesti.
Saat välitöntä apua ja älykkäitä oivalluksia nykyisen asiakirjasi sisältöön perustuen.
Kysy, kuinka suoritat tehtävän - kuten poistat osion taukoja - ja tekoäly opastaa sinua tai tekee sen puolestasi.
Poista arkaluontoiset tai luottamukselliset tiedot sekunneissa varmistaaksesi täydellisen yksityisyyden.
Kaikki työkalut toimivat saumattomasti Wordin sisällä, aina käden ulottuvilla.
Luo, tarkenna, käännä, tee yhteenveto ja suojaa asiakirjoja vaivattomasti.
Paranna kielioppia, selkeyttä ja sävyä kirjoittaessasi reaaliajassa.
Muotoile ja käännä sisältöä ilman asettelua tai muotoilun muutoksia.
Kysy, kuinka suoritat tehtävän - kuten poistat osion taukoja - ja tekoäly opastaa sinua tai tekee sen puolestasi.
Kaikki työkalut toimivat saumattomasti Wordin sisällä, aina käden ulottuvilla.
