Cara menghapus baris kosong di Excel dengan VBA, rumus, dan Power Query

  • Bagikan Ini
Michael Brown

Tutorial ini akan mengajarkan Anda beberapa trik sederhana untuk menghapus beberapa baris kosong di Excel dengan aman tanpa kehilangan sedikit pun informasi .

Baris kosong di Excel adalah masalah yang kita semua hadapi sesekali, terutama saat menggabungkan data dari sumber yang berbeda atau mengimpor informasi dari tempat lain. Baris kosong dapat menyebabkan banyak malapetaka pada lembar kerja Anda pada level yang berbeda dan menghapusnya secara manual bisa menjadi proses yang memakan waktu dan rawan kesalahan.lembar kerja Anda.

    Bagaimana TIDAK menghapus baris kosong di Excel

    Ada beberapa cara berbeda untuk menghapus baris kosong di Excel, tetapi secara mengejutkan banyak sumber daya online tetap menggunakan yang paling berbahaya, yaitu Temukan &; Pilih > Pergi ke Khusus > Kosong .

    Apa yang salah tentang teknik ini? Ini memilih semua kosong dalam suatu rentang, dan akibatnya Anda akan menghapus semua baris yang berisi sebanyak satu sel kosong.

    Gambar di bawah ini menunjukkan tabel asli di sebelah kiri dan tabel yang dihasilkan di sebelah kanan. Dan dalam tabel yang dihasilkan, semua baris yang tidak lengkap hilang, bahkan baris 10 di mana hanya tanggal di kolom D yang hilang:

    Intinya: jika Anda tidak ingin mengacaukan data Anda, jangan pernah menghapus baris kosong dengan memilih sel kosong. Sebaliknya, gunakan salah satu pendekatan yang lebih dipertimbangkan yang dibahas di bawah ini.

    Cara menghapus baris kosong di Excel dengan VBA

    Excel VBA dapat memperbaiki banyak hal, termasuk beberapa baris kosong. Hal terbaik tentang pendekatan ini adalah tidak memerlukan keterampilan pemrograman apa pun. Cukup, ambil salah satu kode di bawah ini dan jalankan di Excel Anda (instruksinya ada di sini).

    Makro 1. Menghapus baris kosong dalam rentang yang dipilih

    Kode VBA ini secara diam-diam menghapus semua baris kosong dalam rentang yang dipilih, tanpa menampilkan pesan atau kotak dialog apa pun kepada pengguna.

    Tidak seperti teknik sebelumnya, makro menghapus sebuah baris jika seluruh baris kosong Ini bergantung pada fungsi lembar kerja CountA untuk mendapatkan jumlah sel yang tidak kosong di setiap baris, dan kemudian menghapus baris dengan jumlah nol.

    Public Sub DeleteBlankRows() Dim SourceRange As Range Dim EntireRow As Range Set SourceRange = Application.Selection If Not (SourceRange Is Nothing ) Then Application.ScreenUpdating = False For I = SourceRange.Rows.Count To 1 Step -1 Set EntireRow = SourceRange.Cells(I, 1).EntireRow If Application.WorksheetFunction.CountA(EntireRow) = 0 Then EntireRow.Delete End If Next Application.ScreenUpdating= Benar Akhir Jika End If End Sub

    Untuk memberikan kesempatan kepada pengguna untuk pilih kisaran target setelah menjalankan makro , gunakan kode ini:

    Public Sub HapusBarisKosong() Dim SourceRange As Range Dim EntireRow As Range On Error Resume Next Set SourceRange = Application.InputBox( _ "Pilih range:" , "Hapus Baris Kosong" , _ Application.Selection.Address, Type :=8) If Not (SourceRange Is Nothing ) Then Application.ScreenUpdating = False For I = SourceRange.Rows.Count To 1 Step -1 Set EntireRow = SourceRange.Cells(I, 1).EntireRow IfApplication.WorksheetFunction.CountA(EntireRow) = 0 Then EntireRow.Delete End If Next Application.ScreenUpdating = True End If End Sub

    Setelah berjalan, makro akan menampilkan kotak input berikut ini, Anda memilih kisaran target, dan klik OK:

    Dalam sekejap, semua garis kosong dalam kisaran yang dipilih akan dieliminasi dan yang tersisa akan bergeser ke atas:

    Makro 2. Hapus semua baris kosong di Excel

    Untuk menghapus semua baris kosong pada lembar aktif , tentukan baris terakhir dari rentang yang digunakan (yaitu baris yang berisi sel terakhir dengan data), lalu naik ke atas menghapus baris yang CountA mengembalikan nol:

    Sub DeleteAllEmptyRows() Dim LastRowIndex As Integer Dim RowIndex As Integer Dim UsedRng As Range Set UsedRng = ActiveSheet.UsedRange LastRowIndex = UsedRng.Row - 1 + UsedRng.Rows.Count Application.ScreenUpdating = False For RowIndex = LastRowIndex To 1 Step -1 If Application.CountA(Rows(RowIndex)) = 0 Then Rows(RowIndex).Delete End If Next RowIndex Application.ScreenUpdating = True End Sub

    Makro 3. Hapus baris jika sel kosong

    Dengan makro ini, Anda dapat menghapus seluruh baris jika sel di kolom yang ditentukan kosong.

    Kode berikut ini memeriksa kolom A untuk kosong. Untuk menghapus baris berdasarkan kolom lain, ganti "A" dengan huruf yang sesuai.

    Sub DeleteRowIfCellBlank() On Error Resume Next Columns( "A" ).SpecialCells(xlCellTypeBlanks).EntireRow.Delete End Sub

    Faktanya, makro ini menggunakan Pergi ke Khusus > Kosong dan Anda bisa mendapatkan hasil yang sama dengan melakukan langkah-langkah ini secara manual.

    Catatan. Makro menghapus baris kosong di dalam seluruh lembar Sebagai tindakan pencegahan, mungkin bijaksana untuk mencadangkan lembar kerja sebelum menjalankan makro ini.

    Cara menghapus baris kosong di Excel dengan VBA

    Untuk menghapus baris kosong di Excel menggunakan makro, Anda bisa menyisipkan kode VBA ke dalam buku kerja Anda sendiri atau menjalankan makro dari buku kerja sampel kami.

    Tambahkan makro ke buku kerja Anda

    Untuk menyisipkan makro dalam buku kerja Anda, lakukan langkah-langkah berikut ini:

    1. Buka lembar kerja tempat Anda ingin menghapus baris kosong.
    2. Tekan Alt + F11 untuk membuka Visual Basic Editor.
    3. Pada panel kiri, klik kanan Buku Kerja ini , lalu klik Sisipkan > Modul .
    4. Tempel kode di jendela Code.
    5. Tekan F5 untuk menjalankan makro.

    Untuk petunjuk langkah demi langkah yang mendetail, silakan lihat Cara menyisipkan dan menggunakan VBA di Excel.

    Jalankan makro dari buku kerja sampel kita

    Unduh buku kerja contoh kami dengan Makro untuk Menghapus Baris Kosong dan jalankan salah satu makro berikut dari sana:

    HapusBarisKosong - menghapus baris kosong dalam rentang yang saat ini dipilih.

    HapusBarisKosong - menghapus baris kosong dan menggeser ke atas dalam rentang yang Anda pilih setelah menjalankan makro.

    HapusSemuaBarisKosong - menghapus semua baris kosong pada sheet aktif.

    HapusBarisJikaSelKosong - menghapus baris jika sel dalam kolom tertentu kosong.

    Untuk menjalankan makro di Excel Anda, lakukan hal berikut:

    1. Buka buku kerja yang diunduh dan aktifkan makro jika diminta.
    2. Buka buku kerja Anda sendiri dan arahkan ke lembar kerja yang diinginkan.
    3. Di lembar kerja Anda, tekan Alt + F8, pilih makro, dan klik Lari .

    Rumus untuk menghapus baris kosong di Excel

    Jika Anda ingin melihat apa yang Anda hapus, gunakan rumus berikut untuk mengidentifikasi baris kosong:

    =IF(COUNTA(A2:D2)=0, "Kosong", "Tidak kosong")

    Di mana A2 adalah sel pertama dan D2 adalah sel yang terakhir digunakan dari baris data pertama.

    Masukkan rumus ini di E2 atau kolom kosong lainnya di baris 2, dan seret gagang isian untuk menyalin rumus ke bawah.

    Hasilnya, Anda akan memiliki "Blank" di baris kosong dan "Not blank" di baris yang berisi setidaknya satu sel dengan data:

    Logika rumus ini jelas: Anda menghitung sel yang tidak kosong dengan fungsi COUNTA dan menggunakan pernyataan IF untuk mengembalikan "Kosong" untuk hitungan nol, "Tidak Kosong" jika tidak.

    Bahkan, Anda bisa melakukannya dengan baik tanpa IF:

    =COUNTA(A2:D2)=0

    Dalam hal ini, rumus akan mengembalikan TRUE untuk baris kosong dan FALSE untuk baris yang tidak kosong.

    Dengan formula yang sudah ada, lakukan langkah-langkah ini untuk menghapus baris kosong:

    1. Pilih sel mana pun di baris header dan klik Urutkan &; Saring > Filter pada Rumah tab, di tab Format Ini akan menambahkan panah drop-down pemfilteran ke semua sel header.
    2. Klik tanda panah di tajuk kolom rumus, hapus centang (Pilih Semua), pilih Kosong dan klik OK :
    3. Pilih semua baris yang difilter. Untuk ini, klik pada sel pertama dari baris pertama yang difilter dan tekan Ctrl + Shift + End untuk memperluas pilihan ke sel terakhir dari baris terakhir yang difilter.
    4. Klik kanan pilihan, pilih Hapus baris dari menu konteks, lalu konfirmasikan bahwa Anda benar-benar ingin menghapus seluruh baris:
    5. Hapus filter dengan menekan Ctrl + Shift + L. Atau klik Rumah tab> Urutkan &; Saring > Filter .
    6. Hapus kolom dengan formula tersebut karena Anda tidak memerlukannya lagi.

    Itu saja! Hasilnya, kita memiliki tabel yang bersih tanpa baris kosong, tetapi semua informasi tetap terjaga:

    Tip. Alih-alih menghapus baris kosong, Anda bisa salin baris yang tidak kosong Untuk menyelesaikannya, saring baris "Tidak kosong", pilih dan tekan Ctrl + C untuk menyalin. Kemudian beralih ke lembar lain, pilih sel kiri atas dari rentang tujuan dan tekan Ctrl + V untuk menempel.

    Cara menghapus baris kosong di Excel dengan Power Query

    Di Excel 2016 dan Excel 2019, ada satu cara lagi untuk menghapus baris kosong - dengan menggunakan fitur Power Query. Di Excel 2010 dan Excel 2013, ini dapat diunduh sebagai add-in.

    Catatan penting! Metode ini bekerja dengan peringatan berikut: Power Query mengubah data sumber menjadi tabel Excel dan mengubah pemformatan seperti warna isian, batas, dan beberapa format angka. Jika pemformatan data asli Anda penting bagi Anda, maka Anda sebaiknya memilih cara lain untuk menghapus baris kosong di Excel.

    1. Pilih rentang di mana Anda ingin menghapus baris kosong.
    2. Pergi ke Data tab> Dapatkan &; Transformasi kelompok dan klik Dari Tabel/Range Ini akan memuat tabel Anda ke Power Query Editor.
    3. Pada Rumah dari Editor Kueri Daya, klik Hapus Baris > Hapus Baris Kosong .
    4. Klik Tutup &; Muat Ini akan memuat tabel yang dihasilkan ke lembar kerja baru dan menutup Query Editor.

    Sebagai hasil dari manipulasi ini, saya mendapatkan tabel berikut ini tanpa baris kosong, tetapi dengan beberapa perubahan buruk - format mata uang hilang dan tanggal ditampilkan dalam format default, bukan format kustom:

    Cara menghapus baris jika sel di kolom tertentu kosong

    Di awal tutorial ini, kami memperingatkan Anda agar tidak menghapus baris kosong dengan memilih kosong. Namun, metode ini berguna jika Anda ingin menghapus baris berdasarkan kosong dalam kolom tertentu .

    Sebagai contoh, mari kita hapus semua baris di mana sel di kolom A kosong:

    1. Pilih kolom kunci, kolom A dalam kasus kita.
    2. Pada Rumah tab, klik Temukan &; Pilih > Pergi ke Khusus Atau tekan F5 dan klik tombol Khusus... tombol.
    3. Dalam Pergi ke Khusus dialog, pilih Kosong dan klik OK Ini akan memilih sel kosong dalam rentang yang digunakan di kolom A.
    4. Klik kanan pada sel yang dipilih dan pilih Hapus... dari menu konteks.
    5. Dalam Hapus kotak dialog, pilih Seluruh baris dan klik OK.

    Selesai! Baris-baris yang tidak memiliki nilai di kolom A sudah tidak ada lagi:

    Hasil yang sama bisa dicapai dengan memfilter blanko dalam kolom kunci.

    Cara menghapus garis ekstra di bawah data

    Terkadang, baris yang terlihat benar-benar kosong mungkin sebenarnya berisi beberapa format atau karakter yang tidak dapat dicetak. Untuk memeriksa apakah sel terakhir dengan data benar-benar sel yang terakhir digunakan di lembar kerja Anda, tekan Ctrl + End . Jika ini membawa Anda ke baris kosong secara visual di bawah data Anda, dalam hal Excel, baris tersebut tidak kosong. Untuk menghapus baris tersebut, lakukan hal berikut:

    1. Klik header baris kosong pertama di bawah data Anda untuk memilihnya.
    2. Tekan Ctrl + Shift + End . Ini akan memilih semua baris yang berisi apa pun termasuk format, spasi dan karakter non-cetak.
    3. Klik kanan pilihan dan pilih Hapus... > Seluruh barisan.

    Jika Anda memiliki kumpulan data yang relatif kecil, Anda mungkin ingin menyingkirkan semua baris kosong di bawah data Anda, misalnya untuk mempermudah pengguliran. Meskipun, tidak ada cara untuk menghapus baris yang tidak digunakan di Excel, tidak ada yang akan mencegah Anda dari bersembunyi mereka. Begini caranya:

    1. Pilih baris di bawah baris terakhir yang berisi data dengan mengklik headernya.
    2. Tekan Ctrl + Shift + Panah bawah untuk memperpanjang pilihan ke baris terakhir pada lembar.
    3. Tekan Ctrl + 9 untuk menyembunyikan baris yang dipilih. Atau klik kanan pilihan, lalu klik Sembunyikan .

    Untuk buka barisan yang tersembunyi , tekan Ctrl + A untuk memilih seluruh lembar, kemudian tekan Ctrl + Shift + 9 untuk membuat semua garis terlihat kembali.

    Dengan cara yang sama, Anda dapat menyembunyikan kolom kosong yang tidak terpakai di sebelah kanan data Anda. Untuk langkah-langkah mendetail, silakan lihat Sembunyikan baris yang tidak digunakan di Excel sehingga hanya area kerja yang terlihat.

    Cara tercepat untuk menghapus baris kosong di Excel

    Ketika membaca contoh-contoh sebelumnya, bukankah rasanya seperti kita menggunakan palu godam untuk memecahkan kacang? Di sini, di Ablebits, kami lebih suka untuk tidak membuat hal-hal yang lebih kompleks daripada yang seharusnya. Jadi, kami mengambil langkah lebih jauh dan membuat rute dua klik untuk menghapus baris kosong di Excel.

    Dengan Ultimate Suite ditambahkan ke pita Anda, berikut ini cara yang bisa Anda lakukan hapus semua baris kosong dalam lembar kerja:

    1. Pada Alat Ablebits tab, di tab Mengubah kelompok, klik Hapus Kosong > Baris Kosong :
    2. Add-in akan memberi tahu Anda bahwa semua baris kosong akan dihapus dari lembar kerja aktif dan meminta konfirmasi. Klik OK, dan dalam sekejap, semua baris kosong akan dihilangkan.

    Seperti yang ditunjukkan dalam tangkapan layar di bawah ini, kami hanya menghapus garis yang benar-benar kosong yang tidak memiliki satu sel pun dengan data:

    Untuk mengetahui lebih banyak fitur luar biasa yang disertakan dengan Ultimate Suite for Excel kami, Anda dipersilakan untuk mengunduh versi uji coba.

    Saya berterima kasih telah membaca dan berharap bisa bertemu Anda di blog kami minggu depan!

    Michael Brown adalah penggemar teknologi berdedikasi dengan hasrat untuk menyederhanakan proses kompleks menggunakan perangkat lunak. Dengan pengalaman lebih dari satu dekade di industri teknologi, dia telah mengasah keahliannya di Microsoft Excel dan Outlook, serta Google Spreadsheet dan Dokumen. Blog Michael didedikasikan untuk berbagi pengetahuan dan keahliannya dengan orang lain, memberikan tip dan tutorial yang mudah diikuti untuk meningkatkan produktivitas dan efisiensi. Apakah Anda seorang profesional berpengalaman atau pemula, blog Michael menawarkan wawasan berharga dan saran praktis untuk mendapatkan hasil maksimal dari perangkat lunak penting ini.