Como selecionar todas as linhas onde uma célula de coluna tem um valor específico com Excel e VBA

No Excel - use a ferramenta Localizar...

Selecione o intervalo de células a serem pesquisadas

Exibir a caixa Procurar (Eu uso CTRL+F, você pode usar isto também ou você pode usar o comando Procurar & Selecionar na guia Home da fita)

Na caixa Procurar o quê, digite o valor a ser encontrado

Click Find All (Not find Next)

Quando todas as células correspondentes forem exibidas na lista, selecione-as todas usando CTRL+A

Após serem todas selecionadas, feche a caixa Find

Extenda as células atualmente selecionadas para a linha inteira, usando Shift+Spacebar

Or em VBA, use Application.Union, assim (para fazer um loop em todas as células do intervalo especificado (A2:A30) e adicionar células com um valor correspondente a um novo intervalo).

(Eu usei strAnimal como minha lista está cheia de animais, mas você deve mudar o nome da variável para algo que se adeque aos seus dados).

1. Sub SelectMatchingRow() 
2. Dim strAnimal As String 
3. Dim rng As Range, c As Range, myRng As Range 
4.  
5. 'Set range with values to be searched for matches 
6. Set rng = ActiveSheet.Range("A2:A30") 
7. 'Fill string variable with string of text to be matched 
8. strAnimal = "Mouse" 
9.  
10. 'Loop through each cell in range 
11. For Each c In rng 
12. 'Check if cell value matches the string to be matched 
13. If c.Value = strAnimal Then 
14. 'Check if this is the first match (new range hasn't been filled yet) 
15. If myRng Is Nothing Then 
16. 'Fill new range with cell 
17. Set myRng = c 
18. Else 
19. 'Join new matching cell together with previously found matches 
20. Set myRng = Application.Union(myRng, c) 
21. End If 
22. End If 
23. Next c 
24.  
25. 'Select entire row of each cell in new range 
26. myRng.EntireRow.Select 
27. End Sub 

Good Luck!