انتقل إلى المحتوى الرئيسي

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

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


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

حدد خلية فارغة ستضع النتيجة ، وهنا خذ 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 AI: إحداث ثورة في تحليل البيانات على أساس: التنفيذ الذكي   |  إنشاء التعليمات البرمجية  |  إنشاء صيغ مخصصة  |  تحليل البيانات وإنشاء الرسوم البيانية  |  استدعاء وظائف Kutools...
الميزات الشعبية: البحث عن التكرارات أو تمييزها أو تحديدها   |  حذف الصفوف الفارغة   |  دمج الأعمدة أو الخلايا دون فقدان البيانات   |   جولة بدون صيغة 
سوبر بحث: معايير متعددة VLookup    VLookup ذات القيمة المتعددة  |   VLookup عبر أوراق متعددة   |   بحث غامض ....
قائمة منسدلة متقدمة: إنشاء القائمة المنسدلة بسرعة   |  القائمة المنسدلة التابعة   |  قائمة منسدلة متعددة التحديد ....
مدير العمود: إضافة عدد محدد من الأعمدة  |  نقل الأعمدة  |  تبديل حالة رؤية الأعمدة المخفية  |  مقارنة النطاقات والأعمدة 
الميزات المميزة: التركيز على الشبكة   |  عرض تصميم   |   شريط الفورمولا الكبير    مدير المصنفات والأوراق   |  مكتبة الموارد (النص السيارات)   |  منتقي التاريخ   |  اجمع أوراق العمل   |  تشفير/فك تشفير الخلايا    إرسال رسائل البريد الإلكتروني عن طريق القائمة   |  سوبر تصفية   |   مرشح خاص (تصفية غامق / مائل / يتوسطه خط ...) ...
أفضل 15 مجموعة أدوات12 نص الأدوات (إضافة نص, إزالة الأحرف، ...)   |   +50 رسم الأنواع (مخطط جانت، ...)   |   40+ عملي الصيغ (احسب العمر على أساس تاريخ الميلاد، ...)   |   19 إدخال الأدوات (أدخل رمز الاستجابة السريعة, إدراج صورة من المسار، ...)   |   12 تحويل الأدوات (أرقام إلى كلمات, نتيجة تحويل عملة، ...)   |   7 دمج وتقسيم الأدوات (الجمع بين الصفوف المتقدمة, تقسيم الخلايا، ...)   |   ... و اكثر

عزز مهاراتك في Excel باستخدام Kutools for Excel، واختبر كفاءة لم يسبق لها مثيل. يقدم Kutools for Excel أكثر من 300 ميزة متقدمة لتعزيز الإنتاجية وتوفير الوقت.  انقر هنا للحصول على الميزة التي تحتاجها أكثر...

الوصف


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

  • تمكين التحرير والقراءة المبوبة في Word و Excel و PowerPointوالناشر والوصول و Visio والمشروع.
  • فتح وإنشاء مستندات متعددة في علامات تبويب جديدة من نفس النافذة ، بدلاً من النوافذ الجديدة.
  • يزيد من إنتاجيتك بنسبة 50٪ ، ويقلل مئات النقرات بالماوس كل يوم!
Comments (4)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
thanks VBA good, but suppose if decimal number comes like 123.45GB ?
This comment was minimized by the moderator on the site
Hi,slowlearner, I have updated the code in the tutorial, now it will only find the position of first alphabetical character (excluding symbols and numbers). Please try again.
This comment was minimized by the moderator on the site
the visual basic FirstNonDigit is wrong too: it takes space or ? or... as letters, bad bad bad
This comment was minimized by the moderator on the site
"Find position of first alpha in string with formulas" : that formula MATCH(TRUE,ISERROR(VALUE(MID(A2,ROW(INDIRECT("1:"&LEN(A2))),1))),0) is wrong if you've got a space in the cell ...is a space an alpha?!?
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations