إزالة الأحرف أو الكلمات المكررة في Excel

عند العمل مع بيانات نصية في Excel، من الشائع مواجهة أحرف مكررة أو كلمات متكررة داخل خلية واحدة. يحدث هذا غالبًا مع البيانات المستوردة أو المدخلات اليدوية أو الوسوم أو أوصاف المنتجات. يمكن أن يؤدي تنظيف هذه التكرارات إلى تحسين القراءة وضمان اتساق البيانات وجعل التحليل اللاحق أكثر موثوقية.

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

• باستخدام صيغة Excel
• باستخدام Kutools لـ Excel بشكل جماعي
• باستخدام دالة معرّفة من قبل المستخدم

إزالة الأحرف المكررة في Excel

تعني إزالة الأحرف المكررة الاحتفاظ بأول ظهور لكل حرف داخل الخلية (على سبيل المثال، تحويل ")aabbcc« → »abc"). فيما يلي ثلاث طرق عملية لتحقيق ذلك.

باستخدام صيغة Excel

إذا كنت تستخدم Excel لـ Microsoft 365 أو Excel 2021 فأحدث، فيمكنك بسهولة إزالة الأحرف المكررة باستخدام صيغ المصفوفات الديناميكية. هذه الطريقة مدمجة بالكامل وتُحدَّث تلقائيًا كلما تغيَّرت البيانات الأصلية، مما يجعلها الخيار الأمثل للمستخدمين الذين يفضلون الحلول القائمة على الصيغ.

الخطوات:

1. اختر خلية فارغة لعرض النتيجة فيها (مثلًا، D2).
2. أدخل الصيغة التالية:

   =TEXTJOIN("",,UNIQUE(MID(A2,ROW(INDIRECT("1:"&LEN(A2))),1)))

3. اضغطEnter للحصول على النتيجة.
4. اسحب مقبض التعبئة لأسفل لتطبيق الصيغة على الخلايا الأخرى عند الحاجة.

   

كيف تعمل الصيغة:

• MIDتستخرج كل حرف من النص
• ROW+INDIRECTيولّد مواضع الأحرف
• UNIQUEإزالة التكرارات
• TEXTJOINيجمع النتيجة مرة أخرى في سلسلة نصية

استخدام Kutools لـ Excel بشكل جماعي

إذا كنت ترغب في تجنّب الصيغ المعقدة وتحتاج إلى طريقة أسرع وأسهل—خاصةً مع مجموعات البيانات الكبيرة—فإنKutools لـ Excelيوفّر لك حلاً مريحًا لإزالة الأحرف المكررة دفعة واحدة.

الخطوات:

1. حدد نطاق الخلايا الذي ترغب في إزالة الأحرف المكررة منه.
2. انتقل إلىKutools>النص>حذف الأحرف المحددة.

   

3. في مربع حوارحذف الأحرف المحددة، اختر فقط خيارالأحرف المكررة، ثم انقر فوقموافق.

   

النتيجة:

تُزال جميع الأحرف المكررة فورًا من كل خلية محددة، مع الاحتفاظ بأول ظهورٍ فقط.

المزايا:

• لا حاجة لصيغ أو برمجة
• يعمل في جميع إصدارات Excel
• يدعم المعالجة الجماعية
• واجهة بسيطة وبديهية
• يوفر وقتًا كبيرًا عند التعامل مع مجموعات بيانات ضخمة

باستخدام دالة معرّفة من قبل المستخدم

إذا كان إصدار Excel لديك لا يدعم صيغ المصفوفات الديناميكية، أو كنت تفضّل حلاً مخصصًا قابلاً لإعادة الاستخدام، يمكنك استخدام دالة VBA معرّفة من قبل المستخدم (UDF) لإزالة الأحرف المكررة.

الخطوات:

1. اضغطAlt + F11 لفتح محرر VBA.
2. انقرإدراج > وحدة نمطية.
3. الصق الكود التالي:
   كود VBA: إزالة الأحرف المكررة

   Function RemoveDupes1(pWorkRng As Range) As String
   'Updateby Extendoffice
   Dim xValue As String
   Dim xChar As String
   Dim xOutValue As String
   Set xDic = CreateObject("Scripting.Dictionary")
   xValue = pWorkRng.Value
   For i = 1 To VBA.Len(xValue)
       xChar = VBA.Mid(xValue, i, 1)
       If xDic.Exists(xChar) Then
       Else
           xDic(xChar) = ""
           xOutValue = xOutValue & xChar
       End If
   Next
   RemoveDupes1 = xOutValue
   End Function

   

4. اضغطAlt + Q لإغلاق محرر VBA والعودة إلى Excel.
5. في خلية فارغة تريد عرض النتيجة فيها، أدخل الصيغة التالية:

   =RemoveDupes1(C2)

   

إضافي: إزالة الكلمات المكررة باستخدام دالة معرّفة من قبل المستخدم

في بعض الحالات، قد تحتوي بياناتك على كلمات متكررة بدلًا من أحرف، مثل:

قد ترغب في الاحتفاظ بالكلمات الفريدة فقط مع الحفاظ على ترتيبها.

تسمح لك هذه الطريقة بإزالة الكلمات المكررة بناءً على محددٍ مثل الفاصلة أو المسافة أو الفاصلة المنقوطة.

الخطوات:

1. اضغطAlt + F11 لفتح محرر VBA.
2. انقرإدراج > وحدة نمطية.
3. الصق الكود التالي:
   كود VBA: إزالة الكلمات المكررة

   Function RemoveDupes2(txt As String, Optional delim As String = " ") As String
       Dim x
       With CreateObject("Scripting.Dictionary")
           .CompareMode = vbTextCompare
           For Each x In Split(txt, delim)
               If Trim(x) <> "" And Not .exists(Trim(x)) Then .Add Trim(x), Nothing
           Next
           If .Count > 0 Then RemoveDupes2 = Join(.keys, delim)
       End With
   End Function
   

   

4. اضغطAlt + Q لإغلاق محرر VBA والعودة إلى Excel.
5. في خلية فارغة تريد عرض النتيجة فيها، أدخل الصيغة التالية:

   =RemoveDupes2(A2,",")

6. اضغطEnterللحصول على النتيجة، ثم اسحبمقبض التعبئةلأسفل لتطبيق الصيغة على الخلايا الأخرى.

   

الخاتمة

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

• استخدم صيغ Excel إذا كنت تفضّل حلاً مدمجًا وديناميكيًا (Excel 365/2021).
• استخدم Kutools لـ Excel إذا كنت تبحث عن طريقة سريعة لمعالجة البيانات دفعةً واحدة دون الحاجة إلى استخدام الصيغ.
• استخدم دوال VBA إذا كنت بحاجة إلى مرونة أكبر أو تعمل على إصدارات قديمة من Excel.

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