Hur döljer jag rader baserat på cellfärg i Excel?

I Excel-kalkylbladet har jag en lista över celler som har många olika färger, nu måste jag dölja alla ljusblåfärgade rader som följande skärmdump visas, hur kan du hantera den här uppgiften i Excel snabbt och enkelt?

Dölj rader baserat på cellfärg med VBA-kod

Dölj rader baserat på cellfärg med Kutools för Excel

Dölj rader baserat på cellfärg med VBA-kod

För att dölja rader baserat på en viss bakgrundsfärg kan följande VBA-kod hjälpa dig, gör så här:

1. Håll ner ALT + F11 och sedan öppnas Microsoft Visual Basic för applikationer fönster.

2. Klicka Insert > Modulernaoch klistra in följande kod i Modulerna Fönster.

VBA-kod: Dölj rader baserat på cellfärg:

Sub Hidebycolor()
'Updateby Extendoffice
    Dim xRg As Range
    Dim xTxt As String
    Dim xCell As Range
    Dim I As Long
    On Error Resume Next
    If ActiveWindow.RangeSelection.Count > 1 Then
      xTxt = ActiveWindow.RangeSelection.Columns(1).AddressLocal
    Else
      xTxt = ActiveSheet.UsedRange.Columns(1).AddressLocal
    End If
LInput:
    Set xRg = Application.InputBox("Range:", "Kutools for Excel", xTxt, , , , , 8)
    If xRg Is Nothing Then Exit Sub
    If xRg.Areas.Count > 1 Then
        MsgBox "does not support multiple selections", vbInformation, "Kutools for Excel"
        GoTo LInput
    End If
    If xRg.Columns.Count > 1 Then
        MsgBox "the selection is not more than 1 column", vbInformation, "Kutools for Excel"
        GoTo LInput
    End If
    On Error Resume Next
    Application.ScreenUpdating = False
    For I = 1 To xRg.Count
        If xRg.Range("A" & I).Interior.ColorIndex = 20 Then
            xRg.Range("A" & I).EntireRow.Hidden = True
        End If
    Next 'i
    Application.ScreenUpdating = True
End Sub

3. Tryck sedan på F5 nyckel för att köra den här koden och en snabbruta visas för att påminna dig om att välja cellerna du vill använda, se skärmdump:

4. Och klicka sedan på OK -knappen, alla ljusblå celler har döljts på en gång, se skärmdump:

Anmärkningar:

1. I ovanstående kod, numret 20 inom detta skript Om xRg.Range ("A" och I) .Interior.ColorIndex = 20 Då är färgindexnumret, du kan ändra det efter behov.

2. Om du inte är säker på färgindexnumret bör du använda följande kod för att få det färgindex som du vill veta:

Function GetColor(r As Range) As Integer
GetColor = r.Interior.ColorIndex
End Function

Och ange sedan formeln: = GetColor (A2) för att returnera det specifika färgindexnumret för bakgrunden i cell A2, ändrar du A2 till andra efter behov.

Dölj rader baserat på cellfärg med Kutools för Excel

Om du Kutools för Excel, med dess Välj celler med format verktyget kan du först välja de specifika färgade cellerna och sedan dölja dem på en gång.

När du har installerat Kutools för Excel, gör så här:

1. Klicka Kutools > Välja > Välj celler med format, se skärmdump:

2. I Välj celler med format dialogrutan, gör följande åtgärder:

(1.) Klicka på knappen för att välja det dataintervall som du vill använda;

(2.) Klicka sedan på Välj Format från cell knapp för att välja den specifika färgade cellen som du vill dölja rader baserat på;

(3.) Alla attribut för den specifika cellen har listats i listrutan, kontrollera bara Bakgrundsfärg under Fyll sektion.

3. Klicka sedan Ok knappen har alla celler med den specifika färgen valts på en gång och klicka sedan på Hem > bildad > Dölj och dölj > Dölj rader, se skärmdump:

4. Och sedan döljs de valda cellerna med den specifika färgen, se skärmdump:

Demo: Dölj rader baserat på cellfärg med Kutools för Excel