Ma erano proprio cosi' difficili le domande?
Nell' ipotesi che voglia cercare la stringa nella colonna A dei fogli, prova questa macro:
- Codice: Seleziona tutto
Sub cercaz()
'
myStr = "VJ" '<<< La stringa da cercare
Worksheets.Add before:=Sheets(1)
For I = 2 To Worksheets.Count
Sheets(I).Select
LastA = Cells(Rows.Count, "A").End(xlUp).Row
For J = 1 To LastA
If Len(UCase(Cells(J, 1).Value)) > Len(Replace(UCase(Cells(J, 1).Value), UCase(myStr), "")) Then
Cells(J, 1).EntireRow.Copy Destination:=Sheets(1).Cells(Rows.Count, 1).End(xlUp).Offset(1, 0)
End If
Next J
Next I
'
End Sub
Da Excel, premi Alt-F11 per aprire l' editor delle macro; Menu /Inserisci /Modulo; copia il codice e incollalo nel frame di dx; personalizza l' istruzione marcata <<< e poi manda in esecuzione la macro.
La macro ti aggiunge un nuovo foglio di lavoro a sinistra di quelli presenti, poi effettua la ricerca in ognuno dei fogli e riporta nel nuovo foglio quelle righe che hanno in colonna A la sequenza cercata.
Fai sapere, ciao.