Bagaimana cara menghapus baris berdasarkan warna latar belakang di Excel?
Bagaimana Anda bisa menghapus seluruh baris berdasarkan warna latar belakang? Dalam contoh ini, saya perlu menghapus semua baris yang selnya diisi dengan warna latar belakang biru seperti gambar berikut yang ditampilkan. Dengan artikel ini, Anda akan mendapatkan beberapa kode untuk melakukan tugas ini di Excel.
Hapus baris dengan warna latar tertentu berdasarkan setiap sel
Hapus baris dengan warna latar tertentu berdasarkan satu kolom
Hapus baris dengan warna latar tertentu berdasarkan setiap sel
Jika Anda memiliki berbagai data yang diisi dengan beberapa warna sel secara acak, dan Anda perlu menghapus baris yang warna selnya biru seperti gambar berikut yang ditampilkan:
Untuk menghapus jenis baris ini, Anda dapat menggunakan kode VBA berikut, lakukan seperti ini:
1. Tahan ALT + F11 kunci untuk membuka Microsoft Visual Basic untuk Aplikasi jendela.
2. Klik Menyisipkan > Modul, dan tempel kode berikut di Modul Jendela.
Kode VBA: Hapus baris yang sel berisi warna isian tertentu:
Sub DeleteRows()
'Updateby Extendoffice
Dim rngCl As Range
Dim xRows As Long
Dim xCol As Long
Dim colorLg As Long
On Error Resume Next
Set rngCl = Application.InputBox _
(Prompt:="Select a cell with the background color to be deleted", _
Title:="Kutools for Excel", Type:=8)
On Error GoTo 0
If rngCl Is Nothing Then
MsgBox "User cancelled operation." & vbCrLf & _
"Processing terminated", vbInformation, "Kutools for Excel"
Exit Sub
End If
colorLg = rngCl.Interior.Color
Application.ScreenUpdating = False
With ActiveSheet.UsedRange
For xRows = .Rows.Count To 1 Step -1
For xCol = 1 To .Columns.Count
If .Cells(xRows, xCol).Interior.Color = colorLg Then
.Rows(xRows).Delete
Exit For
End If
Next xCol
Next xRows
End With
Application.ScreenUpdating = True
End Sub
3. Lalu tekan F5 kunci untuk menjalankan kode ini, dan kotak prompt akan muncul untuk mengingatkan Anda memilih sel dengan warna isian yang ingin Anda hapus, lihat tangkapan layar:
4. Lalu klik OK, dan semua baris telah dihapus jika sel dengan warna isian tertentu.
Hapus baris dengan warna latar tertentu berdasarkan satu kolom
Jika Anda ingin menghapus baris dengan warna tertentu hanya berdasarkan satu kolom, misalnya, hapus baris dengan warna biru di kolom A dan dapatkan screenshot di bawah ini, berikut juga kode VBA yang 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 Modul Jendela.
Kode VBA: Hapus baris berdasarkan kolom yang selnya memiliki warna isian tertentu:
Sub deleterow()
'UpdateBY Extendoffice
Dim xRg As Range, rgDel As Range
For Each xRg In ThisWorkbook.ActiveSheet.Range("A2:A21")
If xRg.Interior.ColorIndex = 20 Then
If rgDel Is Nothing Then
Set rgDel = xRg
Else
Set rgDel = Union(rgDel, xRg)
End If
End If
Next xRg
If Not rgDel Is Nothing Then rgDel.EntireRow.Delete
End Sub
Note: Pada kode di atas, A2: A21 adalah kolom yang berisi warna isian tertentu yang barisnya ingin Anda hapus berdasarkan, angkanya 20 in Indeks Warna = 20 script adalah indeks warna yang barisnya ingin Anda hapus. Anda dapat mengubahnya sesuai kebutuhan Anda.
3. Lalu tekan F5 kunci untuk menjalankan kode ini, dan semua baris yang selnya berisi warna biru di kolom A telah dihapus sekaligus.
Alat Produktivitas Kantor Terbaik
Tingkatkan Keterampilan Excel Anda dengan Kutools for Excel, dan Rasakan Efisiensi yang Belum Pernah Ada Sebelumnya. Kutools for Excel Menawarkan Lebih dari 300 Fitur Lanjutan untuk Meningkatkan Produktivitas dan Menghemat Waktu. Klik Di Sini untuk Mendapatkan Fitur yang Paling Anda Butuhkan...
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.
- Meningkatkan produktivitas Anda sebesar 50%, dan mengurangi ratusan klik mouse untuk Anda setiap hari!
