كيفية استخراج الأحرف الأولى من الأسماء في Excel؟

عند معالجة سجلات العملاء أو القيام بدمج البريد ، قد يكون الحصول على الأحرف الأولى من اسم معين مفيدًا لك ، على سبيل المثال ، HG لـ Hal Greer. لذا أقدم لك هنا بعض الحيل لاستخراج الأحرف الأولى بسرعة من قائمة الأسماء في Excel.

استخراج الأحرف الأولى مع الصيغة في Excel

استخراج الأحرف الأولى من استخدام الوظيفة المحددة في Excel

استخراج الأحرف الأولى مع الصيغة في Excel

رائعة حقا! استخدام علامات تبويب فعالة في Excel مثل Chrome و Firefox و Safari!

وفر 50٪ من وقتك ، وقلل آلاف النقرات بالماوس كل يوم!

---

الطريقة الأولى هي استخدام الصيغة لاستخراج الأحرف الأولى من الأسماء في Microsoft Excel.

حدد خلية فارغة ، على سبيل المثال ، الخلية C2 ، اكتب هذه الصيغة =LEFT(A2)&IF(ISNUMBER(FIND(" ",A2)),MID(A2,FIND(" ",A2)+1,1),"")&IF(ISNUMBER(FIND(" ",A2,FIND(" ",A2)+1)),MID(A2,FIND(" ",A2,FIND(" ",A2)+1)+1,1),"")(A2 هي الخلية الأولى في قائمة الأسماء الخاصة بك) ، اضغط أدخل زر ، ثم اسحب مقبض التعبئة لملء النطاق. الآن ترى أن جميع الأحرف الأولى لكل اسم مستخرجة من قائمة الأسماء.

استخراج الأحرف الأولى من استخدام الوظيفة المحددة في Excel

إلى جانب الصيغة ، يمكنك استخدام الوظيفة المحددة لاستخراج الأحرف الأولى من الأسماء المحددة بسهولة في Microsoft Excel.

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

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

فبا: استخراج الأحرف الأولى من الأسماء

Function FirstCharacters(pWorkRng As Range) As String
'Updateby20140514
Dim arr As Variant
Dim xValue As String
Dim OutValue As String
xValue = pWorkRng.Value
arr = VBA.Split(Trim(xValue))
For i = 0 To UBound(arr)
    OutValue = OutValue & VBA.Left(arr(i), 1) & "."
Next
FirstCharacters = OutValue
End Function

3. احفظ الكود وأغلق النافذة ، وحدد خلية فارغة واكتب هذه الصيغة = أول حرف (A2)، ثم اضغط أدخل ، واسحب مقبض التعبئة لملء النطاق الذي تريده. بعد ذلك ، يمكنك رؤية الأحرف الأولى لكل اسم مستخرجة.

معلومه- سرية: يمكنك تغيير الفواصل "." من الأحرف الأولى كما تريد في VBA أعلاه.

مقالات ذات صلة:

• استخراج القيم الفريدة في Excel
• استخراج نص غامق في Excel

---

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

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

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

اقرأ أكثر... تحميل مجاني ... شراء... 

---

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

• تمكين التحرير والقراءة المبوبة في Word و Excel و PowerPointوالناشر والوصول و Visio والمشروع.
• فتح وإنشاء مستندات متعددة في علامات تبويب جديدة من نفس النافذة ، بدلاً من النوافذ الجديدة.
• يزيد من إنتاجيتك بنسبة 50٪ ، ويقلل مئات النقرات بالماوس كل يوم!

اقرأ أكثر... تحميل مجاني ... شراء...