كيفية استخراج امتداد الملف من ورقة العمل؟
إذا كان لديك عمود يحتوي على أسماء ملفات تتضمن امتدادات الملفات، وتريد الآن الحصول فقط على امتدادات الملفات من الخلايا لغرض معين. سيكون استخراجها واحدة تلو الأخرى يدويًا أمرًا مرهقًا للغاية. اليوم، سأقدم لك بعض الحيل السهلة لإكمال هذه المهمة.
استخراج امتداد الملف من ورقة العمل باستخدام الصيغة
استخراج امتداد الملف من ورقة العمل باستخدام دالة معرفة من قبل المستخدم
استخراج امتداد الملف من ورقة العمل باستخدام الصيغة
للحصول على امتدادات الملفات من الخلايا، يمكن للصيغة التالية أن تساعدك.
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؟
أفضل أدوات الإنتاجية لمكتب العمل
عزز مهاراتك في Excel باستخدام Kutools لـ Excel، واختبر كفاءة غير مسبوقة. Kutools لـ Excel يوفر أكثر من300 ميزة متقدمة لزيادة الإنتاجية وتوفير وقت الحفظ. انقر هنا للحصول على الميزة الأكثر أهمية بالنسبة لك...
Office Tab يجلب واجهة التبويب إلى Office ويجعل عملك أسهل بكثير
- تفعيل تحرير وقراءة عبر التبويبات في Word، Excel، PowerPoint، Publisher، Access، Visio وProject.
- افتح وأنشئ عدة مستندات في تبويبات جديدة في نفس النافذة، بدلاً من نوافذ مستقلة.
- يزيد إنتاجيتك بنسبة50%، ويقلل مئات النقرات اليومية من الفأرة!
جميع إضافات Kutools. مثبت واحد
حزمة Kutools for Office تجمع بين إضافات Excel وWord وOutlook وPowerPoint إضافة إلى Office Tab Pro، وهي مثالية للفرق التي تعمل عبر تطبيقات Office.
- حزمة الكل في واحد — إضافات Excel وWord وOutlook وPowerPoint + Office Tab Pro
- مثبّت واحد، ترخيص واحد — إعداد في دقائق (جاهز لـ MSI)
- الأداء الأفضل معًا — إنتاجية مُبسطة عبر تطبيقات Office
- تجربة كاملة لمدة30 يومًا — بدون تسجيل، بدون بطاقة ائتمان
- قيمة رائعة — وفر مقارنة بشراء الإضافات بشكل منفرد