Como aplicar o mesmo filtro em 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 possuem formatação de dados comuns com os mesmos critérios de filtro. Filtrá-las uma por uma irá desperdiçar muito tempo; aqui, posso apresentar uma maneira fácil de resolver isso de uma vez.

Aplicar o mesmo filtro em várias planilhas com código VBA

Aplicar o mesmo filtro em várias planilhas com código VBA

Por exemplo, tenho quatro planilhas, conforme a captura de tela a seguir, que precisam ser filtradas com o mesmo critério: Produto = KTE de uma só vez.

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 realizar essa tarefa; por favor, siga as instruções abaixo:

1. Pressione e segure as teclas ALT + F11, e abrirá a janela 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 em 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. Em seguida, pressione a tecla F5 para executar este código; todos os produtos KTE serão filtrados em todas as planilhas de uma só vez, veja a captura de tela:

Observação: No código acima, neste script xWs.Range("A1").AutoFilter 1, "=KTE", A1 e =KTE indicam a coluna e o critério pelo qual você deseja filtrar, o número 1 é o número da coluna que está sendo filtrada, e você pode alterá-los conforme necessário. Por exemplo, se você quiser filtrar pedidos maiores que 50, basta modificar este script assim: xWs.Range("B1").AutoFilter 2, ">50".