Bagaimana cara menghapus isi sel berdasarkan kondisi di Excel?
Terkadang Anda mungkin perlu menghapus konten sel berdasarkan kondisi di Excel, seperti membersihkan konten sel jika sel berisi nilai tertentu, mengosongkan konten sel jika ada sel kosong di kolom lain, atau menghapus konten sel dengan warna latar belakang tertentu, dll. Artikel ini akan memperkenalkan beberapa trik untuk menyelesaikan tugas-tugas ini dengan cepat dan mudah.
Hapus Isi Sel Berdasarkan nilai sel dengan kode VBA
Hapus seluruh baris jika nilainya lebih besar atau lebih kecil dari nilai tertentu dengan kode VBA
Hapus konten sel atau baris berdasarkan nilai sel dengan fitur praktis
Hapus seluruh baris jika sel lain kosong dengan kode VBA
Hapus konten sel berdasarkan warna latar belakang dengan kode VBA
Hapus Isi Sel Berdasarkan nilai sel dengan kode VBA
Misalnya, Anda memiliki rentang data berikut, sekarang, Anda ingin menghapus konten sel yang "Hoodie", kode VBA di bawah ini dapat membantu Anda.
1. Tahan ALT + F11 kunci untuk membuka Microsoft Visual Basic untuk Aplikasi jendela.
2. Klik Menyisipkan > Modul, dan tempel kode berikut di Module Window.
Kode VBA: Hapus konten sel jika sel sama dengan nilai tertentu
Sub ClearContents()
'Updateby ExtendOffice
Dim xRng As Range
Dim xCell As Range
Dim xText As String
Set xRng = Application.Range("A2:A12")
xText = "Hoodie" 'Change this text to your own
For Each xCell In xRng
If xCell.Value = xText Then
xCell.clearContents
End If
Next xCell
End Sub
3. Lalu tekan F5 kunci untuk menjalankan kode ini, dan semua sel dengan teks "Hoodie" dihapus sekaligus, lihat tangkapan layar:
Hapus seluruh baris jika nilainya lebih besar atau lebih kecil dari nilai tertentu dengan kode VBA
Misalkan, Anda memiliki rentang data di bawah ini, untuk menghapus seluruh isi baris jika nilai di kolom D lebih besar atau kurang dari 300. Di sini, saya akan membuat kode VBA untuk melengkapinya.
1. Tahan ALT + F11 kunci untuk membuka Microsoft Visual Basic untuk Aplikasi jendela.
2. Klik Menyisipkan > Modul, dan tempel kode berikut di Module Window.
Kode VBA: Hapus seluruh baris jika nilai sel lebih besar atau lebih kecil dari nilai tertentu
Sub ClearRowInValue()
'Updateby ExtendOffice
Dim xRg As Range
Dim xStrAddress As String
Dim xStrValue As Integer
Dim xCell As Range
Dim xRowRg As Range
Dim xF As Integer
Dim xBol As Boolean
xStrAddress = "D2:D12" 'Change cell range
xStrValue = 300 'change the value
Set xRg = Range(xStrAddress)
For xF = xRg.Rows.Count To 1 Step -1
Set xRowRg = xRg.Rows.Item(xF)
xBol = False
For Each xCell In xRowRg.Cells
If Application.IsNumber(xCell.Value) Then
If xCell.Value > xStrValue Then
xBol = True
Exit For
End If
End If
Next
If xBol Then
xRowRg.EntireRow.clearContents
End If
Next
End Sub
3. Lalu tekan F5 kunci untuk menjalankan kode ini, dan semua konten baris dihapus jika nilai di kolom D lebih besar dari 300, lihat tangkapan layar:
Hapus konten sel atau baris berdasarkan nilai sel dengan fitur praktis
Jika Anda memiliki Kutools untuk Excel, Dengan yang Pilih Sel Spesifik fitur, Anda dapat memilih sel atau baris berdasarkan nilai tertentu, lalu menghapus konten sel sekaligus.
Setelah menginstal Kutools untuk Excel, lakukan seperti ini:
1. Pilih rentang data dengan nilai yang ingin Anda hapus berdasarkan konten sel atau baris, lalu klik Kutools > Pilih > Pilih Sel Spesifik, lihat tangkapan layar:
2. Di tempat terbuka Pilih Sel Spesifik kotak dialog, lakukan operasi berikut:
- Klik Sel or Seluruh baris yang ingin Anda pilih;
- Tentukan kriteria di bawah Tipe khusus bagian yang Anda butuhkan. Di sini, saya ingin memilih baris yang nilainya di kolom D lebih besar dari 300.
3. Lalu klik Ok tombol, dan semua baris dengan nilai lebih besar dari 300 dipilih. Sekarang, Anda hanya perlu menekan tombol Delete pada keyboard untuk menghapus isi sel, lihat tangkapan layar:
Hapus data baris dalam rentang jika berisi sel kosong dengan kode VBA
Dalam hal ini, jika sel dalam rentang data berisi kosong, saya ingin menghapus data baris dari rentang seperti gambar di bawah ini.
Untuk menyelesaikan tugas ini, silakan terapkan kode VBA berikut:
1. Tahan ALT + F11 kunci untuk membuka Microsoft Visual Basic untuk Aplikasi jendela.
2. Klik Menyisipkan > Modul, dan kemudian, rekatkan kode berikut di Modul Jendela.
Kode VBA: Hapus data baris jika berisi sel kosong
Sub ClearContents()
'Updateby ExtendOffice
Dim xcell As Range
Set xrng = Application.Range("A2:D12")
For Each xcell In xrng
If xcell.Value = "" Then
Intersect(xcell.EntireRow, xrng).ClearContents
End If
Next
End Sub
3. Lalu tekan F5 kunci untuk menjalankan kode ini, dan data baris dengan sel kosong dihapus sekaligus dalam rentang tertentu yang Anda butuhkan.
Hapus konten sel berdasarkan warna latar belakang dengan kode VBA
Untuk menghapus sel yang diisi dengan warna latar belakang tertentu, Anda dapat menggunakan kode VBA berikut.
1. Tahan ALT + F11 kunci untuk membuka Microsoft Visual Basic untuk Aplikasi jendela.
2. Klik Menyisipkan > Modul, dan kemudian, rekatkan kode berikut di Modul Jendela.
Kode VBA: Hapus konten sel berdasarkan warna latar belakang
Sub Clearcontents()
'Updateby ExtendOffice
Dim xcell As Range
Dim xrng As Range
Set xrng = Application.Range("A2:D12")
For Each xcell In xrng
If xcell.Interior.Color = RGB(252, 228, 214) Then
xcell.Clearcontents
End If
Next
End Sub
3. Lalu, tekan F5 untuk menjalankan kode ini, dan konten sel dengan warna latar belakang yang ditentukan akan segera dihapus. Lihat tangkapan layar:
Alat Produktivitas Kantor Terbaik
Kutools for Excel Memecahkan Sebagian Besar Masalah Anda, dan Meningkatkan Produktivitas Anda hingga 80%
- 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 dan Menyimpan Data; Pisahkan Konten Sel; Gabungkan Baris Duplikat dan Jumlah / Rata-rata... 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 ...
- Favorit dan Sisipkan Rumus dengan Cepat, Rentang, Grafik dan Gambar; Enkripsi Sel dengan kata sandi; Buat Milis dan mengirim email ...
- 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...
- Pengelompokan Tabel Pivot menurut nomor minggu, hari dalam seminggu dan banyak lagi ... Tampilkan Sel yang Tidak Terkunci dan Terkunci dengan warna berbeda; Sorot Sel Yang Memiliki Rumus / Nama...
- 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.
- Meningkatkan produktivitas Anda sebesar 50%, dan mengurangi ratusan klik mouse untuk Anda setiap hari!