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. κλικ Κύριο θέμα > Μονάδα μέτρησης για να δημιουργήσετε μια νέα ενότητα.
doc αφαιρέστε τις διπλές σειρές πίνακα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

doc αφαιρέστε τις διπλές σειρές πίνακα02

4. Τύπος F5 για να εκτελέσετε τον κώδικα, τότε όλες οι διπλές σειρές θα καταργηθούν.
doc αφαιρέστε τις διπλές σειρές πίνακα03

Note: Ο παραπάνω κώδικας είναι διάκριση πεζών-κεφαλαίων, εάν θέλετε να καταργήσετε διπλές σειρές σε περίπτωση που δεν είναι ευαίσθητη, μπορείτε να χρησιμοποιήσετε τον παρακάτω κώδικα

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

Συνιστώμενα εργαλεία παραγωγικότητας του Word

 

Kutools For Word - Περισσότερες από 100 προηγμένες λειτουργίες για το Word, εξοικονομήστε 50% χρόνο

  • Περίπλοκες και επαναλαμβανόμενες λειτουργίες μπορούν να γίνουν μία φορά επεξεργασία σε δευτερόλεπτα.
  • Εισαγάγετε πολλές εικόνες στους φακέλους στο έγγραφο του Word ταυτόχρονα.
  • Συγχώνευση και συνδυασμός πολλαπλών αρχείων Word σε όλους τους φακέλους σε ένα με την επιθυμητή σειρά.
  • Διαχωρίστε το τρέχον έγγραφο σε ξεχωριστά έγγραφα σύμφωνα με την επικεφαλίδα, το τμήμα αλλαγής ή άλλα κριτήρια.
  • Μετατροπή αρχείων μεταξύ Doc και Docx, Docx και PDF, συλλογή εργαλείων για κοινές μετατροπές και επιλογή και ούτω καθεξής ...
Σχόλια (0)
Δεν υπάρχουν ακόμη βαθμολογίες. Γίνε ο πρώτος που θα αξιολογήσετε!
Δεν υπάρχουν σχόλια δημοσιεύτηκε ακόμα
Αφήστε τα σχόλιά σας
Δημοσίευση ως επισκέπτης
×
Αξιολογήστε αυτήν την ανάρτηση:
0   Χαρακτήρες
Προτεινόμενες τοποθεσίες

Ακολουθησε μας

Πνευματικά δικαιώματα © 2009 - www.extendoffice.com. | Ολα τα δικαιώματα διατηρούνται. Τροφοδοτείται από ExtendOffice. | Sitemap
Το Microsoft και το λογότυπο του Office είναι εμπορικά σήματα ή σήματα κατατεθέντα της Microsoft Corporation στις Ηνωμένες Πολιτείες ή / και σε άλλες χώρες.
Προστατεύεται από το Sectigo SSL