Conas sraitheanna dúblacha a bhaint den tábla i ndoiciméad Word?
Údar: SunAthraithe Deiridh: 2024-08-23
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.
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.
Cluaisín Oifige: Tugann sé comhéadain tábáilte chuig Word, Excel, PowerPoint ...
Déan Níos mó i Níos Lú Ama le Kutools Feabhsaithe AI le haghaidh Word
Ní hamháin sraith uirlisí é Kutools for Word - is réiteach cliste é atá deartha chun do tháirgiúlacht a threisiú. Le cumais AI-tiomáinte agus na gnéithe is bunriachtanach, cuidíonn Kutools leat níos mó a dhéanamh i níos lú ama:
Gin ábhar a oireann go foirfe do do chuid riachtanas.
Déan do chuid scríbhneoireachta a athrú le breis agus 20 stíl scríbhneoireachta, ag cinntiú go bhfuil sé gan smál.
Déan achoimre ar do dhoiciméad i cliceáil amháin.
Aistrigh d’inneachar go níos mó ná 40 teanga gan stró, ag cur le do rochtain ar fud an domhain.
Faigh cabhair agus faisnéis láithreach faoi do dhoiciméad.
Iarr ar phróiseáil doiciméad, agus má tá an uirlis ag Kutools, déanfaidh Cúntóir AI do thasc a fhorghníomhú láithreach ar do ordú, ag cur cumhacht iomlán Word ar do mhéara.
Iarr ar aon cheist gan Word a fhágáil - comhtháite gan uaim, tá an Cúntóir AI i gcónaí laistigh de bhaint amach.
Gin, athscríobh, achoimre, agus aistrigh inneachar le cad a tharlaíonn.
Faigh cabhair agus faisnéis láithreach faoi do dhoiciméad.
Iarr ar phróiseáil doiciméad, agus cuirfidh an Cúntóir AI an uirlis cheart i láthair agus déanfaidh sé an tasc, nó tabharfaidh sé treoir duit trí na céimeanna.
Iarr ar aon cheist gan Word a fhágáil - comhtháite gan uaim, tá an Cúntóir AI i gcónaí laistigh de bhaint amach.
