Cara menghapus Beberapa data 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 satu nilai sel dengan fungsi Find and Replace
• Hapus baris berdasarkan satu nilai sel dengan kode VBA
• Hapus baris berdasarkan satu atau dua nilai sel
• Hapus baris berdasarkan beberapa nilai sel

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:

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):

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

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

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

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 ...
• Super Formula Bar (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 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!

komentar (39)

Belum ada peringkat. Jadilah yang pertama memberi peringkat!