Come nascondere le righe in base al colore della cella in Excel?

In un foglio di lavoro di Excel, ho un elenco di celle con molti colori diversi. Ora devo nascondere tutte le righe colorate di azzurro chiaro come mostrato nello screenshot seguente. Come si potrebbe gestire rapidamente e facilmente questo compito in Excel?

Nascondere le righe in base al colore della cella con il codice VBA

Nascondere le righe in base al colore della cella con Kutools per Excel

Nascondere le righe in base al colore della cella con il codice VBA

Per nascondere le righe in base a un colore di sfondo specifico, il seguente codice VBA potrebbe esserti utile, procedi come segue:

1. Tieni premuti i tasti ALT + F11, quindi si aprirà la finestra Microsoft Visual Basic for Applications.

2. Clicca su Inserisci > Modulo e incolla il seguente codice nella finestra del Modulo.

Codice VBA: Nascondere le righe in base al colore della cella:

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. Quindi premi il tasto F5 per eseguire questo codice, e apparirà una finestra di dialogo che ti ricorda di selezionare le celle che desideri utilizzare, vedi screenshot:

4. Dopodiché clicca sul pulsante OK, tutte le celle colorate di azzurro chiaro verranno nascoste immediatamente, vedi screenshot:

Note:

1. Nel codice sopra, il numero 20 all'interno dello script If xRg.Range("A" & I).Interior.ColorIndex = 20 Then è il numero dell'indice del colore, puoi cambiarlo secondo necessità.

2. Se non sei sicuro del numero dell'indice del colore, dovresti applicare il seguente codice per ottenere l'indice del colore che vuoi conoscere:

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

Quindi inserisci la formula: =GetColor(A2) per restituire il numero dell'indice del colore di sfondo della cella A2; puoi cambiare A2 con altre celle secondo necessità.

Nascondere le righe in base al colore della cella con Kutools per Excel

Se hai Kutools per Excel, con la sua funzione Seleziona celle con formato, puoi prima selezionare le celle con un determinato colore e poi nasconderle tutte insieme.

Dopo aver installato Kutools per Excel, procedi come segue:

1. Clicca su Kutools > Seleziona > Seleziona celle con formato, vedi screenshot:

2. Nella finestra di dialogo Seleziona celle con formato, effettua le seguenti operazioni:

(1.) Clicca per selezionare l'intervallo dati che vuoi utilizzare;

(2.) Poi clicca sul pulsante Scegli formato dalla cella per selezionare la cella colorata specifica in base alla quale vuoi nascondere le righe;

(3.) Tutti gli attributi della cella specifica sono stati elencati nella casella di riepilogo, controlla solo Colore di sfondo sotto la sezione Riempimento.

3. Quindi clicca sul pulsante Ok, tutte le celle con il colore specifico verranno selezionate immediatamente, e poi clicca su Home > Formato > Nascondi e scopri > Nascondi righe, vedi screenshot:

4. Dopodiché, le celle selezionate con il colore specifico verranno nascoste, vedi screenshot:

Demo: Nascondere le righe in base al colore della cella con Kutools per Excel