إزالة عمود مكرر بسرعة من جدول Word (3 طريقة)

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

في هذا البرنامج التعليمي، ستتعرّف على ثلاث طرق فعّالة لإزالة الأعمدة المتطابقة تمامًا في جداول Word. سنبدأ بحلٍّ بديل باستخدام Excel عبر التحوير، ثم نستعرض كيفية إزالة التكرارات مباشرةً في Word باستخدام Kutools، ونختتم بتوضيح طريقة تنظيف تلقائي باستخدام ماكرو VBA. اختر الطريقة الأنسب لاحتياجاتك!

• الطريقة 1: إزالة عمود مكرر باستخدام Excel
• الطريقة 2: إزالة عمود مكرر باستخدام Kutools for Word
• الطريقة 3: إزالة عمود مكرر باستخدام VBA

إزالة عمود مكرر باستخدام Excel (حل بديل عبر التحوير)

هذه الطريقة خيار عملي للمستخدمين الذين لديهم إمكانية الوصول إلى Excel. يمكن لـ Excel إزالة الصفوف المكررة باستخدامبيانات > إزالة التكرارات. وبما أن Excel يُجري عملية إزالة التكرارات على مستوى الصفوف وليس الأعمدة، فعليك تحويل الجدول أولًا بحيث تصبح الأعمدة صفوفًا، ثم إزالة المكررات، وبعد ذلك إعادة تحويل البيانات إلى تخطيطها الأصلي:

Office Tab

تنقّل مزوَّد بعلامات تبويب لـ Word وExcel وPowerPoint وأكثر — تمامًا مثل متصفح الويب، مع تبديل سلس بين المستندات في نافذة واحدة.

تنزيل مجانيمعرفة المزيد

1. مرِّر مؤشر الماوس فوق الجدول الذي يحتوي على أعمدة مكررة لعرض مقبض تحريكه في الزاوية العلوية اليسرى، ثم انقر عليه لتحديد الجدول بأكمله.

   

2. اضغطCtrl + C لنسخ الجدول.
3. افتح Excel، وانقر على خلية فارغة، ثم اضغطCtrl + V للصق الجدول.
4. حدد الجدول الملصوق في Excel، ثم اضغطCtrl + Cمرة أخرى لنسخه.
   • انسخ الجدول مرة أخرى، لأن Excel يجب أن يتعرّف عليه كنطاق أصلي في ورقة العمل قبل أن يصبح خيارالتحويلمتاحًا.
5. انقر بزر الماوس الأيمن على خلية فارغة أخرى، واخترلصق خاص>تحوير(يمكنك العثور على خيار)التحويرفي مكانين كما هو موضح أدناه).

   

   • يحوّل هذا الأعمدة الأصلية إلى صفوف، مما يمكّن Excel من اكتشاف العمود المكرر بدقة.
6. حدد البيانات المحوّرة، ثم انتقل إلىبيانات>إزالة التكرارات.

   

7. في مربع الحوار، ألغِ تحديدتشمل العناوين، ثم انقرموافقلإزالة صف مكرر من البيانات المحوّرة.

   

8. انسخ البيانات المُنظَّفة (النطاق H1:L4 في لقطة الشاشة أدناه)، ثم انقر بزر الماوس الأيمن على خلية فارغة واستخدملصق خاص>تحويرمرة أخرى لاستعادة التوجيه الأصلي.

   

9. انسخ النتيجة النهائية والصقها مجددًا في Word.

   

إزالة عمود مكرر باستخدام Kutools for Word

إذا كان لديك Kutools for Word مثبّتًا، فهذه هي الطريقة الأكثر كفاءة وسهولة لإزالة العمود المكرر. يتيح لك Kutools حذف عمود مكرر مباشرةً داخل Word، سواء أردت معالجة الجدول الحالي أو تحديد جداول معيّنة أو جميع الجداول في المستند النشط. لست بحاجة إلى نسخ الجدول إلى Excel أو اللجوء إلى حلول بديلة، مما يجعله الحل الأسرع والأكثر عملية.

1. حدّد الجدول (أو الجداول) التي تريد إزالة العمود المكرر منها. وتخطَّ هذه الخطوة إذا كنت تنوي معالجة جميع الجداول في المستند النشط.
2. انقرKUTOOLS PLUS>جدول>حذف الصفوف/الأعمدة الفارغة.

   

3. في مربع الحوار:
   1. عيّنالبحث فيإلى أحد ما يلي:
      • الجدول المحدد(s)إذا كنت تريد معالجة الجداول المحددة فقط.
      • جميع الجداول في المستند النشطإذا كنت ترغب في معالجة كل جدول في المستند.
   2. اخترعمودًا.
   3. اخترعمودًا مكررًا.
   4. انقرموافقلإزالة عمود مكرر.

      

تتم إزالة جميع الأعمدة المتطابقة تمامًا من الجدول (أو الجداول) المحدد، أو من جميع الجداول في المستند النشط، وفقًا للخيار الذي تختاره.

إزالة عمود مكرر باستخدام VBA

إذا كنت تعمل بانتظام مع جداول كبيرة وتحتاج إلى إزالة عمود مكرر أكثر من مرة، فإن استخدام ماكرو VBA يمكن أن يوفّر لك الوقت. إذ يُمكّنك الماكرو من مقارنة الأعمدة تلقائيًا وحذف تلك المتطابقة تمامًا، مما يلغي الحاجة إلى الفحص اليدوي.

1. انقر داخل الجدول الذي ترغب في معالجته في Word.
2. اضغطAlt + F11 لفتح محرر VBA.
3. انقرإدراج>وحدة نمطية.

   

4. الصق الكود التالي في الوحدة النمطية.

   Sub RemoveDuplicateColumnsInSelectedTable()
       Dim tbl As Table
       Dim c1 As Long, c2 As Long
       Dim r As Long
       Dim isDup As Boolean
   
       If Selection.Information(wdWithInTable) = False Then
           MsgBox "Place the cursor inside the table first."
           Exit Sub
       End If
   
       Set tbl = Selection.Tables(1)
   
       For c1 = tbl.Columns.Count To 2 Step -1
           For c2 = c1 - 1 To 1 Step -1
   
               isDup = True
   
               For r = 1 To tbl.Rows.Count
                   If CleanCellText(tbl.Cell(r, c1).Range.Text) <> CleanCellText(tbl.Cell(r, c2).Range.Text) Then
                       isDup = False
                       Exit For
                   End If
               Next r
   
               If isDup Then
                   tbl.Columns(c1).Delete
                   Exit For
               End If
           Next c2
       Next c1
   
       MsgBox "Done. Duplicate columns removed."
   End Sub
   
   Private Function CleanCellText(ByVal s As String) As String
       s = Replace(s, Chr(13), "")
       s = Replace(s, Chr(7), "")
       CleanCellText = Trim$(s)
   End Function

5. اضغطF5 لتشغيل الماكرو.
6. سيظهر مربع حوار تأكيد ينص على: تم. تم إزالة عمود مكرر.انقرموافقلإغلاق الرسالة.

   

يتم إزالة جميع الأعمدة المتطابقة تمامًا تلقائيًا من الجدول المحدد، لتبقى في جدول Word الخاص بك فقط الأعمدة الفريدة.

أي طريقة تناسبك أكثر؟