Menghapus Baris Kosong dengan Kode VBA Excel

Untuk menghapus baris-baris yang kosong apabila datanya banyak dan yang dihapusnya juga banyak, maka kalau secara manual di delete pasti memerlukan banyak waktu. Untuk menghapus baris-baris yang kosong kita bisa menggunakan kode VBA Macro sehingga dengan sekali klik saja maka baris-baris yang kosongpun akan sekejap di hapus.

Cara Menghapus Baris Kosong dengan Kode VBA Excel

1. Masuk ke Microsoft Visual Basic for Applications window dengan menekan tombol Alt + F11 atau anda klik tab "Developer" lalu klik "Visual Basic". Apabila di Office anda belum tampil tab Developer, silahkan baca "Cara Menampilkan Ribbon Developer"


2. Klik Insert kemudian klik Module


3. Copy Paste kode berikut di bawah ini dan masukan ke dalam module


Kode VBA Excel untuk Menghapus Baris Kosong

'https://baladaka.blogspot.com
'============================

 Sub HapusBarisKosong()

    Dim rng As Range
    Dim calcmode As Long
    Dim myArr As Variant
    Dim i As Long

    With Application
        calcmode = .Calculation
        .Calculation = xlCalculationManual
        .ScreenUpdating = False
    End With

    myArr = Array("baladaka", "")

    For i = LBound(myArr) To UBound(myArr)

        With ActiveSheet

           .AutoFilterMode = False

           .Range("B2:B" & .Rows.Count).AutoFilter Field:=1, Criteria1:=myArr(i)

            Set rng = Nothing
            With .AutoFilter.Range
                On Error Resume Next
                
                Set rng = .Offset(1, 0).Resize(.Rows.Count - 1, 1) _
                          .SpecialCells(xlCellTypeVisible)
                On Error GoTo 0
                If Not rng Is Nothing Then rng.EntireRow.Delete
            End With

            .AutoFilterMode = False
        End With

    Next i

    With Application
        .ScreenUpdating = True
        .Calculation = calcmode
    End With

End Sub




Catatan

Pada kode di atas atau pada contoh file yang dilampirkan di bawah bahwa kita akan menghapus baris yang kosong dengan patokan pada kolom B
Jadi apabila pada baris yang dimulai dari B2 hingga baris B (baris B sampai tak terhingga atau tidak ditentukan batasan barisnya) ada baris yang kosong maka baris yang kosong tersebut akan dihapus




4. Buatkan sebuah tombol untuk memanggil kode untuk menghapus tersebut


5. Simpan file tersebut ke dalam type atau Save as type : Excel Macro-Enabled Workbook atau type Excel Binary Workbook

Silahkan anda coba klik tombol "Hapus Baris Kosong" pada file contoh yang bisa anda download di bawah.

Contoh File Menghapus Baris Kosong dengan VBA Excel

Link Alternatif

Jika File tidak ter-download otomatis, silahkan klik Link Alternatif