كيفية إزالة الحروف أو الكلمات المكررة في سلسلة نصية داخل خلية Excel؟

لنفترض وجود حروف أو كلمات مكررة في كل خلية، وترغب في إزالة هذه التكرارات والاحتفاظ فقط بالحروف أو الكلمات الفريدة. كيف يمكنك حل هذه المشكلة في Excel؟

إزالة الحروف المكررة من السلسلة النصية باستخدام دالة معرفة من قبل المستخدم

إزالة الكلمات المكررة المفصولة بعلامات ترقيم باستخدام دالة معرفة من قبل المستخدم

إزالة الحروف المكررة من السلسلة النصية باستخدام دالة معرفة من قبل المستخدم

إذا كان لديك قائمة من السلاسل النصية، وتحتاج الآن إلى إزالة الحروف المكررة كما هو موضح في لقطة الشاشة التالية. هنا، يمكنني أن أتحدث عن كود VBA للتعامل مع هذا الأمر.

1. اضغط باستمرار على مفاتيح ALT + F11 لفتح نافذة Microsoft Visual Basic for Applications.

2. انقر فوق إدراج > وحدة، ثم قم بلصق الكود التالي في نافذة الوحدة.

كود 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

3. بعد ذلك، احفظ وأغلق هذا الكود، عد إلى ورقة العمل، وأدخل هذه الصيغة =removedupes1(A2) (A2 هي الخلية التي تحتوي على البيانات التي تريد إزالة التكرارات منها) في خلية فارغة بجانب بياناتك، انظر إلى لقطة الشاشة:

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

اكتشف سحر Excel مع Kutools AI

• التنفيذ الذكي: قم بعمليات الخلية، وتحليل البيانات، وإنشاء المخططات - كل ذلك يتم من خلال أوامر بسيطة.
• الصيغ المخصصة: قم بإنشاء صيغ مصممة خصيصًا لتسهيل سير عملك.
• برمجة VBA: كتابة وتطبيق أكواد VBA بسهولة.
• تفسير الصيغ: فهم الصيغ المعقدة بسهولة.
• ترجمة النصوص: تجاوز الحواجز اللغوية داخل جداول البيانات الخاصة بك.

عزز قدرات Excel لديك باستخدام أدوات تعمل بالذكاء الاصطناعي. قم بالتنزيل الآن وعش تجربة الكفاءة كما لم يحدث من قبل!

إزالة الكلمات المكررة المفصولة بعلامات ترقيم باستخدام دالة معرفة من قبل المستخدم

إذا كانت هناك بعض الكلمات التي يتم فصلها بعلامات ترقيم معينة داخل الخلية، يمكنك أيضًا إزالة الكلمات المكررة كما ترغب. يرجى تنفيذ الخطوات التالية:

1. اضغط باستمرار على مفاتيح ALT + F11 لفتح نافذة Microsoft Visual Basic for Applications.

2. انقر فوق إدراج > وحدة، ثم قم بلصق الكود التالي في نافذة الوحدة.

كود VBA: إزالة الكلمات المكررة المفصولة بعلامات ترقيم داخل الخلية

Function RemoveDupes2(txt As String, Optional delim As String = " ") As String
    Dim x
    'Updateby Extendoffice
    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

3. بعد ذلك، احفظ وأغلق هذا الكود، عد إلى ورقة العمل، وأدخل هذه الصيغة =RemoveDupes2(A2,",") في خلية فارغة بجانب بياناتك، انظر إلى لقطة الشاشة:

4. ثم انسخ الصيغة إلى الأسفل نحو الخلايا التي تحتاجها، وسيتم إزالة جميع الكلمات المكررة من كل خلية. انظر إلى لقطة الشاشة:

ملاحظة: في الصيغة أعلاه، A2 تشير إلى الخلية التي تريد استخدامها، والفاصلة (,) تمثل علامة الترقيم التي تفصل بين الكلمات داخل الخلية، يمكنك تغييرها إلى أي علامات ترقيم أخرى حسب الحاجة.