Note: The other languages of the website are Google-translated. Back to English

 Como aplicar o mesmo filtro a várias planilhas no Excel?

Pode ser fácil para nós aplicar a função Filtro para filtrar dados em uma planilha, mas, às vezes, você pode precisar filtrar em várias planilhas que têm formatação de dados comum com os mesmos critérios de filtro. Filtrá-los um por um é uma perda de tempo. Aqui, posso apresentar uma maneira fácil de resolver isso de uma vez.

Aplique o mesmo filtro a várias planilhas com código VBA


seta azul bolha direita Aplique o mesmo filtro a várias planilhas com código VBA

Por exemplo, tenho quatro planilhas, pois a captura de tela a seguir precisa ser filtrada com os mesmos critérios que o Produto = KTE de uma vez.

doc filtrar múltiplas folhas 1

Não há uma maneira direta de filtrar dados em várias planilhas no Excel, mas o seguinte código VBA pode ajudá-lo a terminar este trabalho, faça o seguinte:

1. Segure o ALT + F11 chaves, então ele abre o Microsoft Visual Basic para Aplicações janela.

2. Clique inserção > Móduloe cole o seguinte código no Módulo Janela.

Código VBA: aplique o mesmo filtro a várias planilhas:

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. E, em seguida, pressione F5 chave para executar este código, todos os produtos do KTE foram filtrados em todas as planilhas de uma vez, veja a imagem:

doc filtrar múltiplas folhas 2

Nota: Dentro do código acima, neste xWs.Range ("A1"). AutoFiltro 1, "= KTE" roteiro, A1 e = KTE indica a coluna e os critérios nos quais você deseja filtrar, o número 1 é o número da coluna em que você filtrou, você pode alterá-los conforme sua necessidade. Por exemplo, se você deseja filtrar o pedido maior que 50, você só precisa modificar este script desta forma: xWs.Range ("B1"). AutoFiltro 2, "> 50".


Filtre os dados por vários critérios ou outra condição específica, como pelo comprimento do texto, diferenciando maiúsculas de minúsculas, etc.

Kutools for Excel'S Super Filtro feature é um utilitário poderoso, você pode aplicá-lo para concluir as seguintes operações:

  • Filtre dados com vários critérios; Filtre os dados por comprimento do texto;
  • Filtre os dados por maiúsculas / minúsculas; Filtrar data por ano / mês / dia / semana / trimestre

doc-super-filtro1

Kutools for Excel: com mais de 300 suplementos úteis do Excel, grátis para testar sem limitação em 30 dias. Baixe e teste grátis agora!


As melhores ferramentas de produtividade para escritório

O Kutools for Excel resolve a maioria dos seus problemas e aumenta sua produtividade em 80%

  • armadilha para peixes: Insira rapidamente fórmulas complexas, gráficos e qualquer coisa que você tenha usado antes; Criptografar células com senha; Criar lista de discussão e enviar emails ...
  • Barra Super Fórmula (edite facilmente várias linhas de texto e fórmula); Layout de leitura (ler e editar facilmente um grande número de células); Colar na faixa filtrada...
  • Mesclar células / linhas / colunas sem perder dados; Dividir o conteúdo das células; Combinar linhas / colunas duplicadas... Evite células duplicadas; Comparar intervalos...
  • Selecione Duplicado ou Único Linhas; Selecione linhas em branco (todas as células estão vazias); Super Find e Fuzzy Find em muitos livros; Seleção aleatória ...
  • Cópia exata Várias células sem alterar a referência da fórmula; Criação automática de referências para várias folhas; Inserir marcadores, Caixas de seleção e mais ...
  • Extrair Texto, Adicionar texto, remover por posição, Remover Espaço; Criar e imprimir subtotais de paginação; Converter entre conteúdo de células e comentários...
  • Super Filtro (salvar e aplicar esquemas de filtro a outras planilhas); Classificação Avançada por mês / semana / dia, frequência e mais; Filtro Especial por negrito, itálico ...
  • Combine pastas de trabalho e planilhas; Mesclar tabelas com base em colunas-chave; Divida os dados em várias folhas; Conversão em lote de xls, xlsx e PDF...
  • Mais de 300 recursos poderosos. Suporta Office / Excel 2007-2021 e 365. Suporta todos os idiomas. Fácil implantação em sua empresa ou organização. Recursos completos de avaliação gratuita de 30 dias. Garantia de devolução do dinheiro em 60 dias.
guia kte 201905

Guia do Office 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!
parte inferior da aba do escritório
Comentários (41)
Ainda não há classificações. Seja o primeiro a avaliar!
Este comentário foi feito pelo moderador no site
como você aplica esta fórmula de filtro: a um intervalo de planilhas? tenho uma pasta de trabalho que tem dados nas primeiras 5 folhas, e a pasta de trabalho tem 200 folhas só preciso que o filtro seja aplicado na folha 6-200. Sub apply_autofilter_across_worksheets() 'Atualizar por Extendoffice 20160623 Dim xWs As Worksheet On Error Resume Next for each xWs in Worksheets xWs.Range("A1").AutoFilter 1, "=KTE" Next End Sub
Este comentário foi feito pelo moderador no site
Sub apply_autofilter_across_worksheets() Dim J As integer On Error Resume Next For J = 6 to Worksheets(worksheets.count) Thisworkbook.Sheets(J).Range("A1").Autofilter 1, "=KTE" Next End Sub
Este comentário foi feito pelo moderador no site
Prezados, quero filtrar mais de um valor, usei este xWs.Range("B1").AutoFilter 2, "=223AM", xlOr, "=113IR", xlOr, "=003IR" e funcionou mas quando eu aumentar os valores desejados para >2 ocorre um erro. este comando eu uso xWs.Range("B1").AutoFilter 2, "=223AM", xlOr, "=113IR", xlOr, "=003IR", xlOr, "=019IR", xlOr, "=311IR", xlOr , "=518ZA", xlOr, "=223AM", xlOr, "=592IR" obrigado,
Este comentário foi feito pelo moderador no site
ao filtrar uma única palavra em várias planilhas, ele não mostra os dados filtrados....todos os dados estão ocultos. Por favor, resolva isso.
Este comentário foi feito pelo moderador no site
Oi,


Meus dados estão na coluna E e quando aplico esse filtro com Range("E1") ele ainda filtra a coluna A


Como posso solucionar problemas?
obrigado
Este comentário foi feito pelo moderador no site
Basta escrever o número da coluna no AutoFilter, neste caso: xWs.Range("E1").AutoFilter 5,
Este comentário foi feito pelo moderador no site
OBRIGADO!!!!
Este comentário foi feito pelo moderador no site
DELETE A COLUNA A LOL
Este comentário foi feito pelo moderador no site
Como executar se o filtro estiver em uma coluna diferente em cada planilha?
Este comentário foi feito pelo moderador no site
Como você pode usar o resultado do filtro automático para definir o filtro para cada outra planilha em vez de usar =(nome específico)
Este comentário foi feito pelo moderador no site
Posso usar isso para filtrar tabelas dinâmicas em várias planilhas se todas as tabelas dinâmicas forem da mesma fonte de dados e configuradas usando os mesmos critérios?
Este comentário foi feito pelo moderador no site
Existe alguma opção para filtrar por cores?
Este comentário foi feito pelo moderador no site
Olá, Mahesh,
Se você deseja filtrar dados por cor, os dois artigos a seguir podem te ajudar! Por favor, veja-os, espero que possa ajudá-lo!

https://www.extendoffice.com/documents/excel/912-excel-filter-by-cell-color.html
https://www.extendoffice.com/documents/excel/3383-excel-filter-by-multiple-colors.html
Este comentário foi feito pelo moderador no site
Oi,


Como isso funciona se a coluna Product for apresentada em lugares diferentes em outras planilhas?


Na folha1 é A1 na folha2 está na B1 e na folha3 é A1 novamente?

Obrigado,
Monika
Este comentário foi feito pelo moderador no site
Existe uma maneira de alterar a parte "= KTE" de cada planilha com um filtro de conteúdo baseado no nome da planilha?
Este comentário foi feito pelo moderador no site
Obrigado pelo código!! existe uma maneira de alterar o "= KTE" para usar um valor de uma lista ou lista suspensa?
Este comentário foi feito pelo moderador no site
OI, o superfiltro em toda a pasta de trabalho é reaplicado automaticamente sempre que houver uma atualização do arquivo?
Este comentário foi feito pelo moderador no site
Podemos usar o nome da célula como Produto em vez de A1 em: xWs.Range("A1").AutoFilter 1, "=KTE"
Eu tenho coluna diferente e alguns nomes vêm em coluna diferente.
Este comentário foi feito pelo moderador no site
Eu usei filtro em todas as folhas. E eu quero mudar s.no de 1 2 3 serialmente em cada folha após o filtro.


Por favor, deixe-me saber se você tem código vba para ele
Este comentário foi feito pelo moderador no site
Como usar a função "Filtrar entre" para as mesmas folhas múltiplas?

(Exemplo: intervalo de tempo)
Este comentário foi feito pelo moderador no site
como eliminar linhas filtradas?
Este comentário foi feito pelo moderador no site
Caro,

Como filtrar com várias condições?
Por exemplo, quero filtrar em ordem acima de 50, mas apenas produtos KTE.

Obrigado antecipadamente.
Este comentário foi feito pelo moderador no site
Olá, Pedja,
Para filtrar várias planilhas com base em duas condições, aplique o seguinte código:
Sub apply_autofilter_across_worksheets()

'Atualizar por Extendoffice

Dim xWs como planilha

On Error Resume Next

Para cada xWs em planilhas

Com xWs.Range("A1")

.AutoFilter Field:=1, Criteria1:="KTE" 'Coluna A é igual a "KTE"

.AutoFilter Field:=2, Criteria1:=">500" 'Coluna B maior que 500

Terminar com

Seguinte

End Sub

Por favor, tente, espero que possa ajudá-lo!
Este comentário foi feito pelo moderador no site
mesmo se eu substituir A1 por G1, ele coloca o filtro na coluna A1
Este comentário foi feito pelo moderador no site
Olá, Tânia,
Você acabou de substituir A1 por G1, ao mesmo tempo, você deve alterar a coluna número 1 para a coluna número 7, conforme código abaixo:
xWs.Range("G1").AutoFiltro 7, "=KTE"
Por favor, tente, obrigado!
Este comentário foi feito pelo moderador no site
Olá,
é possível filtrar com base no nome da coluna, em vez do número (já que meus dados estão em colunas diferentes nas diferentes planilhas)?
ObrigadoManuela
Este comentário foi feito pelo moderador no site
Eu quero filtrar com a mesma condição "KTE", mas se não aparecer em uma planilha para não mostrar nenhum dado.
Este comentário foi feito pelo moderador no site
Oi ,
Eu quero critérios de filtro com base em um valor de célula em vez de "KTE" é possível ???
Este comentário foi feito pelo moderador no site
Olá, Hemraj, Para filtrar os dados com base em um valor de célula específico em vez do texto fixo, aplique o código abaixo: Sub apply_autofilter_across_worksheets()
'Atualizar por Extendoffice
Dim xWs como planilha
On Error Resume Next
Para cada xWs em planilhas
xWs.Range("A1").AutoFiltro 1, Sheet1.Range("E2")
Seguinte
End SubNota: Por favor, altere o Sheet1 e E2 dentro disto Sheet1.Range("E2") script para sua própria planilha e valor da célula. Por favor, tente, espero que possa ajudá-lo!
Este comentário foi feito pelo moderador no site
Olá Skyyang,
Obrigado pelo seu valioso e fabuloso suporte, tentei usar as mesmas fórmulas, mas não funcionou por qual poderia ser o motivo. O seguinte é o código que estou usando para minha planilha do Excel.
Sub apply_autofilter_across_worksheets()
'Atualizar por Extendoffice
Dim xWs como planilha
On Error Resume Next
Para cada xWs em planilhas
xWs.Range("A1").AutoFilter 1, Sheet2.Range("C4")
Seguinte
End Sub
Não há comentários postados aqui ainda
carregar mais
Deixe o seu comentário
Postando como convidado
×
Avalie esta postagem:
0   Personagens
Locais sugeridos

Siga-nos

Copyright © 2009 - www.extendoffice.com. | Todos os direitos reservados. Distribuído por ExtendOffice. | | | Mapa do site
Microsoft e o logotipo do Office são marcas comerciais ou marcas registradas da Microsoft Corporation nos Estados Unidos e / ou em outros países.
Protegido por Sectigo SSL