استخراج الكلمة النونية من سلسلة نصية في Excel

إذا كان لديك قائمة من السلاسل النصية أو الجمل، وترغب الآن في استخراج الكلمة النونية المحددة من القائمة كما هو موضح في لقطة الشاشة أدناه. في هذه المقالة، سأقدم بعض الطرق لحل هذه المهمة في Excel.

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

استخراج والحصول على الكلمة النونية من سلسلة نصية باستخدام صيغة

للتعامل مع هذه المهمة، يمكنك استخدام صيغة تجمع بين الدوال TRIM، MID، SUBSTITUTE، REPT وLEN معًا. الصيغة العامة هي:

• string: السلسلة النصية أو قيمة الخلية التي تريد استخراج كلمة منها.
• N: رقم الكلمة التي تريد استخراجها.

1. يرجى إدخال أو نسخ الصيغة التالية في خلية فارغة:

ملاحظة: في الصيغة أعلاه، A2 هي الخلية التي تحتوي على السلسلة النصية التي تريد استخدامها، B2 هو رقم الكلمة التي تريد استخراجها، ويمكن أيضًا إدخاله كرقم.

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

شرح الصيغة:

• 1. SUBSTITUTE(A2," ",REPT(" ",LEN(A2))):
• REPT(" ",LEN(A2): تقوم هذه الدالة REPT بتكرار حرف الفراغ عدد مرات محدد وهو طول النص في الخلية A2، مما يعطي عددًا من حروف الفراغ؛
• SUBSTITUTE(A2," ",REPT(" ",LEN(A2))): تقوم دالة SUBSTITUTE باستبدال كل حرف فراغ في الخلية A2 بعدد كبير من حروف الفراغ التي تم إرجاعها بواسطة دالة REPT، مما يعطي سلسلة نصية بها مسافات متعددة بين كل كلمة.
• يتم إعادة تنظيم هذا الجزء ليكون الوسيطة النصية في دالة MID.
• 2. (B2-1)*LEN(A2)+1: هذه الصيغة ستعيد موقع البداية للكلمة النونية من السلسلة النصية في الخلية A2. وهي وسيطة start_num لدالة MID.
• 3. MID(SUBSTITUTE(A2," ",REPT(" ",LEN(A2))), (B2-1)*LEN(A2)+1, LEN(A2)): تقوم دالة MID باستخراج الكلمة النونية من السلسلة النصية في الخلية A2 بناءً على الوسيطات التي تم إرجاعها بواسطة الصيغ أعلاه.
• 4. TRIM(): تقوم دالة TRIM بإزالة جميع حروف الفراغ الزائدة بين الكلمات.

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

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

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

2. انقر فوق Insert > Module، قم بنسخ ولصق الكود التالي في نافذة Module.

Function FindWord(Source As String, Position As Integer)
'Update by Extendoffice
Dim arr() As String
arr = VBA.Split(Source, " ")
xCount = UBound(arr)
If xCount < 1 Or (Position - 1) > xCount Or Position < 0 Then
    FindWord = ""
Else
    FindWord = arr(Position - 1)
End If
End Function

3. ثم احفظ وأغلق وحدة الكود، أدخل هذه الصيغة: =findword(A2,B2) في خلية فارغة حيث تريد إخراج النتيجة:

ملاحظة: في هذه الصيغة، A2 هي الخلية التي تحتوي على السلسلة النصية التي تريد استخدامها، B2 هو رقم الكلمة التي تريد استخراجها، ويمكن أيضًا إدخاله كرقم.

4. وبعد ذلك، اسحب الصيغة إلى الخلايا الأخرى للحصول على النتائج التي تحتاجها، انظر لقطة الشاشة:

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

الدوال ذات الصلة:

مقالات أخرى: