Como filtrar dados da seleção da lista suspensa no Excel?
No Excel, a maioria de nós pode filtrar dados usando o recurso Filtro. Mas, você já tentou filtrar dados da seleção da lista suspensa? Por exemplo, quando eu seleciono um item da lista suspensa, quero que suas linhas correspondentes sejam filtradas como mostrado a seguir. Neste artigo, falarei sobre como filtrar dados usando a lista suspensa em uma ou duas planilhas.
Filtre os dados da seleção da lista suspensa em uma planilha com fórmulas auxiliares
Filtre os dados da seleção da lista suspensa em duas planilhas com código VBA
Filtre os dados da seleção da lista suspensa em uma planilha com fórmulas auxiliares
Para filtrar os dados da lista suspensa, você pode criar algumas colunas de fórmula auxiliares, siga as etapas a seguir, uma por uma:
1. Primeiro, insira a lista suspensa. Clique em uma célula onde deseja inserir a lista suspensa e clique em Data > Validação de dados > Validação de dados, veja a captura de tela:
2. No estalou para fora Validação de dados caixa de diálogo, sob o Configurações guia, selecione Lista do Permitir desça e clique em 
botão para escolher a lista de dados em que deseja criar a lista suspensa, consulte a captura de tela:
3. E, em seguida, clique em OK botão, a lista suspensa é inserida de uma vez e escolha um item da lista suspensa e, em seguida, insira esta fórmula: = LINHAS ($ A $ 2: A2) (A2 é a primeira célula da coluna que contém o valor da lista suspensa) na célula D2 e, em seguida, arraste a alça de preenchimento para baixo até as células para aplicar esta fórmula, veja a captura de tela:
4. Continue inserindo esta fórmula: = SE (A2 = $ H $ 2, D2, "") na célula E2 e, em seguida, arraste a alça de preenchimento para baixo para preencher esta fórmula, veja a captura de tela:
Note: Na fórmula acima:A2 é a primeira célula da coluna que contém o valor da lista suspensa ，H2 é a célula onde a lista suspensa é colocada, D2 é a primeira fórmula da coluna auxiliar.
5. Em seguida, digite esta fórmula: = IFERROR (PEQUENO ($ E $ 2: $ E $ 17, D2), "") na célula F2 e arraste a alça de preenchimento para baixo até as células para preencher esta fórmula, veja a captura de tela:
Note: Na fórmula acima: E2: E17 são as células da segunda fórmula auxiliar, D2 é a primeira célula na primeira coluna de fórmula auxiliar.
6. Depois de inserir as colunas da fórmula auxiliar, você deve enviar o resultado filtrado em outro local, aplique esta fórmula: =IFERROR(INDEX($A$2:$C$17,$F2,COLUMNS($J$2:J2)),"") na célula J2 e, em seguida, arraste a alça de preenchimento de J2 para L2 e o primeiro registro dos dados com base na lista suspensa foi extraído, consulte a captura de tela:
Note: Na fórmula acima: A2: C17 são os dados originais que você deseja filtrar, F2 é a terceira coluna da fórmula auxiliar, J2 é a célula onde você deseja enviar o resultado do filtro.
7. Em seguida, arraste a alça de preenchimento até as células para exibir todos os registros filtrados correspondentes, veja a captura de tela:
8. De agora em diante, quando você selecionar um item da lista suspensa, todas as linhas com base nesta seleção serão filtradas de uma vez, consulte a captura de tela:
Filtre os dados da seleção da lista suspensa em duas planilhas com código VBA
Se a sua célula da lista suspensa na Folha1 e os dados filtrados na Folha2, ao escolher um item da lista suspensa, outra folha será filtrada. Como você poderia terminar este trabalho no Excel?
O seguinte código VBA pode lhe fazer um favor, faça o seguinte:
1. Clique com o botão direito na guia da planilha que contém a célula da lista suspensa e escolha Ver código a partir do menu de contexto, no aberto Microsoft Visual Basic para aplicativos janela, copie e cole o seguinte código no módulo em branco:
Código VBA: filtre os dados da seleção da lista suspensa em duas folhas:
Private Sub Worksheet_Change(ByVal Target As Range)
'Updateby Extendoffice
On Error Resume Next
If Not Intersect(Range("A2"), Target) Is Nothing Then
Application.EnableEvents = False
If Range("A2").Value = "" Then
Worksheets("Sheet2").ShowAllData
Else
Worksheets("Sheet2").Range("A2").AutoFilter 1, Range("A2").Value
End If
Application.EnableEvents = True
End If
End Sub
Note: No código acima: A2 é a célula que contém a lista suspensa, e Sheet2 é a planilha que contém os dados que você deseja filtrar. O número 1 no script: AutoFiltro 1 é o número da coluna que você deseja filtrar com base. Você pode alterá-los conforme sua necessidade.
2. A partir de agora, quando você selecionar um item da lista suspensa na Planilha1, e os dados correspondentes serão filtrados na Planilha2, consulte a captura de tela:
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!
