Note: The other languages of the website are Google-translated. Back to English

Ինչպե՞ս Word փաստաթղթում սեղանից վերացնել կրկնօրինակ շարքերը:

Word փաստաթղթում կարող են լինել կրկնօրինակ շարքերով մի քանի աղյուսակներ, որոնք ցանկանում եք հեռացնել և երբեմն պահպանել առաջին տեսքը: Այս դեպքում դուք կարող եք ձեռքով մեկ առ մեկ հեռացնել կրկնօրինակները, ինչպես նաև կարող եք օգտագործել VBA կոդը:

Word- ում աղյուսակից հանեք կրկնօրինակ շարքերը


Word- ում աղյուսակից հանեք կրկնօրինակ շարքերը

1. Կուրսորը դրեք այն սեղանի մոտ, որտեղից ցանկանում եք հեռացնել կրկնօրինակ շարքերը, սեղմել Alt + F11 ստեղները ՝ Microsoft Visual Basic հավելվածների համար պատուհան.

2: սեղմեք Տեղադրել > Մոդուլներ ստեղծել նոր Մոդուլ:
փաստաթուղթը հեռացնել կրկնօրինակ տողերի աղյուսակը 01

3. Պատճենեք ներքևի ծածկագրերը և տեղադրեք դրանք նորին Մոդուլներ սցենար:

VBA. 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

փաստաթուղթը հեռացնել կրկնօրինակ տողերի աղյուսակը 02

4. Մամուլ F5 կոդը գործարկելու բանալին, ապա բոլոր կրկնօրինակ տողերը կհեռացվեն:
փաստաթուղթը հեռացնել կրկնօրինակ տողերի աղյուսակը 03

ՆշումԿոդի վերևում տառաչափը զգայուն է, եթե ուզում եք կրկնօրինակ տողերը հեռացնել անզգայուն լինելու դեպքում, կարող եք օգտագործել ստորև նշված ծածկագիրը.

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

Եթե ​​ցանկանում եք փաստաթղթի բոլոր աղյուսակներում վերացնել կրկնօրինակ տողերը, կուրսորը տեղադրեք աղյուսակից դուրս փաստաթղթի ցանկացած վայրում, ապա կիրառեք վերը նշված կոդերից մեկը:


Ներդիրներով զննում և խմբագրում բազմաթիվ Word փաստաթղթեր / Excel աշխատանքային գրքեր ՝ Firefox, Chrome, Internet Explore 10:

Ձեզ կարող է ծանոթ լինել Firefox / Chrome / IE- ում մի քանի ինտերնետային էջեր դիտելու և դրանց միջև փոխանակելը ՝ հեշտությամբ սեղմելով համապատասխան ներդիրները: Այստեղ Office Tab- ն աջակցում է նմանատիպ վերամշակման, որը թույլ է տալիս թերթել բազմաթիվ Word փաստաթղթեր կամ Excel աշխատանքային գրքեր մեկ Word պատուհանում կամ Excel պատուհանում և հեշտությամբ փոխել նրանց միջև ՝ կտտացնելով դրանց ներդիրներին:
Կտտացրեք Office Tab- ի անվճար փորձարկման համար:

Firefox- ով մեկ պատուհանում զննեք բազմաթիվ բառերի փաստաթղթեր

Բառի արտադրողականության առաջարկվող գործիքներ

 

Kutools Word- ի համար. Word- ի ավելի քան 100 առաջադեմ առանձնահատկություններ, խնայեք ձեր 50% ժամանակը

  • Բարդ և կրկնվող գործողությունները կարող են կատարվել միանգամյա մշակմամբ վայրկյանների ընթացքում:
  • Տեղադրեք բազմաթիվ պատկերներ միանգամից թղթապանակների մեջ Word փաստաթղթում:
  • Միացրեք և միացրեք բազմաթիվ Word ֆայլեր թղթապանակների մեջ մեկում ՝ ձեր ցանկալի պատվերի հետ:
  • Ընթացիկ փաստաթուղթը բաժանեք առանձին փաստաթղթերի `ըստ վերնագրի, հատվածի ընդմիջման կամ այլ չափանիշների:
  • Փոխարկել ֆայլերը Doc- ի և Docx- ի, Docx- ի և PDF- ի միջև, ընդհանուր փոխակերպումների և ընտրության գործիքների հավաքածու և այլն ...
Տեսակավորել մեկնաբանությունները ըստ
մեկնաբանություններ (0)
Դեռևս գնահատականներ չկան: Եղիր առաջինը, ով կգնահատի:
Առայժմ ոչ մի մեկնաբանություն չկա
Թողեք ձեր մեկնաբանությունները
Հրապարակում որպես հյուր
×
Գնահատեք այս գրառումը.
0   Անձնավորություններ
Առաջարկվող վայրեր