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

Bagaimana cara menghapus baris berdasarkan nilai sel di Excel?

Untuk menghapus atau menghapus beberapa baris dengan cepat berdasarkan nilai sel di Excel, Anda mungkin perlu memilih seluruh baris yang berisi nilai sel tertentu terlebih dahulu, lalu pergi untuk menghapusnya. Tampaknya tidak ada cara cepat untuk menghapus baris berdasarkan nilai sel tetapi menggunakan kode VBA. Berikut beberapa trik cepat untuk membantu Anda.


Hapus baris berdasarkan nilai sel dengan fitur Find and Replace

Di Excel, Anda bisa menerapkan fitur Temukan dan Ganti yang kuat untuk menghapus baris berdasarkan nilai sel tertentu dengan mudah. Harap lakukan sebagai berikut:

1. Pilih rentang di mana Anda akan menghapus baris berdasarkan nilai sel tertentu, dan buka kotak dialog Temukan dan Ganti dengan menekan Ctrl + F kunci secara bersamaan.

2. Di kotak dialog Temukan dan Ganti, ketikkan nilai sel tertentu (dalam kasus kami, kami memasukkan Soe) ke dalam Find what kotak, dan klik Find All tombol. Lihat screenshot pertama di bawah ini:

3. Pilih semua hasil pencarian di bagian bawah kotak dialog Temukan dan Ganti, dan tutup kotak dialog ini. (Note: Anda dapat memilih salah satu hasil pencarian, lalu Ctrl + A kunci untuk memilih semua hasil yang ditemukan. Lihat gambar kedua di atas.)
Dan kemudian Anda dapat melihat semua sel yang berisi nilai tertentu dipilih.

4. Silakan klik kanan sel yang dipilih dan pilih Delete dari menu klik kanan. Dan kemudian periksa Entire row pilihan di kotak dialog Hapus yang muncul, dan klik OK tombol. Sekarang Anda akan melihat semua sel yang berisi nilai tertentu dihapus. Lihat tangkapan layar di bawah ini:

Dan kemudian seluruh baris telah dihapus berdasarkan nilai tertentu.


Hapus baris berdasarkan nilai sel dengan kode VBA

Dengan kode VBA berikut, Anda dapat dengan cepat menghapus baris dengan nilai sel tertentu, lakukan langkah-langkah berikut:

1. Tap Alt + F11 kunci pada saat yang sama untuk membuka Microsoft Visual Basic for applications jendela,

2. Klik Insert > Module, dan masukkan kode berikut ke dalam Modul:

VBA: Hapus seluruh baris berdasarkan nilai sel

Sub DeleteRows()
'Updateby20211217
Dim rng As Range
Dim InputRng As Range
Dim DeleteRng As Range
Dim DeleteStr As String
Dim xTitleId As String
Dim xArr
Dim xF As Integer
Dim xWSh As Worksheet
On Error Resume Next
xTitleId = "KutoolsforExcel"
Set rng = Application.Selection
Set InputRng = Application.InputBox("Range :", xTitleId, rng.Address, Type:=8)
If InputRng Is Nothing Then Exit Sub
DeleteStr = Application.InputBox("Delete Text", xTitleId, Type:=2)
Set xWSh = InputRng.Worksheet
For Each rng In InputRng
    If rng.Value = DeleteStr Then
        If DeleteRng Is Nothing Then
            Set DeleteRng = rng
        Else
            Set DeleteRng = Application.Union(DeleteRng, rng)
            Set DeleteRng = DeleteRng.EntireRow
        End If
    End If
Next
xArr = Split(DeleteRng.AddressLocal, ",")
DeleteRng.Select
DeleteRng.Delete
For xF = UBound(xArr) To 0 Step -1
    Set DeleteRng = xWSh.Range(xArr(xF))
    DeleteRng.Delete
Next
End Sub

3. Kemudian klik Run tombol untuk menjalankan kode.

4. Pada kotak dialog yang muncul, pilih rentang di mana Anda akan menghapus baris berdasarkan nilai tertentu, dan klik OK .

5. Di kotak dialog lain, ketikkan nilai tertentu yang akan Anda hapus berdasarkan baris, dan klik OK tombol. Lihat tangkapan layar:

Dan kemudian Anda akan melihat seluruh baris telah dihapus berdasarkan nilai yang ditentukan.


Hapus baris berdasarkan satu atau dua nilai sel dengan Kutools for Excel

Jika sudah terpasang Kutools for Excel, nya Select Specific Cells Fitur dapat membantu Anda dengan cepat menghapus baris dengan nilai tertentu. Harap lakukan sebagai berikut:

Kutools untuk Excel - Termasuk lebih dari 300 alat praktis untuk Excel. Uji coba gratis fitur lengkap 30 hari, tidak perlu kartu kredit! Get It Now

1. Pilih rentang yang akan Anda hapus baris berdasarkan nilai tertentu, dan klik Kutools > Select > Select Specific Cells. Lihat tangkapan layar:

2. Pada kotak dialog Select Specified Cells pembuka, silakan centang Entire row pilihan, pilih Contains dari Specific type daftar drop-down, masukkan nilai yang ditentukan ke dalam kotak kanan, dan klik Ok tombol (Lihat tangkapan layar di atas).
Setelah menerapkan fitur ini, kotak dialog akan muncul dan menunjukkan kepada Anda berapa banyak sel yang telah ditemukan berdasarkan kriteria yang ditentukan. Silakan klik OK tombol untuk menutupnya.

3. Sekarang seluruh baris dengan nilai tertentu dipilih. Silakan klik kanan baris yang dipilih, dan klik Delete dari menu klik kanan. Lihat tangkapan layar di bawah ini:

Note: Ini Select Specific Cells Fitur mendukung untuk menghapus baris dengan satu atau dua nilai tertentu. Untuk menghapus baris berdasarkan dua nilai yang ditentukan, harap tentukan nilai lain di Specific type bagian dari kotak dialog Select Specific Cells seperti gambar berikut yang ditampilkan:

Kutools untuk Excel - Termasuk lebih dari 300 alat praktis untuk Excel. Uji coba gratis fitur lengkap 30 hari, tidak perlu kartu kredit! Get It Now


Hapus baris berdasarkan beberapa nilai sel dengan Kutools for Excel

Dalam beberapa kasus, Anda mungkin perlu menghapus baris berdasarkan beberapa nilai sel dari kolom / daftar lain di Excel. Berikut akan saya perkenalkan Kutools for Excel's Select Same & Different Cells fitur untuk menyelesaikannya dengan cepat dengan mudah.

Kutools untuk Excel - Termasuk lebih dari 300 alat praktis untuk Excel. Uji coba gratis fitur lengkap 30 hari, tidak perlu kartu kredit! Get It Now

1. Klik Kutools > Select > Select Same & Different Cells untuk membuka kotak dialog Select Same & Different Cells.

2. Dalam pembukaan Select Same & Different Cells kotak dialog, lakukan hal berikut (lihat tangkapan layar):

(1) Dalam Find values in kotak, pilih kolom di mana Anda akan menemukan nilai-nilai tertentu;
(2) Dalam According to kotak, pilih kolom / daftar dengan beberapa nilai yang barisnya akan Anda hapus;
(3) Dalam Based on bagian, harap periksa Each row pilihan;
(4) Dalam Find bagian, harap periksa Same Values pilihan;
(5) Periksa Select entire rows opsi di bagian bawah kotak dialog pembuka.
Note: Jika dua kolom tertentu berisi tajuk yang sama, harap periksa My data has headers .

3. klik Ok tombol untuk menerapkan utilitas ini. Dan kemudian kotak dialog keluar dan menunjukkan berapa banyak baris yang telah dipilih. Cukup klik OK tombol untuk menutupnya.

Dan kemudian semua baris yang berisi nilai di antara daftar yang ditentukan telah dipilih.

4. Klik Home > Delete > Delete Sheet Rows untuk menghapus semua baris yang dipilih.


Demo: hapus baris berdasarkan satu atau beberapa nilai sel di Excel


Kutools untuk Excel menyertakan lebih dari 300 alat praktis untuk Excel, gratis untuk dicoba tanpa batasan dalam 30 hari. Unduh dan Uji Coba Gratis Sekarang!

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 (39)
Belum ada peringkat. Jadilah yang pertama memberi peringkat!
Komentar ini diminimalkan oleh moderator di situs
Fantastis! Itu berhasil, saya mengubahnya sedikit agar sesuai dengan apa yang saya butuhkan tetapi sangat jenius. Oh Versi VBA.
Komentar ini diminimalkan oleh moderator di situs
Adakah cara untuk mengubah If (cell.Value) = "Apple" untuk memasukkan beberapa nilai?
Komentar ini diminimalkan oleh moderator di situs
Bobby, coba ini, itu akan mendapatkan apa yang Anda inginkan: If (cell.Value) = "Apple" OR (cell.Value) = "Monday"
Komentar ini diminimalkan oleh moderator di situs
Apakah ada cara agar nilai mengenali nilai apakah > atau = ke nilai tertentu?
Komentar ini diminimalkan oleh moderator di situs
Hei - terima kasih banyak untuk skripnya. Saya ingin tahu apakah Anda dapat menggunakan wildcard sehingga Anda dapat memilih apa pun di dalam sel yang cocok daripada item tertentu? Saya sudah mencoba menggunakan ** wildcard tetapi sepertinya tidak melakukan apa-apa. Inilah yang saya miliki: Sub Delete_Rows() Dim rng As Range, cell As Range, del As Range Set rng = Intersect(Range("B6:B20"), ActiveSheet.UsedRange) Untuk Setiap sel Di rng If cell.Value Like "*WORDTODELETE*" _ Then If del Is Nothing Then Set del = cell Else: Set del = Union(del, cell) End If End If Next cell On Error Resume Next del.EntireRow.Delete End Sub
Komentar ini diminimalkan oleh moderator di situs
Terima kasih yang tulus - selalu menyenangkan ketika orang Pemasaran mencoba menulis kode, dan info ini sangat membantu. Saya tidak bisa mendapatkan kode untuk menjangkau beberapa kolom ("AA2:AA3000" berfungsi, "AB2:AB3000" berfungsi, tetapi "AA2:AB3000" tidak berfungsi. Tidak ada Kaboom yang menggemparkan - itu tidak menghasilkan apa-apa. Saya telah menyelesaikannya (secara amatir, saya kira) dengan menjalankan beberapa makro secara berurutan, tetapi mungkin ada cara yang lebih elegan. Sekali lagi terima kasih atas bantuan Anda, Jim (Melville, NY)
Komentar ini diminimalkan oleh moderator di situs
Saya mendapatkan: run-time error '13': Type mismatch Debugging menyoroti bagian If (cell.Value) = "FALSE" _ Then. Saya benar-benar tersesat di MVB, bantuan apa pun akan dihargai.
Komentar ini diminimalkan oleh moderator di situs
Katakanlah saya memasukkan kode di bawah ini untuk menghapus semua baris saya yang berisi apel tetapi kemudian saya ingin melanjutkan setelah selesai dan menghapus semua baris yang berisi pisang? Saya mencoba hanya menduplikasi kode tetapi sepertinya berhenti setelah apel. terima kasih. Sub Delete_Rows() Dim rng As Range, cell As Range, del As Range Set rng = Intersect(Range("A1:C20"), ActiveSheet.UsedRange) Untuk Setiap sel Di rng If (cell.Value) = "Apple" _ Kemudian Jika del Tidak Ada Kemudian Set del = sel Lain: Set del = Union(del, sel) End If End If Next cell On Error Lanjutkan Berikutnya del.EntireRow.Delete End Sub
Komentar ini diminimalkan oleh moderator di situs
Aku hanya ingin mengucapkan terima kasih. Ini bekerja seperti pesona.
Komentar ini diminimalkan oleh moderator di situs
Pasti luar biasa! Hargai untuk berbagi!!!
Komentar ini diminimalkan oleh moderator di situs
Terima kasih, ini bagus! Komentar cepat, saya mencoba menemukan dan mengganti fungsi di excel 2010. Untuk memilih semua hasil yang ditemukan, saya harus menggunakan Ctrl +A alih-alih Alt + A.
Komentar ini diminimalkan oleh moderator di situs
Hai, Apa cara termudah untuk menghapus baris yang TIDAK mengandung "Apple"? terima kasih
Komentar ini diminimalkan oleh moderator di situs
Hai, Adakah cara untuk menulisnya untuk menghapus baris, dengan pengecualian OR? Yaitu- menghapus baris yang merupakan duplikat, tetapi mengabaikan nilai tertentu. Saya ingin menghapus duplikat, kecuali kolom yang dimaksud berisi b/c kosong sehingga kolom tersebut belum memiliki data yang valid. Saya menjalankan seperti yang Anda lakukan, tetapi saya mengakhiri menghapus baris dengan kosong di kolom yang dimaksud, jadi saya tidak dapat menggunakannya apa adanya. terima kasih
Komentar ini diminimalkan oleh moderator di situs
Terima kasih untuk VB Scriptnya. Saya tidak sabar untuk mencoba ini. Pertanyaan: Apakah ada cara untuk menandai kolom untuk dihapus sebelum menghapusnya dan/atau menyalin ke tab terpisah di buku kerja? Selain itu, apakah ada cara untuk menjalankan skrip ini di beberapa buku kerja/file sekaligus?
Komentar ini diminimalkan oleh moderator di situs
terima kasih.. sangat membantu saya..
Komentar ini diminimalkan oleh moderator di situs
Saya ingin menghapus semua baris di mana column1 = "Apple" AND column3 = "green". silakan?
Komentar ini diminimalkan oleh moderator di situs
Saya tidak yakin bagaimana melakukan ini menggunakan makro atau lebih, tetapi satu opsi yang akan melakukan tugasnya dengan baik adalah menambahkan kolom tambahan yang menguji satu kolom menjadi "apel" dan yang lainnya menjadi "hijau" dan kemudian biarkan itu memberikan nilai "ya" atau "tidak" yang sederhana. daripada menggunakan salah satu opsi di atas untuk mencari nilai "ya" dan menghapus baris berdasarkan itu alih-alih 2 nilai terpisah.
Komentar ini diminimalkan oleh moderator di situs
saya memiliki daftar toko dalam satu dokumen. Saya memiliki laporan yang mengembalikan ribuan baris. nomor toko selalu ada di Kolom A. Apakah ada kode/makro yang akan mencari laporan dan menghapus semua kolom dengan nomor toko dari daftar toko. berpikir vlookup dan "Lakukan Sementara" diperlukan.
Komentar ini diminimalkan oleh moderator di situs
Halo dan terima kasih banyak untuk kode VBA. Saya mempunyai satu pertanyaan. Apakah mungkin untuk membuat kode sedemikian rupa sehingga memungkinkan untuk memilih beberapa nilai sel untuk dihapus secara bersamaan? Misalnya memilih Apple dan Emily secara bersamaan dan menghapusnya? Saya menghargai Anda bekerja dan menantikan tanggapan Anda. Joan K
Komentar ini diminimalkan oleh moderator di situs
Bagaimana cara menentukan rentang A3:D3000 (mis. Saya tidak ingin pengguna memilih rentang)? Bagaimana saya bisa menjadikan Hapus String sebagai referensi sel, mis. G1?
Komentar ini diminimalkan oleh moderator di situs
apakah mungkin untuk membandingkan dua kolom dan kemudian menghapus? berada dalam kisaran A3:D3000 jika sel A=x dan sel B=y lalu hapus baris?
Komentar ini diminimalkan oleh moderator di situs
Apa yang bagus. terima kasih banyak semua. :)
Belum ada komentar yang diposting di sini
Muat Lebih
Tinggalkan komentar anda
Posting sebagai Tamu
×
Beri peringkat pos ini:
0   Karakter
Lokasi yang Disarankan