Como encontrar e obter o valor da primeira célula visível após aplicar um filtro no Excel?
Em alguns casos, poderá precisar de obter o valor da primeira célula visível numa lista filtrada. Como consegui-lo? Este artigo mostra-lhe métodos eficazes para resolver esta situação.
Encontrar e obter o valor da primeira célula visível após filtrar com fórmula matricial
Encontrar e obter o valor da primeira célula visível após filtrar com VBA
Encontrar e obter o valor da primeira célula visível após filtrar com fórmula matricial
Pode utilizar a seguinte fórmula matricial para obter o valor da primeira célula visível numa lista filtrada. Siga os passos abaixo.
1. Selecione uma célula em branco para inserir o primeiro valor visível, introduza a fórmula abaixo e, em seguida, prima simultaneamente as teclas Ctrl+Shift+Enter.
=INDEX(C2:C19,MIN(IF(SUBTOTAL(3,OFFSET(C2,ROW(C2:C19)-ROW(C2),0)),ROW(C2:C19)-ROW(C2)+1)))
Nota: Na fórmula, C2:C19 é a lista filtrada da qual pretende obter o valor da primeira célula visível, sendo C2 a primeira célula da lista. Pode ajustar estes valores conforme necessário.
De seguida, verá o valor da primeira célula visível na lista filtrada preenchido automaticamente na célula selecionada, tal como ilustrado na imagem acima.
Encontrar e obter o valor da primeira célula visível após filtrar com VBA
Além de usar a fórmula matricial acima para obter o valor da primeira célula visível numa lista filtrada, pode executar rapidamente o script VBA abaixo para alcançar o mesmo resultado. Siga os passos indicados a seguir.
1. Selecione uma célula vazia, como por exemplo a E8, para inserir o valor da primeira célula visível da lista filtrada.
2. Prima simultaneamente as teclas Alt + F11 para abrir a janela do Microsoft Visual Basic for Applications.
3. Na janela do Microsoft Visual Basic for Applications, clique em Inserir > Módulo. Em seguida, copie e cole o código VBA abaixo na janela do Módulo.
Código VBA: encontrar e obter o valor da primeira célula visível após filtrar no Excel
Sub FirstVisibleCell()
With Worksheets("Sheet1").AutoFilter.Range
ActiveCell.Value2 = Range("C" & .Offset(1, 0).SpecialCells(xlCellTypeVisible)(1).Row).Value2
End With
End SubNota: No código, Sheet1 é o nome da folha que contém a lista filtrada e «C» é a coluna da qual pretende obter o primeiro valor visível. Pode ajustar estes valores conforme necessário.
4. Prima a tecla F5 para executar o código; assim, o valor da primeira célula visível da lista filtrada na coluna C será imediatamente preenchido na célula E8.
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