Conas sraitheanna dúblacha a bhaint den tábla i ndoiciméad Word?
I ndoiciméad Word, d’fhéadfadh go mbeadh roinnt táblaí le sraitheanna dúblacha ar mhaith leat an chéad chuma a bhaint díobh agus an chéad chuma a choinneáil orthu uaireanta. Sa chás seo, is féidir leat a roghnú na cinn dhúblacha a bhaint ceann ar cheann de láimh, is féidir leat a roghnú an cód VBA a úsáid freisin.
Bain sraitheanna dúblacha ón tábla i Word
Bain sraitheanna dúblacha ón tábla i Word
1. Cuir an cúrsóir ag an mbord ar mhaith leat na sraitheanna dúblacha a bhaint de, brúigh Alt + F11 eochracha chun an Microsoft Visual Basic d’Fheidhmchláir fhuinneog.
2. cliceáil Ionsáigh > Modúil chun Modúl nua a chruthú.
3. Cóipeáil thíos na cóid agus déan iad a ghreamú den nua Modúil script.
VBA: Bain sraitheanna dúblacha ón tábla i 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. Brúigh F5 eochair chun an cód a rith, ansin bainfear na sraitheanna dúblacha go léir.
nótaí: Tá an cód thuas cás-íogair, más mian leat sraitheanna dúblacha a bhaint i gcás neamhíogair, is féidir leat an cód thíos a úsáid:
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
Más mian leat sraitheanna dúblacha a bhaint i ngach tábla den doiciméad, cuir an cúrsóir in aon áit doiciméad lasmuigh den tábla, ansin cuir ceann de na cóid thuas i bhfeidhm.
Brabhsáil tabbed & eagarthóireacht ar iliomad cáipéisí Word / leabhair oibre Excel mar Firefox, Chrome, Internet Explore 10! |
B’fhéidir go mbeadh cur amach agat ar leathanaigh ghréasáin iomadúla i Firefox / Chrome / IE, agus aistriú eatarthu trí chluaisíní comhfhreagracha a chliceáil go héasca. Anseo, tacaíonn Office Tab le próiseáil den chineál céanna, a ligeann duit ilcháipéisí Word nó leabhair oibre Excel a bhrabhsáil i bhfuinneog amháin Word nó i bhfuinneog Excel, agus aistriú go héasca eatarthu trí chliceáil ar a gcuid cluaisíní. |
Uirlisí Táirgiúlachta Oifige is Fearr
Kutools le haghaidh Word - Elevate Your Word Experience with Over 100 Gnéithe Suntasacha!
🤖 Cúntóir Kutools AI: athraigh do chuid scríbhinn le AI - Gin Ábhar / Athscríobh Téacs / Déan achoimre ar Dhoiciméid / Fiosraigh le haghaidh Faisnéise bunaithe ar Doiciméad, ar fad laistigh de Word
📘 Máistreacht Doiciméad: Leathanaigh Scoilte / Cumaisc Doiciméid / Roghnú Easpórtála i bhFormáidí Éagsúla (PDF/TXT/DOC/HTML...) / Baisc a thiontú go PDF / Easpórtáil Leathanaigh mar Íomhánna / Priontáil Comhaid Il ag an am céanna...
✏ Eagarthóireacht na nÁbhar: Faigh Baisc agus Ionadaigh thar Chomhaid Il / Athraigh Méid Gach Pictiúr / Trasnaigh Rónna Tábla agus Colúin / Tiontaigh Tábla go Téacs...
🧹 Effortless Glan: Sguab as Spásanna Breise / Sosanna Alt / Gach Ceanntásca / Boscaí Téacs / Hipearnasc / Le haghaidh tuilleadh uirlisí a bhaint, ceann chuig ár Bain Grúpa...
➕ Ionsáigh Cruthaitheach: cuir isteach Míle Deighilteoir / Boscaí Seiceála / Cnaipí Raidió / Cód QR / barcode / Tábla Líne Trasnánach / Fotheideal Cothromóid / Fotheideal Íomhá / Fotheideal Tábla / Pictiúir Il / Faigh amach níos mó sa Cuir isteach Grúpa...
🔍 Roghanna Beachtais: Pionta leathanaigh ar leith / táblaí / cruthanna / míreanna ceannteideal / Feabhsaigh an loingseoireacht le níos mó Roghnaigh gnéithe...
⭐ Feabhsuithe Réalta: Déan nascleanúint go tapa chuig aon láthair / cuir isteach téacs athchleachtach go huathoibríoch / scoránaigh gan uaim idir fuinneoga doiciméad / 11 Uirlisí Tiontaithe...