Como verificar se a linha está oculta no Excel?
Este artigo fala sobre como verificar se a linha está oculta em um intervalo especificado ou em uma planilha do Excel.
Verifique se a linha está oculta no intervalo selecionado com o código VBA
Verifique se a linha está oculta em uma planilha com o código VBA
Verifique se a linha está oculta no intervalo selecionado com o código VBA
Faça o seguinte para verificar se as linhas estão ocultas em um intervalo selecionado e encontre o número da linha oculta.
1. Selecione o intervalo em que você verificará as linhas ocultas. aperte o outro + F11 chaves para abrir o Microsoft Visual Basic para Aplicações janela.
2. No Microsoft Visual Basic para Aplicações janela, clique em inserção > Módulo. Em seguida, copie o código VBA abaixo para a 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. aperte o F5 chave para executar o código.
Em seguida, uma Microsoft Excel a caixa de diálogo aparece para mostrar as linhas ocultas conforme a captura de tela abaixo.
Verifique se a linha está oculta em uma planilha com o código VBA
O código VBA abaixo pode ajudá-lo a verificar se há linhas ocultas em uma planilha do Excel. Faça o seguinte.
1. Abra a planilha de que você precisa para verificar as linhas ocultas e pressione o botão outro + F11 chaves para abrir o Microsoft Visual Basic para Aplicações janela.
2. No Microsoft Visual Basic para Aplicações janela, clique em inserção > Módulo. Em seguida, copie o código VBA abaixo para a 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. aperte o F5 chave para executar o código.
Em seguida, uma Microsoft Excel a caixa de diálogo aparece para mostrar as linhas ocultas na planilha atual, conforme a captura de tela abaixo.
Note: Se agora existirem linhas ocultas no intervalo ou planilha selecionada, você obterá a caixa de diálogo conforme a imagem mostrada abaixo.
Artigos relacionados:
Melhores ferramentas de produtividade de escritório
Aprimore suas habilidades de Excel com o Kutools para Excel e experimente uma eficiência como nunca antes. Kutools para Excel oferece mais de 300 recursos avançados para aumentar a produtividade e economizar tempo. Clique aqui para obter o recurso que você mais precisa...
Office Tab traz interface com guias para o Office e torna seu trabalho muito mais fácil
- Habilite a edição e leitura com guias em Word, Excel, PowerPoint, Publisher, Access, Visio e Project.
- Abra e crie vários documentos em novas guias da mesma janela, em vez de em novas janelas.
- Aumenta sua produtividade em 50% e reduz centenas de cliques do mouse para você todos os dias!