Como ocultar linhas com base na cor da célula no Excel?

Na planilha do Excel, eu tenho uma lista de células que têm muitas cores diferentes, agora, eu preciso ocultar todas as linhas de cor azul claro conforme mostrado a seguir, como você poderia lidar com essa tarefa no Excel de forma rápida e fácil?

Ocultar linhas com base na cor da célula com código VBA

Oculte linhas com base na cor da célula com o Kutools para Excel

Ocultar linhas com base na cor da célula com código VBA

Para ocultar linhas com base em uma cor de fundo específica, o seguinte código VBA pode ajudá-lo, faça o seguinte:

1. Segure o ALT + F11 chaves, então ele abre o Microsoft Visual Basic para Aplicações janela.

2. Clique inserção > Móduloe cole o seguinte código no Módulo Janela.

Código VBA: ocultar linhas com base na cor da célula:

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. Então aperte F5 para executar este código e uma caixa de prompt é exibida para lembrá-lo de selecionar as células que deseja usar, consulte a captura de tela:

4. E, em seguida, clique em OK botão, todas as células de cor azul claro foram ocultadas de uma vez, veja a captura de tela:

Observações:

1. No código acima, o número 20 dentro deste script Se xRg.Range ("A" & I) .Interior.ColorIndex = 20 Então é o número do índice da cor, você pode alterá-lo conforme necessário.

2. Se você não tiver certeza do número do índice da cor, deve aplicar o seguinte código para obter o índice da cor que deseja saber:

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

Em seguida, insira a fórmula: = GetColor (A2) para retornar o número de índice de cor específico do plano de fundo na célula A2, altere A2 para outros conforme necessário.

Oculte linhas com base na cor da célula com o Kutools para Excel

Se você Kutools for Excel, Com o seu Selecione Células com Formato utilitário, você pode selecionar as células coloridas específicas primeiro e, em seguida, ocultá-las de uma vez.

Depois de instalar Kutools for Excel, faça o seguinte:

1. Clique Kutools > Selecionar > Selecione Células com Formato, veja a captura de tela:

2. No Selecione Células com Formato caixa de diálogo, faça as operações abaixo:

(1.) Clique botão para selecionar o intervalo de dados que você deseja usar;

(2.) Em seguida, clique Escolha o formato da célula botão para selecionar a célula colorida específica na qual você deseja ocultar as linhas;

(3.) Todos os atributos da célula específica foram listados na caixa de lista, basta marcar Cor de fundo sob a Preencher seção.

3. Então clique Ok botão, todas as células com a cor específica foram selecionadas de uma vez e clique em Inicio > Formato > Ocultar e mostrar > Ocultar linhas, veja a captura de tela:

4. E então as células selecionadas com a cor específica são ocultadas, veja a captura de tela:

Demonstração: ocultar linhas com base na cor da célula com Kutools para Excel