Como limpar filtros de todas as planilhas na pasta de trabalho ativa no Excel?
Suponha que você tenha criado vários filtros em planilhas diferentes em uma pasta de trabalho do Excel e agora queira limpar todos esses filtros de uma vez. Normalmente, você precisa ir para a planilha um por um para verificar o filtro e depois limpá-lo manualmente. Existe algum método conveniente para limpar os filtros de todas as planilhas em uma pasta de trabalho ativa? Tente o método neste artigo.
Limpe os filtros de todas as planilhas na pasta de trabalho ativa com o código VBA
Limpe os filtros de todas as planilhas na pasta de trabalho ativa com o código VBA
Execute o script VBA abaixo para limpar os filtros de todas as planilhas na pasta de trabalho ativa.
1. Na pasta de trabalho, você precisa limpar os filtros, pressione 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 e cole o script VBA abaixo na janela Módulo. Veja a imagem abaixo:
Código VBA: Limpe os filtros de todas as planilhas na pasta de trabalho ativa
Sub Clear_fiter()()
'Updated by Extendoffice 20210625
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. aperte o F5 chave para executar o código. Em seguida, todos os filtros em todas as planilhas na pasta de trabalho atual são limpos imediatamente.
Artigos relacionados:
- Como limpar o cache do filtro (itens antigos) da Tabela Dinâmica no Excel?
- Como limpar filtros ao abrir, salvar ou fechar a pasta de trabalho no Excel?
- Como filtrar dados com base na caixa de seleção do Excel?
- Como preencher uma série de números em uma coluna de lista filtrada no Excel?
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!