كيفية إزالة الصفوف المكررة من الجدول في مستند Word؟

الكاتب : شمس آخر تعديل: 2020-10-09

في مستند Word ، قد تكون هناك بعض الجداول ذات الصفوف المكررة التي تريد إزالتها والاحتفاظ بالمظهر الأول في بعض الأحيان. في هذه الحالة ، يمكنك اختيار إزالة التكرارات واحدة تلو الأخرى يدويًا ، كما يمكنك اختيار استخدام رمز VBA.

قم بإزالة الصفوف المكررة من الجدول في Word

قم بإزالة الصفوف المكررة من الجدول في Word

1. ضع المؤشر على الجدول الذي تريد إزالة الصفوف المكررة منه ، واضغط على ALT + F11 مفاتيح لتمكين ميكروسوفت فيسوال باسيك للتطبيقات نافذة.

2. انقر إدراج > وحدة لإنشاء وحدة جديدة.
إزالة doc من الصفوف المكررة table01

3. انسخ الرموز أدناه والصقها في الملف الجديد وحدة النصي.

فبا: إزالة الصفوف المكررة من الجدول في 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 من الصفوف المكررة table02

4. صحافة F5 مفتاح لتشغيل الكود ، ثم ستتم إزالة جميع الصفوف المكررة.
إزالة doc من الصفوف المكررة table03

ملاحظات: الرمز أعلاه حساس لحالة الأحرف ، إذا كنت تريد إزالة الصفوف المكررة في حالة عدم الحساسية ، يمكنك استخدام الكود أدناه:

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!