Excel'de arka plan rengine göre satırlar nasıl silinir?
Arka plan rengine göre tüm satırları nasıl silebilirsiniz? Bu örnekte, aşağıda gösterilen ekran görüntüsü gibi mavi arka plan rengiyle doldurulan tüm satırları silmem gerekiyor. Bu makale ile, bu görevi Excel'de gerçekleştirmek için bazı kodlar alacaksınız.
Her hücreye göre belirli arka plan rengine sahip satırları silin
Bir sütuna göre belirli arka plan rengine sahip satırları silin
Her hücreye göre belirli arka plan rengine sahip satırları silin
Bazı hücre renkleriyle rastgele doldurulmuş bir dizi veriniz varsa ve aşağıda gösterilen ekran görüntüsü gibi hücre renginin mavi olduğu satırları silmeniz gerekir:
Bu tür satırları silmek için aşağıdaki VBA kodunu kullanabilirsiniz, lütfen şu şekilde yapın:
1. Basılı tutun ALT + F11 tuşlarını açmak için Uygulamalar için Microsoft Visual Basic pencere.
2. tıklayın Ekle > modülve aşağıdaki kodu modül Pencere.
VBA kodu: Hücrelerin belirli dolgu rengi içerdiği satırları silin:
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. Ve sonra tuşuna basın. F5 Bu kodu çalıştırmak için tuşuna basın ve silmek istediğiniz dolgu rengine sahip bir hücre seçtiğinizi hatırlatmak için bir komut kutusu açılır, ekran görüntüsüne bakın:
4. Sonra tıklayın OKve belirli bir dolgu rengine sahip hücre varsa tüm satırlar silinmiştir.
Bir sütuna göre belirli arka plan rengine sahip satırları silin
Belirli bir renge sahip satırları yalnızca bir sütuna dayalı olarak silmek istiyorsanız, örneğin, A sütunundaki mavi renkli satırları silin ve aşağıdaki ekran görüntüsünü alın, burada ayrıca bir VBA kodu size bir iyilik yapabilir.
1. Basılı tutun ALT + F11 tuşlarını açmak için Uygulamalar için Microsoft Visual Basic pencere.
2. tıklayın Ekle > modülve aşağıdaki kodu modül Pencere.
VBA kodu: Hücrelerin belirli dolgu rengine sahip olduğu bir sütuna göre satırları silin:
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
not: Yukarıdaki kodda, A2: A21 satırları temel alarak silmek istediğiniz belirli dolgu rengini içeren sütundur, 20 in RenkIndex = 20 komut dosyası, satırları temel alarak silmek istediğiniz renk indeksidir. Bunları ihtiyacınıza göre değiştirebilirsiniz.
3. Daha sonra tuşuna basın. F5 Bu kodu çalıştırmak için anahtar ve A sütunundaki mavi rengi içeren hücrelerin tüm satırları bir kerede silinmiştir.
En İyi Ofis Üretkenlik Araçları
Kutools for Excel ile Excel Becerilerinizi Güçlendirin ve Daha Önce Hiç Olmadığı Gibi Verimliliği Deneyimleyin. Kutools for Excel, Üretkenliği Artırmak ve Zamandan Tasarruf Etmek için 300'den Fazla Gelişmiş Özellik Sunar. En Çok İhtiyacınız Olan Özelliği Almak İçin Buraya Tıklayın...
Office Tab, Office'e Sekmeli Arayüz Getirir ve İşinizi Çok Daha Kolay Hale Getirir
- Word, Excel, PowerPoint'te sekmeli düzenlemeyi ve okumayı etkinleştirin, Publisher, Access, Visio ve Project.
- Yeni pencereler yerine aynı pencerenin yeni sekmelerinde birden çok belge açın ve oluşturun.
- Üretkenliğinizi% 50 artırır ve her gün sizin için yüzlerce fare tıklamasını azaltır!