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

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

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

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

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

للحصول على امتدادات الملفات من الخلايا، يمكن للصيغة التالية أن تساعدك.

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

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

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

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

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

1. اضغط مع الاستمرار على مفتاحي ALT + F11، وسيفتح نافذة Microsoft Visual Basic for Applications.

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

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

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 تشير إلى الخلية التي تريد استخراج الامتداد منها.

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

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

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