Como verificar se uma célula ou um intervalo de várias células está vazio com o Excel VBA?

Hoje vamos aprender como verificar facilmente se uma ou várias células estão vazias usando o Visual Basic for Applications. O conteúdo é relevante para o Excel 2019/365, 2016 e versões anteriores do Microsoft Office.

Trabalho de preparação

Antes de começar a codificar com VBA no Excel, você precisará garantir que sua guia de desenvolvimento esteja habilitada. Se não for esse o caso, por favor, dê uma olhada neste breve tutorial .

Verificando se o intervalo de células do Excel está vazio com VBA

  • No Excel, abra seu ambiente Visual Basic pressionando Alt+F11
  • Insira o código a seguir como procedimento em sua planilha ou, alternativamente, em um módulo VBA dedicado.
Sub Check_Cell_is_empty_alt()

Dim rng As Range
Set rng = Selection

For Each Cell In rng

    If IsEmpty(Cell.Value) = True Then
        
    Debug.Print ("Empty")
    Else
        Debug.Print ("Not Empty")
    End If
Next Cell


End Sub


  • Vá para sua planilha e selecione um intervalo arbitrário de células.
  • Volte para o editor do Visual Basic e certifique-se de que o visualizador imediato (CTRL+G) esteja visível – pois o método Debug.Print no código produzirá seu resultado nessa janela.
  • Pressione F5 para executar seu código.
  • Olhe para os resultados na janela imediata.

Como verificar se uma célula ou um intervalo de várias células está vazio com o Excel VBA?

  • Todas as células em branco serão identificadas.

Possíveis extensões para o código: Obviamente, você pode estender este código conforme necessário caso esteja interessado em pular valores em branco ou simplesmente não fazer nada caso as células não estejam cheias. Da mesma forma, você pode verificar se o próprio Range está vazio, ou seja – nenhuma célula preta está contida.

Verificando campos não vazios

Da mesma forma, você pode usar a propriedade IsEmpty para verificar os campos que não estão em branco.

 If Not IsEmpty(Cell.Value) = True Then
        Debug.Print ("Not Empty")
    Else
        Debug.Print ("Empty")
    End If

Bônus: use o código a seguir se quiser destacar células vazias também.

Dim i As Long Dim c As Long Dim myRange As Range Dim myCell As Range Set myRange = Range("A1:A10") Para cada myCell em myRange ' c = c + 1 If IsEmpty(myCell) Then myCell.Interior.Color = RGB(255, 87, 87) i = i + 1 End If Next myCell MsgBox _ "Existem totais " & eu & " célula(s) vazia(s) de " & acampamento; "."

Leave a Comment

Como corrigir o código de erro NVIDIA GeForce Experience 0x0003 no Windows 10?

Como corrigir o código de erro NVIDIA GeForce Experience 0x0003 no Windows 10?

Cansado de corrigir o código de erro 0x0003 da Nvidia Geforce Experience no PC com Windows 10 e nada está funcionando? Em seguida, siga as correções fáceis fornecidas neste artigo.

Corrigir NOX Player sem som Windows 10 com 9 soluções rápidas

Corrigir NOX Player sem som Windows 10 com 9 soluções rápidas

Você está enfrentando NOX Player No Sound Issue enquanto joga seu jogo favorito? Em seguida, leia este guia detalhado e resolva o problema.

[RESOLVIDO] Erros do Call of Duty Advanced Warfare - travando, travando, FPS baixo e mais

[RESOLVIDO] Erros do Call of Duty Advanced Warfare - travando, travando, FPS baixo e mais

Aprenda a solucionar vários erros do Call of Duty Advanced Warfare, como travamentos, gagueira e FPS baixo para uma experiência de jogo otimizada.

Como corrigir um erro de falha ao carregar Steamui.dll no Steam

Como corrigir um erro de falha ao carregar Steamui.dll no Steam

Um erro fatal "falha ao carregar steamui.dll" no Steam pode ser corrigido. Confira as soluções eficazes para resolver este problema.

Como corrigir o erro 3000 do Twitch? [100% resolvido]

Como corrigir o erro 3000 do Twitch? [100% resolvido]

Obtendo o Twitch Error 3000 no Chrome, siga as soluções fornecidas e comece a vaporizar o Twitch sem o erro de decodificação do recurso 3000 Media.

[RESOLVIDO] Erros do American Truck Simulator: Crash, Steam_Api64.Dll está ausente e mais

[RESOLVIDO] Erros do American Truck Simulator: Crash, Steam_Api64.Dll está ausente e mais

Quer CORRIGIR ERROS DO AMERICAN TRUCK SIMULATOR: CRASH, LOW FPS, STEAM_API64.DLL ESTÁ FALTANDO PROBLEMA e MAIS, então siga as soluções fornecidas com cuidado.

Desempenho lento do Microsoft Word? Sete dicas para tornar o Word 365 / 2019 / 2016 muito mais rápido

Desempenho lento do Microsoft Word? Sete dicas para tornar o Word 365 / 2019 / 2016 muito mais rápido

Saiba como você pode facilmente tornar o Word 365 mais rápido ao desabilitar suplementos, atualizar seu hardware e se livrar de arquivos temporários.

[RESOLVIDO] Como corrigir League Of Legends d3dx9_39.dll ausente, erro DirectX

[RESOLVIDO] Como corrigir League Of Legends d3dx9_39.dll ausente, erro DirectX

Aprenda a corrigir erros d3dx9_39.dll e DirectX em League Of Legends. Siga as soluções fornecidas para resolver erros DirectX ausentes d3dx9_39.dll.

Como corrigir o problema do controlador PS5 não conecta/não sincroniza?

Como corrigir o problema do controlador PS5 não conecta/não sincroniza?

Se o controlador PS5 não se conectar ou não sincronizar, experimente estas soluções testadas e comprovadas para corrigir esses problemas de conexão.

Como corrigir NTLDR está faltando erro no Windows 10/8/7?

Como corrigir NTLDR está faltando erro no Windows 10/8/7?

Saiba como solucionar o erro "NTLDR está faltando" no Windows com as soluções mais eficientes. Conheça também o que causa o erro NTLDR e outras informações relevantes.