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

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
Note: Pada kode di atas, A2: A12 adalah rentang data yang ingin Anda hapus konten selnya, teks “Kerudung” adalah nilai spesifik yang ingin Anda hapus. Silakan ubah menjadi milik Anda.

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
Note: Pada kode di atas, D2: D12 adalah rentang data berisi nilai spesifik yang ingin Anda hapus barisnya; 300 adalah nilai spesifik; itu > karakter dalam naskah Jika xCell.Value > xStrValue Maka berarti lebih besar dari, gunakan kurang dari, ubah menjadi < karakter yang Anda butuhkan.

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:

Tips: Masih banyak kriteria lain yang bisa Anda gunakan, silahkan tentukan kondisi Anda sendiri dari kotak dialog seperti gambar di bawah ini:

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
Note: Pada kode di atas, A2: D12 adalah rentang data berisi sel kosong yang ingin Anda hapus konten selnya.

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
Note: Pada kode di atas, A2: D12 adalah rentang data yang ingin Anda gunakan, RGB (252, 228, 214) adalah warna spesifik yang ingin Anda hapus berdasarkan sel, Anda dapat mengekstrak mode RGB dari warna latar belakang dengan menggunakan Cat program di komputer Anda.

3. Lalu, tekan F5 untuk menjalankan kode ini, dan konten sel dengan warna latar belakang yang ditentukan akan segera dihapus. Lihat tangkapan layar:



  • 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 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...
tab kte 201905
  • 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 (0)
Belum ada peringkat. Jadilah yang pertama memberi peringkat!
Belum ada komentar yang diposting di sini
Tinggalkan komentar anda
Posting sebagai Tamu
×
Beri peringkat pos ini:
0   Karakter
Lokasi yang Disarankan