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

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

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

---

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

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

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

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

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

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

---

شرح الصيغة:

• 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 هذه جميع أحرف المسافات الزائدة بين الكلمات.

---

---

استخراج والحصول على الكلمة nth من سلسلة نصية باستخدام User Defined Function

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

1. اضغط على ALT + F11 مفاتيح لفتح ميكروسوفت فيسوال باسيك للتطبيقات نافذة.

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

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. وبعد ذلك ، اسحب الصيغة إلى خلايا أخرى للحصول على النتيجة التي تريدها ، انظر لقطة الشاشة:

---

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

---

الدوال النسبية المستخدمة:

---

المزيد من المقالات: