Como encontrar e obter o valor da primeira célula visível após filtrar no Excel?
Em alguns casos, pode ser necessário obter o valor da primeira célula visível em uma lista filtrada. Como conseguir isso? Este artigo mostrará métodos para resolvê-lo.
Encontre e obtenha o valor da primeira célula visível após filtrar com a fórmula de matriz
Encontre e obtenha o valor da primeira célula visível após filtrar com VBA
Encontre e obtenha o valor da primeira célula visível após filtrar com a fórmula de matriz
Você pode aplicar a seguinte fórmula de matriz para obter o valor da primeira célula visível em uma lista filtrada. Faça o seguinte.
1. Selecione uma célula em branco para colocar o primeiro valor visível, insira a fórmula abaixo nela e pressione o botão Ctrl + Shift + Entrar chaves simultaneamente.
=INDEX(C2:C19,MIN(IF(SUBTOTAL(3,OFFSET(C2,ROW(C2:C19)-ROW(C2),0)),ROW(C2:C19)-ROW(C2)+1)))
Note: Na fórmula, C2: C19 é a lista filtrada que você deseja que retorne o primeiro valor de célula visível, C2 é a primeira célula da lista. Você pode alterá-los conforme necessário.
Então você pode ver o valor da primeira célula visível na lista filtrada preenchida na célula selecionada, conforme a captura de tela acima mostrada.
Encontre e obtenha o valor da primeira célula visível após filtrar com VBA
Além de usar a fórmula de matriz acima para obter o valor da primeira célula visível em uma lista filtrada, você pode executar o script VBA abaixo para retornar rapidamente a primeira célula visível de uma lista filtrada. Faça o seguinte.
1. Selecione uma célula em branco, como E8, para colocar o primeiro valor de célula visível de uma lista filtrada.
2. Pressione outro + F11 simultaneamente para abrir o Microsoft Visual Basic para Aplicações janela.
3. No Microsoft Visual Basic para Aplicações janela, clique em inserção > Módulo. Em seguida, copie e cole o código VBA abaixo na janela Módulo.
Código VBA: encontre e obtenha 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 Sub
Note: No código, Folha1 é o nome da folha que contém a lista filtrada. “C” é o nome da coluna da qual você deseja obter o primeiro valor visível. Você pode alterá-los conforme necessário.
3. aperte o F5 para executar o código, então a primeira célula visível da lista filtrada localizada na coluna C será preenchida na célula E8 imediatamente.
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!