Como ocultar linhas automaticamente se houver células em branco em uma coluna?
Se você tiver um intervalo de dados que preenche algumas células em branco em uma coluna, e agora, deseja ocultar as linhas que contêm as células em branco naquela coluna automaticamente. Existem boas maneiras de resolver esse trabalho no Excel de forma rápida e fácil?
Ocultar linhas automaticamente se células em branco em uma coluna com código VBA
Ocultar linhas automaticamente se células em branco em uma coluna com código VBA
O código a seguir pode ajudá-lo a ocultar todas as linhas se células em branco em uma coluna específica de uma só vez, e se você excluir o conteúdo da célula nessa coluna, as linhas também serão ocultadas automaticamente. Faça o seguinte:
1. Clique com o botão direito na guia da planilha em que deseja ocultar automaticamente as linhas se houver células em branco em uma coluna e escolha Ver código a partir do menu de contexto, no pop-out Microsoft Visual Basic para Aplicações janela, copie e cole o código a seguir no espaço em branco Módulo:
Código VBA: ocultar linhas automaticamente se células em branco em uma coluna:
Private Sub Worksheet_Change(ByVal Target As Range)
'Updateby Extendoffice
Dim xRg As Range
Application.ScreenUpdating = False
For Each xRg In Range("A1:A20")
If xRg.Value = "" Then
xRg.EntireRow.Hidden = True
Else
xRg.EntireRow.Hidden = False
End If
Next xRg
Application.ScreenUpdating = True
End Sub
Note: No código acima, A1: A20 é a lista de dados que contém as células em branco que você deseja ocultar automaticamente.
2. Em seguida, volte para a planilha e, agora, ao clicar duas vezes em qualquer célula e pressionar Entrar , as linhas que contêm células em branco na coluna A foram ocultadas de uma vez, e se você limpar qualquer conteúdo de célula nas células especificadas da coluna A, as linhas serão ocultadas automaticamente.
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!