Skip i'r prif gynnwys

Sut i dynnu rhesi dyblyg o'r tabl yn nogfen Word?

Yn nogfen Word, efallai y bydd rhai tablau gyda rhesi dyblyg yr ydych am eu tynnu a chadw'r ymddangosiad cyntaf yn un weithiau. Yn yr achos hwn, gallwch ddewis cael gwared ar y rhai dyblyg fesul un â llaw, hefyd gallwch ddewis defnyddio'r cod VBA.

Tynnwch resi dyblyg o'r tabl yn Word


Tynnwch resi dyblyg o'r tabl yn Word

1. Rhowch y cyrchwr wrth y bwrdd rydych chi am dynnu'r rhesi dyblyg ohono, gwasgwch Alt + F11 allweddi i alluogi'r Microsoft Visual Basic ar gyfer Ceisiadau ffenestr.

2. Cliciwch Mewnosod > Modiwlau i greu Modiwl newydd.
doc dileu rhesi dyblyg table01

3. Copïwch isod y codau a'u pastio i'r newydd Modiwlau sgript.

VBA: Tynnwch resi dyblyg o'r tabl yn 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

doc dileu rhesi dyblyg table02

4. Gwasgwch F5 allwedd i redeg y cod, yna bydd yr holl resi dyblyg yn cael eu tynnu.
doc dileu rhesi dyblyg table03

Nodyn: Mae'r cod uchod yn sensitif i achosion, os ydych chi am gael gwared â rhesi dyblyg rhag ofn ansensitif, gallwch ddefnyddio isod y cod:

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

Os ydych chi am gael gwared â rhesi dyblyg ym mhob tabl o'r ddogfen, rhowch y cyrchwr mewn unrhyw le dogfen y tu allan i'r tabl, yna cymhwyswch un o'r codau uchod.


Pori tabbed a golygu nifer o ddogfennau Word / llyfrau gwaith Excel fel Firefox, Chrome, Internet Explore 10!

Efallai y byddwch yn gyfarwydd i weld tudalennau gwe lluosog yn Firefox/Chrome/IE, a newid rhyngddynt drwy glicio tabiau cyfatebol yn hawdd. Yma, mae Office Tab yn cefnogi prosesu tebyg, sy'n eich galluogi i bori sawl dogfen Word neu lyfrau gwaith Excel mewn un ffenestr Word neu ffenestr Excel, a newid yn hawdd rhyngddynt trwy glicio ar eu tabiau.
Cliciwch i dreialu Office Tab am ddim!

Porwch ddogfennau sawl gair mewn un ffenestr fel Firefox

Offer Cynhyrchiant Swyddfa Gorau

Kutools am Word - Dyrchafu Eich Profiad Word gyda Dros 100 Nodweddion Rhyfeddol!

Plymiwch i mewn i'r nodweddion a amlygwyd isod neu cliciwch yma i archwilio pŵer llawn Kutools ar gyfer Word.

📘 Meistrolaeth Dogfen: Tudalennau Hollti  /  Uno Dogfennau  /  Dewis Allforio mewn Fformatau Amrywiol (PDF/TXT/DOC/XLSX)  /  Trosi swp i PDF  /  Allforio Tudalennau fel Delweddau  /  Argraffu Ffeiliau Lluosog ar unwaith ...

Golygu Cynnwys: Swp Dod o Hyd i ac Amnewid ar draws Ffeiliau Lluosog   /  Newid Maint Pob Llun   /  Trawsosod Rhesi Bwrdd a Cholofnau  /  Trosi Tabl i Testun ...

🧹 Ymdrech GlânSweap i ffwrdd Mannau Ychwanegol  /  Toriadau Adran  /   Pob Pennawd  /  Blychau Testun  /  hypergysylltiadau  /  I gael rhagor o offer tynnu, ewch i'n Grŵp Dileu

Mewnosodiadau Creadigol: Mewnosod Mil o Wahanwyr  /  Blychau Gwirio  /  Botymau Radio  /  Cod QR  /  Cod Bar  /  Tabl Llinell Lletraws  /  Pennawd Hafaliad  /  Capsiwn Delwedd  /  Pennawd Tabl  /  Lluniau Lluosog  /  Darganfyddwch fwy yn ein Insert Group

🔍 Detholiadau Manwl: Nodwch dudalennau penodol  /  tablau  /  siapiau  /  paragraffau pennawd  /  Llywiwch yn rhwydd gan ddefnyddio ein Grŵp Dewis

Gwelliannau Seren: Llywiwch yn gyflym i unrhyw leoliad  /  auto-mewnosod testun ailadroddus  /  toglo'n ddi-dor rhwng ffenestri dogfennau  /  11 Offer Trosi ...

Trawsnewidiwch eich tasgau Word gyda Kutools. 👉 Dadlwythwch gyda threial 30 diwrnod Nawr 🚀.

 
Comments (0)
No ratings yet. Be the first to rate!
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations