Cara Menghapus Baris Kosong/Rows Blank Dengan Vba Excel
Sering sekali data yang kita dapatkan dari internet atau file hasil conversi terdapat baris kosong atau row blank diantara data yang ada. Cara menghilangkan baris kosong sangatlah mudah.
Caranya klik kanan pada Rows yang blank selanjutnya keluar pilihan dan pilihlah delete. Namun jika baris yang kosong terletak tidak beraturan dan terdapat diantara banyak data, kita harus menghapusnya satu persatu dan mengulang pekerjaan yang sama.
 |
| Cara Menghapus Baris Kosong/Rows Blank Dengan Vba Excel |
Caranya klik tab Home selanjunya pada ribbon menu Editing pilih Find & Select, pilih Go To Special.
Selanjunya akan muncul DialogBox Go To Special dan klik select option Blank selanjutnya klik Ok. Maka area baris yang kosong diantara data akan di blog. Klik kanak pada baris yang telah diblog pilih Delete.
Secara umum pengguna Excel menggunakan salah satu dari kedua cara tersebut untuk menghapus baris kosong.
Menggunakan cara tersebut merupakan cara termudah yang tidak perlu banyak membuang tenaga dan pikiran.
Namun bagi orang yang suka membuat sistem kerja Excel lebih otomatis akan lebih suka menggunakan tombol yang dapat di klik untuk melakukan tugasnya menghapus baris kosong. Bagi yang sering dan suka melakukan dengan cara mudah mungkin posting ini cukup disini saja.
bagi yang ingin menindak lanjuti dengan menggunakan perintah kode silahkan melanjutkan membaca posting ini.
Dengan menggunakan perintah kode Vba kondisi menghapus baris kosong atau row blank dapat dilakukan dengan cepat. hanya satu kali klik saja semua baris kosong hilang dari data.
Pada kesempatan ini dengan judul posting Cara Menghapus Baris Kosong/Rows Blank Dengan Vba Excel Admin akan berbagi kode Vba yang dapat gunakan untuk keperluan menghapus baris kosong.
Langkah - Langkah Membuat Tombol Hapus Baris Kosong/Row Blank Dengan Menggunakan Kode Vba Excel
- Buka Excel, dan buatlah data seperti yang terlihat pada gambar format gif diatas yang dilengkapi dengan baris kosong tanpa data.
- Tambahkan sebuah CommandButton dengan cara klik pada tab Developer, pada ribbon menu insert pilih Insert dan klik pada CommandButton yang terdapat pada ActiveX Controls. Atur properties CommandButton dengan cara klik kanan pada CommandButton1 pilih properties. Ubahlah caption CommandButton1 menjadi Del Blank.
- Selanjutnya klik kanan pada CommandButton1 dengan caption Del Blank pilih View Code. Tulislah kode berikut ini pada jendela kode.
Private Sub CommandButton1_Click()
Dim SemuaBaris As Range
Dim BarisData As Range
Application.ScreenUpdating = False
Set SemuaBaris = Selection.SpecialCells(xlCellTypeBlanks) 'Pilih Cell Blank
For Each BarisData In SemuaBaris.Rows 'tiap - tiap baris yang kosong
If WorksheetFunction.CountA(BarisData.EntireRow) = 0 Then 'Bila tidak ada data pada kolom
BarisData.EntireRow.Delete 'menghapus baris
End If
Next BarisData
Application.ScreenUpdating = True
End Sub
Dim SemuaBaris As Range
Dim BarisData As Range
Application.ScreenUpdating = False
Set SemuaBaris = Selection.SpecialCells(xlCellTypeBlanks) 'Pilih Cell Blank
For Each BarisData In SemuaBaris.Rows 'tiap - tiap baris yang kosong
If WorksheetFunction.CountA(BarisData.EntireRow) = 0 Then 'Bila tidak ada data pada kolom
BarisData.EntireRow.Delete 'menghapus baris
End If
Next BarisData
Application.ScreenUpdating = True
End Sub
- Setelah menulis kode diatas pada CommandButton1 dengan caption Del Blank,.Ujilah tombol tersebut, bila penulisan dan penempatan kode sudah benar maka baris kosong yang ada diantara data akan terhapus dengan satu kali klik saja.
- Atau juga dapat menggunakan kode berikut ini untuk menghapus baris kosong/Blank
Private Sub CommandButton1_Click()
Dim rng As Range
'Melacak Baris kosong
On Error GoTo NoBlanksFound
Set rng = Range("A1:A10").SpecialCells(xlCellTypeBlanks)
On Error GoTo 0
'Hapus Baris yangKosong diantara data
rng.EntireRow.Delete
Exit Sub
'Bila Blank Tidak Ditemukan
NoBlanksFound:
MsgBox "Tidak Menemukan Baris Kosong"
End Sub
Dim rng As Range
'Melacak Baris kosong
On Error GoTo NoBlanksFound
Set rng = Range("A1:A10").SpecialCells(xlCellTypeBlanks)
On Error GoTo 0
'Hapus Baris yangKosong diantara data
rng.EntireRow.Delete
Exit Sub
'Bila Blank Tidak Ditemukan
NoBlanksFound:
MsgBox "Tidak Menemukan Baris Kosong"
End Sub
Demikian posting Cara Menghapus Baris Kosong/Rows Blank Dengan Vba Excel. Semoga dapat dijadikan referensi bagi yang mencari informasi Cara Menghapus Baris Kosong/Rows Blank Dengan Vba Excel.
Semoga dapat dikembangkan lagi sesuai dengan selera dan keinginan masing-masing. Jika posting ini dirasakan ada manfaat mohon dapat dishare dengan mengklik tombol share.
Saran dan kritikan dapat disampaikan pada kolom komentar dengan bijaksana.
File downloadnya..?
BalasHapusFile Vba Excel Syarat dan ketentuan Berlaku
Hapus