كيفية استخراج امتداد الملف من ورقة العمل؟

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

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

استخراج امتداد الملف من ورقة العمل باستخدام User Defined Function

---

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

لاستخراج امتدادات الملفات من الخلايا ، يمكنك الاستفادة من الصيغة التالية.

1. أدخل هذه الصيغة:

= REPLACE (RIGHT (A2,5،1)، 2,5، SEARCH ("."، RIGHT (AXNUMX،XNUMX))، "") في خلية فارغة بجانب بياناتك. انظر لقطة الشاشة:

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

---

استخراج امتداد الملف من ورقة العمل باستخدام User Defined Function

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

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

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

كود فبا: استخراج امتدادات الملفات من ورقة العمل

Function FileExt(FileName As String) As String
'Update 20141111
    On Error Resume Next
    If InStrRev(FileName, ".") > 0 Then FileExt = Right(FileName, Len(FileName) - InStrRev(FileName, "."))
    If Err <> 0 Then MsgBox Err.Description, vbCritical, "Kutools for Excel"
End Function

3. ثم احفظ هذا الرمز وأغلقه ، ثم عد إلى ورقة العمل ، وأدخل هذه الصيغة = FileExt (A2) في خلية فارغة بجوار بياناتك ، انظر لقطة الشاشة:

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

معلومه- سرية: في الصيغ أعلاه ، تشير A2 إلى الخلية التي تريد استخراج الامتداد منها.

---

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

كيفية إرجاع اسم الملف بدون امتداد للخلية؟

كيفية استخراج اسم الملف بسرعة من المسار الكامل في إكسيل؟