
Cukup lama saya googling dan mencari alamat website penyedia file yang sudah berhasil saya download dihari sebelumnya, akan tetapi tak juga kunjung bertemu dengannya. Dan akhirnya, saya pun menyerah, dan tidak ingin membuang-buang waktu untuk mencari alamat yang saya sudah lupa.
Untung saja file yang saya download memiliki ekstensi .xls atau format file Microsoft Excel, jadinya saya bisa mengutak-atik isinya dengan sedikit kemampuan yang saya miliki, yang sekarang saya share kepada anda semuanya.
Saya tidak akan menampilkan file hasil download yang berantakan ketika saya buka di program Microsoft Excel, akan tetapi saya akan memberikan contoh yang mudah untuk di mengerti serta memiliki struktur yang hampir mirip dengan file tersebut - yang isinya kurang lebih seperti ini
Contoh data di atas pada dasarnya terdiri dari dua jenis, yakni huruf dan angka. Akan tetapi agak susah dibaca jika dalam kondisi penulisan yang berantakan seperti yang saya tulis diatas.
Nah, pada kesempatan ini saya akan share sebuah kode Macro VBA untuk membongkar data tersebut dan memisahkannya agar lebih enak dipandang dan tentunya agar lebih mudah dibaca.
Dan seperti biasa, karena yang akan saya share adalah berupa kode Macro VBA, maka pastikan jendela Microsoft Visual Basic Editor sudah diaktifkan, jika belum silahkan tekan tombol pintas
Selanjutnya adalah buat sebuah Module Baru, kemudian silahkan masukkan kode berikut kedalamnya.
Sub extext() Dim a, b, c As Long Dim d, e As Variant Range("E:F").Clear For a = 1 To 5 e = Cells(a, 1) b = Len(e) For c = 1 To b If Mid(e, c, 1) >= "0" And Mid(e, c, 1) <= "9" Then Cells(a, 5) = Cells(a, 5) & Mid(e, c, 1) ElseIf Mid(e, c, 1) > "9" Then Cells(a, 6) = Cells(a, 6) & Mid(e, c, 1) End If Next Next a End SubDua baris pertama dari kode diatas bertugas untuk mendeklarasikan nilai , kemudian dilanjutkan dengan perintah untuk menghapus kolom E dan F. Perintah ini saya gunakan untuk membersihkan kolom tempat peletakan hasil ekstraksi, agar tidak terjadi penumpukan hasil.
- nilai a terdiri dari nilai 1 sampai dengan 5, yang mana nantinya digunakan untuk membaca baris. Banyaknya jumlah baris bisa disesuaikan dengan banyaknya data yang tersimpan dalam lembar kerja, atau juga bisa menggunakan kode Current Region untuk mendeteksi jumlah baris secara otomatis.
- nilai e berasal dari baris ke-a dan kolom pertama
- nilai b berfungsi untuk membaca berapa jumlah karakter yang didapat dari nilai e
- nilai c memiliki fungsi yang hampir sama dengan nilai a, hanya saja nilai ini akan melakukan pengulangan mulai nilai 1 hingga panjang karakter yang terdapat di nilai b. Sementara didalam struktur perintah c, terdapat sebuah kondisi yang harus dipenuhi antara lain:
- Jika karakter yang terdapat di nilai e (baris ke-a dan kolom 1) untuk setiap karakter ke-c (karakter 1 hingga panjang yang didapatkan dari perintah atau nilai b) mempunyai nilai lebih kecil sama dengan 0 (nol) dan lebih besar sama dengan 9 (sembilan), maka sel ke-a kolom ke-5 akan diisi dan ditambahkan dengan nilai yang berisi angka.
- Kondisi yang kedua adalah, jika karakter-karakter tersebut memiliki nilai lebih besar dari 9, maka hasilnya berupa teks dan akan di letakkan di sel ke-a dan kolom ke-6
- Selesai.
Sekilas, bahasa logika diatas terkesan membingungkan, akan tetapi jika dipahami dengan seksama maka saya yakin anda akan mudah untuk memahaminya. Dan untuk melengkapi tutorial ini, seperti biasa saya akan menampilkan hasil akhir seperti dalam tampilan berikut :

Selamat, anda sekarang sudah bisa memecah dan memisahkan antara karakter berupa huruf dan angka dari data acak. Semoga tutorial kali ini ada guna dan manfaatnya untuk anda, dan bisa dengan mudah untuk dipahami.
Silahkan bookmark situs kami dan kunjungi kami lain waktu untuk mengetahui kehebatan Microsoft Excel lainnya bersama excelive.com.
Incoming Search Terms
Memisahkan huruf dan angka di lembar kerja Mengambil karakter tertentu dari sebuah data
Rumus Microsoft Excel untuk mencari data berupa angka atau huruf
Kode Macro VBA untuk memecah data dari satu sel ke sel lainnya
Menggunakan Formula Excel untuk mengekstrak sebuah data
Terimakasih sudah membaca
Tutorial: Begini Caranya Mengekstrak Huruf atau Angka Dari Data Acak
Label: Tips - Author: excelive
Tutorial: Begini Caranya Mengekstrak Huruf atau Angka Dari Data Acak
Label: Tips - Author: excelive
Masih mau belajar lagi !
Yuk, klik tautan berikut ini :