Note: The other languages of the website are Google-translated. Back to English

 كيف تجد بسرعة موضع الحرف الأول (ألفا) من السلسلة في إكسيل؟

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


فيما يلي بعض الصيغ لمساعدتك في العثور على موضع الحرف الأول في سلسلة.

حدد خلية فارغة ستضع النتيجة ، وهنا خذ B2 على سبيل المثال ، وأدخل هذه الصيغة =MATCH(TRUE,ISERROR(VALUE(MID(A2,ROW(INDIRECT("1:"&LEN(A2))),1))),0)، معلق شيفت + كترل، و اضغط أدخل مفتاح للحصول على النتيجة. ثم انقر فوق B2 واسحب مقبض التعبئة التلقائية فوق الخلايا التي تحتاج إلى تطبيق هذه الصيغة. انظر لقطة الشاشة:
doc اعثر على موضع الحرف الأول 2

معلومه- سرية: مع الصيغة أعلاه ، إذا لم يكن هناك أي حرف ألفا ، فسيتم عرض قيمة خطأ.
doc اعثر على موضع الحرف الأول 3

في الصيغة ، A2 هي الخلية التي تريد العثور على موضع ألفا الأول ، يمكنك تغييرها حسب حاجتك.


إذا كنت تقوم عادةً بتطبيق وظيفة محددة ، فهناك أيضًا وظيفة محددة لمساعدتك في العثور على أول ألفا والعودة إلى موضعها.

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

2. انقر إدراج > مجمع نموذجيهـ ، والصق الكود أدناه في ملف وحدة النصي.

VBA: ابحث عن موضع الحرف الأول

Function FirstNonDigit(xStr As String) As Long
'Updateby20220915
    Dim xChar As Integer
    Dim xPos As Integer
    Dim I As Integer
    Application.Volatile
    For I = 1 To Len(xStr)
        xChar = Asc(Mid(xStr, I, 1))
        If (xChar <= 90 And xChar >= 65) Or (xChar <= 122 And xChar >= 97) Then
            xPos = I
            Exit For
        End If
    Next
    FirstNonDigit = xPos
End Function

doc اعثر على موضع الحرف الأول 5

3. احفظ الكود وارجع إلى الورقة ، وحدد خلية فارغة وأدخل هذه الصيغة = FirstNonDigit (A15)، صحافة أدخل key ، ويمكنك العثور على موضع أول حرف ألفا.
doc اعثر على موضع الحرف الأول 6


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

كوتولس ل إكسيل, مع أكثر من 300 وظائف يدوية ، تجعل مهامك أكثر سهولة. 

بعد تركيب مجاني Kutools for Excel ، يرجى القيام بما يلي:

1. قم بعمل نسخة من السلاسل التي تريد استخراج أحرف ألفا منها. انظر لقطة الشاشة:
doc اعثر على موضع الحرف الأول 8

2. ثم حدد السلاسل المنسوخة وانقر فوق كوتولس > نص > إزالة الأحرف. انظر لقطة الشاشة:
doc اعثر على موضع الحرف الأول 12

3. وفي الموجه إزالة الأحرف الحوار ، تحقق غير ألفا فقط ، يمكنك معاينة النتائج المحذوفة أثناء إيداعك في أرسال صندوق. انظر لقطة الشاشة:
doc اعثر على موضع الحرف الأول 10

4. انقر Ok or قم بالمشاركة. الآن يتم استخراج أحرف ألفا فقط.
doc اعثر على موضع الحرف الأول 11


أفضل أدوات إنتاجية المكتب

Kutools for Excel يحل معظم مشاكلك ويزيد إنتاجيتك بنسبة 80٪

  • إعادة استخدام: أدخل بسرعة الصيغ المعقدة والرسوم البيانية وأي شيء استخدمته من قبل ؛ تشفير الخلايا مع كلمة السر إنشاء قائمة بريدية وإرسال رسائل البريد الإلكتروني ...
  • سوبر فورميولا بار (بسهولة تحرير أسطر متعددة من النص والصيغة) ؛ تخطيط القراءة (قراءة وتحرير أعداد كبيرة من الخلايا بسهولة) ؛ لصق في النطاق المصفى
  • دمج الخلايا / الصفوف / الأعمدة دون فقدان البيانات ؛ تقسيم محتوى الخلايا ؛ ادمج الصفوف / الأعمدة المكررة... منع تكرار الخلايا؛ قارن النطاقات
  • حدد مكرر أو فريد صفوف حدد صفوف فارغة (جميع الخلايا فارغة) ؛ البحث الفائق والبحث الغامض في العديد من المصنفات. تحديد عشوائي ...
  • نسخة طبق الأصل خلايا متعددة بدون تغيير مرجع الصيغة ؛ إنشاء المراجع تلقائيًا إلى أوراق متعددة أدخل الرموز النقطية، مربعات الاختيار والمزيد ...
  • استخراج النص، إضافة نص ، إزالة حسب الموضع ، إزالة الفضاء؛ إنشاء وطباعة المجاميع الفرعية لترحيل الصفحات ؛ التحويل بين محتوى الخلايا والتعليقات
  • سوبر تصفية (حفظ وتطبيق مخططات التصفية على أوراق أخرى) ؛ فرز متقدم حسب الشهر / الأسبوع / اليوم ، التكرار والمزيد ؛ مرشح خاص بواسطة bold، italic ...
  • اجمع بين المصنفات وأوراق العمل؛ دمج الجداول على أساس الأعمدة الرئيسية ؛ تقسيم البيانات إلى أوراق متعددة; تحويل دفعة xls و xlsx و PDF
  • أكثر من 300 ميزة قوية. يدعم Office / Excel 2007-2021 و 365. يدعم جميع اللغات. سهولة النشر في مؤسستك أو مؤسستك. الميزات الكاملة نسخة تجريبية مجانية لمدة 30 يومًا. ضمان استرداد الأموال لمدة 60 يومًا.
علامة تبويب kte 201905

يجلب Office Tab الواجهة المبوبة إلى Office ، ويجعل عملك أسهل بكثير

  • تمكين التحرير والقراءة المبوبة في Word و Excel و PowerPointوالناشر والوصول و Visio والمشروع.
  • فتح وإنشاء مستندات متعددة في علامات تبويب جديدة من نفس النافذة ، بدلاً من النوافذ الجديدة.
  • يزيد من إنتاجيتك بنسبة 50٪ ، ويقلل مئات النقرات بالماوس كل يوم!
أوفيسيتاب القاع
فرز التعليقات حسب
التعليقات (4)
لا يوجد تقييم. كن أول من يقيم!
تم تصغير هذا التعليق بواسطة المشرف على الموقع
"البحث عن موضع أول ألفا في سلسلة مع الصيغ": هذه الصيغة MATCH (TRUE ، ISERROR (VALUE (MID (A2، ROW (INDIRECT ("1:" & LEN (A2))) ، 1))) ، 0) خطأ إذا كان لديك فراغ في الخلية ... هل الفضاء هو ألفا؟!؟
تم تصغير هذا التعليق بواسطة المشرف على الموقع
الأساسية البصرية FirstNonDigit خاطئة أيضًا: تأخذ مساحة أو؟ أو ... كرسائل ، سيء سيء سيء
تم تصغير هذا التعليق بواسطة المشرف على الموقع
شكرا VBA جيدة ، ولكن افترض إذا كان الرقم العشري يأتي مثل 123.45GB؟
تم تصغير هذا التعليق بواسطة المشرف على الموقع
مرحبًا ، slowlearner ، لقد قمت بتحديث الكود في البرنامج التعليمي ، والآن سيجد فقط موضع الحرف الأبجدي الأول (باستثناء الرموز والأرقام). حاول مرة اخرى.
لا توجد تعليقات منشورة هنا حتى الآن
اترك تعليقاتك
النشر كضيف
×
قيم المنشور:
0   الشخصيات
المواقع المقترحة

تواصل معنا

حقوق التأليف والنشر © 2009 - شبكة الاتصالات العالمية.extendoffice.com. | كل الحقوق محفوظة. مشغل بواسطة ExtendOffice. | | خريطة الموقع
Microsoft وشعار Office هما علامتان تجاريتان أو علامتان تجاريتان مسجلتان لشركة Microsoft Corporation في الولايات المتحدة و / أو دول أخرى.
محمي بواسطة Sectigo SSL