Bagaimana cara mengekstrak ekstensi file dari lembar kerja?
Jika Anda memiliki kolom nama file yang termasuk ekstensi file, dan sekarang, Anda hanya ingin mendapatkan ekstensi file dari sel untuk tujuan tertentu. Untuk mengekstraknya satu per satu secara manual akan terlalu melelahkan, hari ini saya akan memperkenalkan beberapa trik mudah untuk menyelesaikannya.
Ekstrak ekstensi file dari lembar kerja dengan rumus
Ekstrak ekstensi file dari lembar kerja dengan User Defined Function
Ekstrak ekstensi file dari lembar kerja dengan rumus
Untuk mengekstrak ekstensi file dari sel, rumus berikut dapat membantu Anda.
1. Masukkan rumus ini:
= REPLACE (KANAN (A2,5), 1, SEARCH (".", RIGHT (A2,5)), "") ke dalam sel kosong selain data Anda. Lihat tangkapan layar:
2. Kemudian seret pegangan isian ke kisaran yang Anda inginkan untuk berisi rumus ini, dan semua ekstensi file telah diekstraksi dari sel, lihat tangkapan layar:
Ekstrak ekstensi file dari lembar kerja dengan User Defined Function
Cara lain juga dapat membantu Anda menyelesaikan pekerjaan ini, yaitu membuat User Defined Function.
1. Tahan ALT + F11 kunci, dan itu membuka Jendela Microsoft Visual Basic for Applications.
2. Klik Menyisipkan > Modul, dan tempel kode berikut di Jendela Modul.
Kode VBA: Ekstrak ekstensi file dari lembar kerja
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. Kemudian simpan dan tutup kode ini, kembali ke lembar kerja, dan masukkan rumus ini = FileExt (A2) ke dalam sel kosong di samping data Anda, lihat tangkapan layar:
4. Dan kemudian seret gagang isian ke kisaran yang ingin Anda isi rumus ini, dan semua ekstensi file telah diekstraksi dari kolom A, lihat tangkapan layar:
jenis: Dalam rumus di atas, A2 menunjukkan sel yang ingin Anda ekstrak ekstensinya.
Artikel terkait:
Bagaimana cara mengembalikan nama file tanpa ekstensi ke sel?
Bagaimana cara cepat mengekstrak nama file dari jalur lengkap di Excel?
Alat Produktivitas Kantor Terbaik
Tingkatkan Keterampilan Excel Anda dengan Kutools for Excel, dan Rasakan Efisiensi yang Belum Pernah Ada Sebelumnya. Kutools for Excel Menawarkan Lebih dari 300 Fitur Lanjutan untuk Meningkatkan Produktivitas dan Menghemat Waktu. Klik Di Sini untuk Mendapatkan Fitur yang Paling Anda Butuhkan...
Tab Office Membawa antarmuka Tab ke Office, dan Membuat Pekerjaan Anda Jauh Lebih Mudah
- Aktifkan pengeditan dan pembacaan tab di Word, Excel, PowerPoint, Publisher, Access, Visio, dan Project.
- Buka dan buat banyak dokumen di tab baru di jendela yang sama, bukan di jendela baru.
- Meningkatkan produktivitas Anda sebesar 50%, dan mengurangi ratusan klik mouse untuk Anda setiap hari!