Cara Mengisi Sel Kosong

Mengisi Sel Kosong pada spreadsheet excel bisa dilakukan baik secara konvensional maupun dengan macro. Isi sel kosong secara konvensional harus mengikuti beberapa tahapan yaitu: 

• Menyeleksi sel kosong (Tab Home ⇨ Find & Replace ⇨ Goto Special... ⇨ Blanks ⇨ Ok)
• Mengetik data atau formula pada salah satu sel kosong
• Diakhiri dengan menekan Ctrl + Enter

Tiga proses manual diatas dapat dikonversi menjadi code macro sehingga kita bisa menjalankannya secara lebih cepat.

Ada dua jenis data yang sering dimasukan sebagai pengisi sel kosong yaitu:

• Isi sel kosong dengan angka Nol
• Isi sel kosong dengan data dari sel sebelah atasnya

Baik, langsung saja kita menuju TKP. Disini ada beberapa contoh code macro VBA Excel yang bisa langsung kamu copas dan gunakan untuk mengisi sel kosong.

1. Mengisi Sel Kosong dengan Angka Nol

Prosedur ini biasanya digunakan untuk kumpulan range berisi data numerik. Kamu bisa memilih membiarkannya tetap kosong (blank) atau pun memilih untuk mengisinya dengan angka 0 (Nol). Jika kamu memilih mengisinya dengan Nol maka daripada mengetik satu persatu, alangkah baiknya mencoba mengisi semua sel kosong sekaligus menggunakan macro.

Silahkan tinggal di copy code nya:

Type 1

Sub isiSelKosongDenganNol_1() Dim Target As Range, rangeKosong As Range Application.ScreenUpdating = False Application.Calculation = xlCalculationManual If TypeName(Selection) = "Range" Then Set Target = Selection Set rangeKosong = Target.SpecialCells(xlCellTypeBlanks) rangeKosong.Value = 0 End If Application.ScreenUpdating = True Application.Calculation = xlCalculationAutomatic End Sub

Cara menggunakan code

• Copy code dan paste ke module standar VBA
• Pilih range yang ingin di isi bagian sel kosongnya
• Jalankan Macro (Tab Developer ⇨ Macros ⇨ Pilih nama macro yang sesuai ⇨ Run)

Pada beberapa kasus, contoh code type 1  ini gagal mengindentifikasi sel kosong. Mimin pernah mengalaminya ketika mencoba prosedur isi kosong sebuah lembar kerja excel hasil download dari sebuah aplikasi. 

Type 2

Untuk mengatasi masalah gagal identifikasi sel kosong pada code type1, maka sebagai alternatifnya kita bisa menggunakan code type 2.

Sub isiSelKosongDenganNol_2() Dim Target As Range, sel As Range Application.ScreenUpdating = False Application.Calculation = xlCalculationManual If TypeName(Selection) = "Range" Then Set Target = Selection For Each sel In Target If sel.Value = "" Then sel.Value = 0 End If Next End If Application.ScreenUpdating = True Application.Calculation = xlCalculationAutomatic End Sub

Cara menggunakan code type 2 ini sama dengan type 1.

Secara performa kecepatan, code type 2 ini lebih lebih rendah dibandingkan type 1 karena harus melalui proses looping. Hanya saja type 2 diperlukan untuk mengatasi kelemahan type 1 yang terkadang gagal mengidentifikasi sel kosong. 

2. Mengisi Sel Kosong dengan Data yang Sama dari Sel di Atasnya

Selain angka 0 (nol), data yang sering digunakan untuk mengisi sel kosong adalah data yang sama dari sel sebelah atasnya. Mengisi sel kosong dengan data yang sama dari sel atasnya sangat penting, terutama jika kita akan mengolah data via fitur excel table dan pivot table.

Seperti halnya code macro untuk mengisi sel kosong,  mimin juga menampilkan 2 type contoh untuk mengisi sel kosong dari data sel sebelah atasnya

Langsung saja menuju contoh code, silahkan di copas..

Type 1

Sub isiSelKosongDenganDataDariSelAtasnya_1() Dim Target As Range, rangeKosong As Range Application.ScreenUpdating = False Application.Calculation = xlCalculationManual If TypeName(Selection) = "Range" Then Set Target = Selection Set rangeKosong = Target.SpecialCells(xlCellTypeBlanks) rangeKosong.Formula2R1C1 = "=R[-1]C" Target.Value = Target.Value End If Application.ScreenUpdating = True Application.Calculation = xlCalculationAutomatic End Sub

Type 2

Sub isiSelKosongDenganDataDariSelAtasnya_2() Dim Target As Range, sel As Range Application.ScreenUpdating = False Application.Calculation = xlCalculationManual If TypeName(Selection) = "Range" Then Set Target = Selection For Each sel In Target If sel.Value = "" Then sel.Value = sel.Offset(-1, 0).Value Next End If Application.ScreenUpdating = True Application.Calculation = xlCalculationAutomatic End Sub

Setelah dicopy ke modul VBA standar, cara menggunakan kedua contoh code tersebut sama yaitu:

• Pilih range yang ingin diisi bagisn sel kosongnya
• Jalankan macro (misalnya melalui tab Developer ⇨ Macros ⇨ pilih Macro yang sesuai ⇨ Run)

***

Itulah beberapa contoh code vba excel yang bisa digunakan untuk mengisi sel kosong pada lembar kerja excel.

Barangkali kamu juga tertarik mengenai contoh code macro berikut ini, silahkan diklik saja linknya:

• Contoh Code VBA Excel untuk Sisip Kolom Sekaligus
• Contoh Code VBA Excel untuk Sisip Baris Sekeligus
• Contoh Code VBA Excel untuk Hapus Kolom Kosong

Jika mau lebih banyak lagi, silahkan telusuri konten blog ini via Daftar Isi.

Jika teman -teman ada saran / koreksi, jangan segan-segan untuk tinggalkan komentar.

Salam..😎😎😎