Como verificar se uma linha está oculta no Excel?

Este artigo trata de como verificar se uma linha está oculta em um intervalo específico ou em uma planilha no Excel.

Verifique se a linha está oculta no intervalo selecionado com código VBA
Verifique se a linha está oculta em uma planilha com código VBA

Verifique se a linha está oculta no intervalo selecionado com código VBA

Siga os passos abaixo para verificar se há linhas ocultas em um intervalo selecionado e encontrar o número da linha oculta.

1. Selecione o intervalo que você deseja verificar quanto a linhas ocultas. Pressione as teclas Alt + F11 para abrir a janela Microsoft Visual Basic for Applications.

2. Na janela Microsoft Visual Basic for Applications, clique em Inserir > Módulo. Em seguida, copie o código VBA abaixo na janela de código.

Código VBA: verifique se há linhas ocultas no intervalo selecionado

Sub HiddenRowsInRange()
'Update by Extendoffice 2018/5/15
    Dim I As Long
    Dim xStr As String
    Dim xOne, xTwo As Long
    Dim xRg, xRgVsb, xRgItem As Range
    On Error Resume Next
    Set xRg = Range("A1:A100")
    Set xRgVsb = xRg.SpecialCells(xlCellTypeVisible)
   If xRg.Count <> xRgVsb.Count Then
        For I = 1 To xRgVsb.Areas.Count - 1
            Set xRgItem = xRgVsb.Areas.Item(I)
            xOne = xRgItem.Rows(xRgItem.Rows.Count).Row
            xTwo = xRgVsb.Areas.Item(I + 1).Rows(1).Row
            xStr = xStr & Str(xOne + 1) & " --" & Str(xTwo - 1) & ","
        Next
        xStr = Left(xStr, Len(xStr) - 1)
        MsgBox "Hidden rows in selected range are:" & xStr
    Else
        MsgBox "No rows hidden"
    End If
End Sub

3. Pressione a tecla F5 para executar o código.

Em seguida, uma caixa de diálogo do Microsoft Excel aparecerá mostrando as linhas ocultas, conforme exibido na captura de tela abaixo.

Desbloqueie a Magia do Excel com o Kutools AI

• Execução Inteligente: Realize operações de células, analise dados e crie gráficos — tudo impulsionado por comandos simples.
• Fórmulas Personalizadas: Gere fórmulas sob medida para otimizar seus fluxos de trabalho.
• Codificação VBA: Escreva e implemente código VBA sem esforço.
• Interpretação de Fórmulas: Compreenda fórmulas complexas com facilidade.
• Tradução de Texto: Supere barreiras linguísticas dentro de suas planilhas.

Potencialize suas capacidades no Excel com ferramentas alimentadas por IA. Baixe Agora e experimente uma eficiência como nunca antes!

Verifique se a linha está oculta em uma planilha com código VBA

O código VBA abaixo pode ajudá-lo a verificar se há linhas ocultas em uma planilha no Excel. Siga os passos abaixo.

1. Abra a planilha que você precisa verificar quanto a linhas ocultas, pressione as teclas Alt + F11 para abrir a janela Microsoft Visual Basic for Applications.

2. Na janela Microsoft Visual Basic for Applications, clique em Inserir > Módulo. Em seguida, copie o código VBA abaixo na janela de código.

Código VBA: verifique se a linha está oculta na planilha

Sub HiddenRowsInSheet()
'Update by Extendoffice 2018/5/15
    Dim I As Long
    Dim xStr As String
    Dim xOne, xTwo As Long
    Dim xRg, xRgVsb, xRgItem As Range
    On Error Resume Next
    Set xRg = ActiveSheet.UsedRange
    Set xRgVsb = xRg.SpecialCells(xlCellTypeVisible)
    Debug.Print xRgVsb.Address
    If xRg.Count <> xRgVsb.Count Then
        For I = 1 To xRgVsb.Areas.Count - 1
            Set xRgItem = xRgVsb.Areas.Item(I)
            xOne = xRgItem.Rows(xRgItem.Rows.Count).Row
            xTwo = xRgVsb.Areas.Item(I + 1).Rows(1).Row
            xStr = xStr & Str(xOne + 1) & " --" & Str(xTwo - 1) & ","
        Next
        xStr = Left(xStr, Len(xStr) - 1)
        MsgBox "Hidden rows in active sheet are:" & xStr
    Else
        MsgBox "No rows hidden"
    End If
End Sub

3. Pressione a tecla F5 para executar o código.

Em seguida, uma caixa de diálogo do Microsoft Excel aparecerá mostrando as linhas ocultas na planilha atual, conforme exibido na captura de tela abaixo.

Observação: Se não houver linhas ocultas no intervalo selecionado ou na planilha, você receberá a caixa de diálogo conforme exibido na captura de tela abaixo.

Artigos relacionados:

• Como verificar se o primeiro caractere em uma célula é uma letra ou número no Excel?