Como limpar os filtros de todas as folhas de cálculo do livro atual no Excel?
Ao trabalhar com uma pasta de trabalho do Excel que contém várias folhas de cálculo, é comum aplicar filtros em diferentes folhas para analisar os dados de forma eficaz. No entanto, depois de configurar filtros em múltiplas folhas, poderá precisar, mais tarde, removê-los todos de uma só vez para restaurar as folhas ao seu estado original, sem filtros. Fazê-lo manualmente — alternando entre cada folha e limpando os filtros individualmente — não só consome tempo como também aumenta o risco de esquecer alguma folha.
Esta tarefa surge frequentemente quando recebe um livro de colegas ou consolida dados de várias equipas, e pretende garantir que todos os filtros estão limpos antes de iniciar a sua própria análise ou preparar relatórios para partilha. Tratar manualmente cada folha pode ser ineficiente, especialmente em livros grandes com dezenas de folhas. Por isso, encontrar uma forma rápida e fiável de limpar todos os filtros de todas as folhas do seu livro atual pode poupar-lhe consideravelmente tempo e esforço, reduzindo ainda o risco de ignorar dados filtrados.
A seguir, apresentamos um método prático para realizar esta tarefa em apenas alguns passos. Para técnicas avançadas ou alternativas — como abordagens baseadas em fórmulas ou o uso de extras do Excel — consulte as soluções adicionais no final deste artigo.
Limpar filtros de todas as folhas de cálculo no Workbook Atual com código VBA
Limpar filtros de todas as folhas de cálculo no Workbook Atual com código VBA
Para remover eficientemente todos os filtros de todas as folhas do seu Livro de Trabalho Atual, utilize um script VBA — uma solução ideal para quem está à vontade com a execução de macros no Excel e especialmente eficaz em livros que combinam diferentes tipos de dados estruturados.
Antes de começar, guarde o seu trabalho, pois a execução do VBA irá efetuar alterações em massa no seu livro.
1. No livro onde pretende limpar os filtros, prima Alt + F11 simultaneamente para abrir a janela Microsoft Visual Basic for Applications. Se estiver a utilizar o Excel pela primeira vez, poderá ter de ativar o separador Programador nas opções do menu.
2. Na janela Microsoft Visual Basic for Applications aberta, vá a Inserir > Módulo para criar um novo módulo. Depois, copie e cole o seguinte script VBA na janela do módulo. Consulte a imagem abaixo como referência:
Código VBA: Limpar filtros de todas as folhas de cálculo no Workbook Atual
Sub Clear_fiter()
'Updated by Extendoffice 20250902
Dim xAF As AutoFilter
Dim xFs As Filters
Dim xLos As ListObjects
Dim xLo As ListObject
Dim xRg As Range
Dim xWs As Worksheet
Dim xIntC, xF1, xF2, xCount As Integer
Application.ScreenUpdating = False
On Error Resume Next
For Each xWs In Application.Worksheets
xWs.ShowAllData
Set xLos = xWs.ListObjects
xCount = xLos.Count
For xF1 = 1 To xCount
Set xLo = xLos.Item(xF1)
Set xRg = xLo.Range
xIntC = xRg.Columns.Count
For xF2 = 1 To xIntC
xLo.Range.AutoFilter Field:=xF2
Next
Next
Next
Application.ScreenUpdating = True
End Sub
3. Prima a tecla F5 ou clique no botão Executar para executar o código. Após a execução, todos os filtros — quer sejam filtros de intervalo padrão ou filtros baseados em tabelas — em todas as folhas do seu Livro de Trabalho Atual serão imediatamente removidos.
Certifique-se de que guarda o seu livro antes de executar macros, pois as ações realizadas pelo VBA não podem ser anuladas com Ctrl + Z.
Artigos relacionados:
- Como limpar a cache do filtro (itens antigos) da Tabela Dinâmica no Excel?
- Como limpar os filtros automaticamente ao abrir, guardar ou fechar um livro no Excel?
- Como filtrar dados com base numa caixa de verificação no Excel?
- Como preencher uma série de números numa coluna de uma lista filtrada no Excel?
As Melhores Ferramentas de Produtividade para o Office
Potencie as suas competências no Excel com Kutools para Excel e experimente uma eficiência como nunca antes.Kutools para Excel Oferece mais de 300 funcionalidades avançadas para impulsionar a produtividade e Economizar Tempo.Clique aqui para obter a funcionalidade de que mais precisa...
Office Tab Traz uma interface com separadores para o Office e torna o seu trabalho muito mais fácil
- Ative a edição e leitura com separadores no Word, Excel, PowerPoint, Publisher, Access, Visio e Project.
- Abra e crie vários documentos em novos separadores da mesma janela, em vez de em janelas separadas.
- Aumente a sua produtividade em 50 % e elimine centenas de cliques do rato todos os dias!
Todos os suplementos Kutools — num único instalador.
Kutools for Office reúne suplementos para Excel, Word, Outlook e PowerPoint, além do Office Tab Pro, sendo a solução ideal para equipas que trabalham em várias aplicações do Office.
- Pacote tudo-em-um— suplementos para Excel, Word, Outlook e PowerPoint + Office Tab Pro
- Um instalador, uma licença— configuração em minutos (pronto para MSI)
- Funciona melhor em conjunto— produtividade simplificada em todas as aplicações do Office
- Teste gratuito de 30 dias com todas as funcionalidades— sem registo, sem cartão de crédito
- Melhor relação qualidade-preço— poupe face à compra individual dos suplementos