Note: The other languages of the website are Google-translated. Back to English

Bagaimana cara menghapus seluruh baris jika sel berisi nol di Excel?

Terkadang, Anda ingin menghapus seluruh baris jika sel berisi nol di Excel, dan Anda dapat menghapusnya satu per satu jika jumlahnya sedikit. Tetapi bagaimana jika ratusan baris yang mengandung nol perlu dihilangkan? Anda bisa memilih salah satu cara rumit di bawah ini untuk menyelesaikannya.

Hapus baris jika sel berisi nol dengan fungsi Filter di Excel
Hapus baris jika sel berisi nol dengan VBA di Excel
Hapus baris jika sel berisi nol dengan Kutools for Excel


Hapus baris jika sel berisi nol dengan fungsi Filter di Excel

Anda dapat menggunakan fungsi Filter untuk memfilter semua baris berdasarkan nilai nol di kolom tertentu, lalu menghapus semua baris yang terlihat nanti. Silakan lakukan sebagai berikut.

1. Pilih sel kolom yang berisi nilai nol yang Anda ingin hapus dari seluruh baris, lalu klik Data > SARING. Lihat tangkapan layar:

2. Kemudian panah drop-down ditampilkan di sel pertama dari kolom yang dipilih, klik panah tersebut, lalu pilih Filter Angka > sama dari daftar drop-down

doc hapus jika nol 1

3. Dalam Filter Otomatis Kustom kotak dialog, masukkan nomor 0 ke dalam kotak teks seperti gambar di bawah ini yang ditampilkan, dan kemudian klik OK .

doc hapus jika nol 1

4. Kemudian semua sel nilai nol di kolom tertentu ini disaring. Pilih semua sel yang terlihat dalam kisaran filter dan klik kanan padanya, pilih Hapus Baris dari menu klik kanan. Dan di kotak prompt yang muncul, klik OK tombol. Lihat tangkapan layar:

doc hapus jika nol 1

5. Sekarang semua baris yang terlihat dihapus. Anda bisa mengklik Data > SARING lagi untuk menampilkan semua data tanpa sel nilai nol. Lihat tangkapan layar:

doc hapus jika nol 1


Hapus semua baris dengan mudah jika ada nilai nol dalam kisaran tertentu di Excel:

Kutools untuk Excel Pilih Sel Spesifik utilitas membantu Anda dengan mudah memilih seluruh baris jika ada nilai nol dalam kisaran tertentu, dan kemudian Anda dapat dengan cepat menghapus semua baris yang dipilih secara manual tanpa kesalahan.
Unduh dan coba sekarang! (Jejak gratis 30 hari)


Hapus baris jika sel berisi nol dengan VBA di Excel

Bagian ini akan menunjukkan kepada Anda metode VBA untuk menghapus semua baris jika ada nilai nol di kolom tertentu di Excel.

1. tekan Alt + F11 tombol secara bersamaan untuk menampilkan Microsoft Visual Basic untuk Aplikasi jendela.

2. Di jendela Microsoft Visual Basic for Applications, klik Menyisipkan > Modul, lalu salin dan tempel kode VBA berikut ke jendela modul.

VBA: Hapus seluruh baris jika ada nilai nol dalam rentang kolom tertentu di lembar kerja

Sub DeleteZeroRow () 'Updateby20140616 Dim Rng Sebagai Rentang Redup WorkRng Sebagai Rentang Pada Kesalahan Lanjutkan Berikutnya xTitleId = "KutoolsforExcel" Set WorkRng = Application.Selection Set WorkRng = Application.InputBox ("Range", xTitleId, WorkRng.Address, Jenis: = 8 ) Application.ScreenUpdating = Salah Setel Rng = WorkRng.Find ("0", LookIn: = xlValues) Jika Tidak Rng Tidak Ada Lalu Rng.EntireRow.Delete End If Loop While Not Rng Is Nothing Application.ScreenUpdating = True End Sub

3. tekan F5 kunci untuk menjalankan kode, di popping KutoolsforExcel kotak dialog, pilih rentang kolom yang ingin Anda hapus seluruh baris berdasarkan nilai nol di dalamnya, lalu klik OK tombol. Lihat tangkapan layar:

doc hapus jika nol 1

Kemudian semua baris berdasarkan nilai nol dalam rentang kolom yang ditentukan segera dihapus.

doc hapus jika nol 1


Hapus baris jika sel berisi nol dengan Kutools for Excel

Bagi banyak pengguna Excel, menggunakan kode VBA berbahaya untuk menghapus data di Excel. Jika Anda tidak benar-benar mempercayai kode VBA, di sini kami menyarankan Anda untuk mencoba Pilih Sel Spesifik kegunaan Kutools untuk Excel.

Sebelum melamar Kutools untuk Excel, Mohon unduh dan instal terlebih dahulu.

1. Pilih rentang kolom yang akan Anda hapus seluruh baris berdasarkan nilai nol di dalamnya, lalu klik Kutools > Pilih > Pilih Sel Spesifik. Lihat tangkapan layar:

2. Dalam Pilih Sel Spesifik dialog, Anda perlu:

(1) Pilih Seluruh baris pilihan dalam Tipe pilihan bagian.

(2) Pilih sama di pertama Tipe khusus daftar drop-down, lalu masukkan nomor 0 ke dalam kotak teks.

(3) Klik OK .

3. Sebuah kotak dialog muncul untuk memberitahu Anda berapa banyak baris yang telah dipilih, klik OK tombol. Sekarang semua baris dengan nilai nol yang ada di kisaran kolom yang ditentukan dipilih. Harap klik kanan ke baris mana pun yang dipilih, lalu klik Delete di menu klik kanan. Lihat tangkapan layar:

doc hapus jika nol 1

Sekarang semua baris dengan nilai nol yang ada di kolom yang ditentukan segera dihapus. Lihat tangkapan layar:

doc hapus jika nol 1

  Jika Anda ingin memiliki uji coba gratis (30 hari) dari utilitas ini, silahkan klik untuk mendownloadnya, lalu lanjutkan untuk menerapkan operasi sesuai langkah di atas.


Hapus baris jika sel berisi nol dengan Kutools for Excel


Artikel Relatif:


Alat Produktivitas Kantor Terbaik

Kutools for Excel Memecahkan Sebagian Besar Masalah Anda, dan Meningkatkan Produktivitas Anda hingga 80%

  • Reuse: Masukkan dengan cepat rumus, bagan yang kompleks dan apa pun yang pernah Anda gunakan sebelumnya; Enkripsi Sel dengan kata sandi; Buat Milis dan mengirim email ...
  • Bilah Formula Super (dengan mudah mengedit beberapa baris teks dan rumus); Membaca Tata Letak (membaca dan mengedit sel dalam jumlah besar dengan mudah); Tempel ke Rentang yang Difilter...
  • Gabungkan Sel / Baris / Kolom tanpa kehilangan Data; Pisahkan Konten Sel; Gabungkan Baris / Kolom Duplikat... Mencegah Sel Duplikat; Bandingkan Rentang...
  • Pilih Duplikat atau Unik Baris; Pilih Baris Kosong (semua sel kosong); Temukan Super dan Temukan Fuzzy di Banyak Buku Kerja; Pilih Acak ...
  • Salinan Tepat Beberapa Sel tanpa mengubah referensi rumus; Buat Referensi Otomatis ke Beberapa Lembar; Sisipkan Poin, Kotak Centang, dan lainnya ...
  • Ekstrak Teks, Tambahkan Teks, Hapus berdasarkan Posisi, Hapus Space; Membuat dan Mencetak Subtotal Paging; Konversi Konten Antar Sel dan Komentar...
  • Filter Super (simpan dan terapkan skema filter ke sheet lain); Penyortiran Lanjutan menurut bulan / minggu / hari, frekuensi dan lainnya; Filter Khusus dengan huruf tebal, miring ...
  • Gabungkan Workbooks dan WorkSheets; Gabungkan Tabel berdasarkan kolom kunci; Pisahkan Data menjadi Beberapa Lembar; Konversi Batch xls, xlsx dan PDF...
  • Lebih dari 300 fitur canggih. Mendukung Office / Excel 2007-2019 dan 365. Mendukung semua bahasa. Penerapan yang mudah di perusahaan atau organisasi Anda. Fitur lengkap uji coba gratis 30 hari. Jaminan uang kembali 60 hari.
tab kte 201905

Tab Office Membawa antarmuka Tab ke Office, dan Membuat Pekerjaan Anda Jauh Lebih Mudah

  • Aktifkan pengeditan dan pembacaan tab di Word, Excel, PowerPoint, Publisher, Access, Visio, dan Project.
  • Buka dan buat banyak dokumen di tab baru di jendela yang sama, bukan di jendela baru.
  • Tingkatkan produktivitas Anda hingga 50%, dan kurangi ratusan klik mouse untuk Anda setiap hari!
officetab bawah
Urutkan komentar berdasarkan
komentar (15)
Belum ada peringkat. Jadilah yang pertama memberi peringkat!
Komentar ini diminimalkan oleh moderator di situs
Ini adalah penyelamat hidup!!
Komentar ini diminimalkan oleh moderator di situs
Kode VB Anda tidak berfungsi. Ini menghapus semua baris dengan Nol di posisi 10-an. Saya harap tidak ada yang benar-benar menggunakan ini karena mereka akan menghapus data...
Komentar ini diminimalkan oleh moderator di situs
Saya memodifikasi kode di atas agar berfungsi untuk saya. Saya ingin menghapus setiap baris yang memiliki "Hapus" di baris C. Sub Delete_DeleteRows() Set WorkRng = Range("C2:C12000") Application.ScreenUpdating = False Do Set Rng = WorkRng.Find("Delete", LookIn:= xlValues) Jika Tidak Rng Bukan Apa-apa Maka Rng.EntireRow.Delete End If Loop Sementara Bukan Rng Bukan Apa-apa Application.ScreenUpdating = True End Sub
Komentar ini diminimalkan oleh moderator di situs
Saya memodifikasi kode di bawah ini agar berfungsi untuk saya. Ini menghapus setiap baris di kolom C yang memiliki "Hapus" di sel kolom C. Sub Delete_DeleteRows() Set WorkRng = Range("C2:C12000") Application.ScreenUpdating = False Do Set Rng = WorkRng.Find("Delete" , LookIn:=xlValues) Jika Tidak Rng Bukan Apa-apa Maka Rng.EntireRow.Delete End If Loop Sementara Bukan Rng Bukan Apa-apa Application.ScreenUpdating = True End Sub
Komentar ini diminimalkan oleh moderator di situs
terima kasih atas tanggapannya, berhasil untuk saya
Komentar ini diminimalkan oleh moderator di situs
Hai,
itu bekerja untuk saya, terima kasih banyak.
jika saya memiliki beberapa lembar? bagaimana saya bisa menjalankan skrip 1 kali untuk semua lembar?
Komentar ini diminimalkan oleh moderator di situs
dimodifikasi untuk tujuan saya--terima kasih atas bantuan Anda: Sub DeleteZeroRow() Dim Rng As Range Dim WorkRng As Range On Error Resume Next xTitleId = "" Application.Calculation = xlManual MsgBox "Setel rentang yang ingin Anda hapus jumlah 0 yang tidak digunakan baris dari" Set WorkRng = Application.InputBox("Range", xTitleId, "FG93:FG500", Type:=8) Application.ScreenUpdating = False Sheets("ENTRY").Pilih Do Set Rng = WorkRng.Find("0 ", LookIn:=xlValues) Jika Tidak Rng Bukan Apa-apa Maka Rng.EntireRow.Delete End If Loop Sementara Bukan Rng Bukan Apa-apa Application.ScreenUpdating = True Range("FF92").Pilih Selection.End(xlDown).Pilih MsgBox "Removed 0's ROWS dari kolom FG--menghitung sekarang--harap tunggu" Application.Calculation = xlAutomatic End Sub
Komentar ini diminimalkan oleh moderator di situs
Hai sayang, saya butuh kode untuk menyembunyikan baris yang memiliki nilai = 0 pada kolom "N" di lembar 1. Nilai kolom "N" akan berubah ketika memperbarui detail di Lembar 2. itulah saatnya perlu membuka sembunyikan baris. apakah ini mungkin untuk melakukan ini dengan rumus Excel (tanpa filter makro dan Excel).
Komentar ini diminimalkan oleh moderator di situs
Ini tidak berhasil untuk saya. Itu mengubah semua nilai di kolom yang saya pilih dan kolom yang berdekatan menjadi nol. Aku pasti melakukan sesuatu yang salah!
Komentar ini diminimalkan oleh moderator di situs
Hai Sheri,
Kode berfungsi dengan baik dalam kasus saya. Versi Excel mana yang Anda gunakan?
Komentar ini diminimalkan oleh moderator di situs
Hai Kristal. Saya memposting ini dua tahun yang lalu jadi saya kira saya menemukan jawabannya. Tapi terima kasih atas jawabannya.
Komentar ini diminimalkan oleh moderator di situs
Masukkan ini ke dalam modul baru VB.
Ini dengan InputBox untuk menghapus baris yang berisi kata itu.

Atribut VB_Name = "TemukanDelRowByWord"
Sub TemukanDelRow()
'Perbarui oleh20140616
Dim Rng Sebagai Rentang
Redup WorkRng Sebagai Rentang
Redupkan xRep Sebagai String
On Error Resume Next
xTitleId = "Alat ZOK"
Atur WorkRng = Application.Selection
Atur WorkRng = Application.InputBox("Range", xTitleId, WorkRng.Address, Type:=8)
xRep = Application.InputBox("kata yang akan dihapus Baris:", "ZOK Tools", , , , , 2)
Application.ScreenUpdating = Salah
Do
Atur Rng = WorkRng.Find(xRep, LookIn:=xlValues)
Jika Tidak Rng Bukan Apa-apa Maka
Rng.SeluruhBaris.Hapus
End If
Loop Sementara Tidak Rng Bukan Apa-apa
Application.ScreenUpdating = Benar
End Sub
Komentar ini diminimalkan oleh moderator di situs
BAGAIMANA JIKA Anda memiliki lembaran besar, dan ada baris yang ingin Anda simpan, dan baris lain yang berisi kata kunci tertentu dan menghapusnya? kutools berfungsi untuk saya tetapi untuk satu kata kunci yang banyak barisnya memiliki kata kunci itu, baris telah dihapus, saya hanya ingin memiliki beberapa kata kunci untuk melakukan hal yang sama? apakah ini bekerja untuk kode di atas?
Komentar ini diminimalkan oleh moderator di situs
Selamat siang,
Kutools dapat menangani dua kata kunci secara bersamaan. Anda harus mengaktifkan kondisi kedua dengan "Dan" atau "Atau". Semoga saya bisa membantu.
Komentar ini diminimalkan oleh moderator di situs
Setelah menggunakan subtotal Bagaimana cara menghilangkan filas involucradas yang membuat subtotal sama dengan 0?
Belum ada komentar yang diposting di sini
Tinggalkan komentar anda
Posting sebagai Tamu
×
Beri peringkat pos ini:
0   Karakter
Lokasi yang Disarankan