Como aplicar o mesmo filtro a várias folhas no Excel?
Aplicar a função Filtro numa folha de cálculo pode ser fácil, mas por vezes é necessário filtrar várias folhas que partilham o mesmo formato de dados e as mesmas condições de filtro. Filtrá-las uma a uma seria uma perda de tempo considerável — eis uma solução simples para resolver este problema de uma só vez.
Aplicar o mesmo filtro a várias folhas de cálculo com código VBA
Aplicar o mesmo filtro a várias folhas de cálculo com código VBA
Por exemplo, tenho quatro folhas de cálculo, como mostra a seguinte captura de ecrã, que precisam de ser filtradas simultaneamente com os mesmos critérios — Produto = KTE.
Não existe uma forma direta de filtrar dados em várias folhas no Excel, mas o código VBA abaixo pode ajudá-lo a realizar essa tarefa. Siga estes passos:
1. Prima e mantenha premidas as teclas ALT + F11 para abrir a janela do Microsoft Visual Basic for Applications.
2. Clique em Inserir > Módulo e cole o seguinte código na janela do Módulo.
Código VBA: Aplicar o mesmo filtro a várias folhas de cálculo:
Sub apply_autofilter_across_worksheets()
'Updateby Extendoffice
Dim xWs As Worksheet
On Error Resume Next
For Each xWs In Worksheets
xWs.Range("A1").AutoFilter 1, "=KTE"
Next
End Sub
3. Em seguida, prima a tecla F5 para executar este código; todos os produtos KTE são filtrados em todas as folhas de cálculo de uma só vez, conforme ilustrado na seguinte captura de ecrã:
Nota: No código acima, o excerto xWs.Range("A1").AutoFilter 1, «=KTE» indica a coluna e os critérios com base nos quais pretende filtrar. O número 1 corresponde à coluna utilizada para filtragem e pode alterá-lo conforme necessário. Por exemplo, se quiser filtrar encomendas superiores a 50, basta modificar este excerto para: A1 e =KTE xWs.Range("B1").AutoFilter 2, «>50».
Filtrar dados com múltiplos critérios ou outras condições específicas, como por comprimento do texto, diferenciação entre maiúsculas e minúsculas, entre outros. Kutools para Excel’s Super Filtroé uma funcionalidade poderosa; pode utilizar esta funcionalidade para realizar as seguintes operações:
Kutools para Excel: com mais de 300 extras úteis para Excel, experimente gratuitamente sem limitações durante 30 dias.Transfira e experimente gratuitamente já! |
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