Come selezionare tutte le righe in cui una cella della colonna ha un valore specifico con Excel e VBA

In Excel - usa lo strumento Trova...

Seleziona l'intervallo di celle da cercare

Visualizza la casella Trova (io uso CTRL+F, puoi usare anche tu o il comando Trova e seleziona nella scheda Home della barra multifunzione)

Nella casella Trova cosa, digita il valore da trovare

Clicca Trova tutto (non Trova successivo)

Quando tutte le celle corrispondenti sono visualizzate nella lista, selezionale tutte usando CTRL+A

Una volta che sono tutte selezionate, chiudi la casella Trova

Estendi le celle attualmente selezionate all'intera riga, usando Shift+barra spaziatrice

O in VBA, usa Application.Union, come questo (per fare un ciclo di tutte le celle nell'intervallo specificato (A2:A30) e aggiungere le celle con un valore corrispondente a un nuovo intervallo).

(Ho usato strAnimal perché la mia lista è piena di animali, ma dovreste cambiare il nome della variabile con qualcosa che si adatti ai vostri dati).

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!