Como verificar rapidamente se uma planilha está vazia no Excel?
Se houver algumas planilhas vazias em uma pasta de trabalho enorme, como você pode verificar rapidamente se uma planilha está vazia na pasta de trabalho e excluí-las? No Excel, existe uma função incorporada para determinar se uma folha está vazia ou não, mas aqui, apresento um código VBA para você verificar se uma folha está vazia.
Verifique se uma folha está vazia com VBA
Verifique se uma folha está vazia com VBA
Para verificar se uma folha está vazia, você pode usar o código de macro abaixo para determinar rapidamente se uma folha está em branco.
1. Habilite uma folha que você deseja verificar se está vazia, pressione Alt + F11 chave para abrir Microsoft Visual Basic para Aplicações janela e clique inserção > Módulo para criar um novo Módulo.
2. No script em branco, cole o código da macro abaixo nele. Veja a imagem:
VBA: Verifique se uma folha está vazia
Sub CheckSheetEmpty()
'UpdatebyExtendoffice20170830
If WorksheetFunction.CountA(ActiveSheet.UsedRange) = 0 And ActiveSheet.Shapes.Count = 0 Then
MsgBox "Sheet is empty", vbInformation, "KuTools For Excel"
Else
MsgBox "Sheet is not empty", vbInformation, "KuTools For Excel"
End If
End Sub
3. Salve o código e pressione F5 para executar o código, e uma caixa de diálogo aparecerá para lembrá-lo de que a planilha está vazia ou não.
 |
 |
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!
