excel-cerca testo in celle

[leo_42]

Ho due tabelle in foglio1 e in foglio2 e vorrei metterle a confronto cercando nella prima tabella colonna A che ha circa 1000 nominativi frazioni di testo avendo come voci da ricercare frazioni di testo delle celle della colonna A del foglio2.
es.
-foglio1
andrea p.
simone c.
riccardo c.

-foglio2
gianni p.
sandro a.
andrea l.

cerco
es. le prime 4 cifre

risultato, magari riportato a fiano della tab.foglio2
-
-
andrea p.

sarò stato chiaro ? Mah, dubito ma confido nella vostra esperienza e pazienza.
Grazie
Ciao

[Flash30005]

Ciao leo_42 e benvenuto nel Forum

Prova ad usare questa macro

Codice: Seleziona tutto

Sub TrovaRiporta()
UR1 = Worksheets("Foglio1").Range("A" & Rows.Count).End(xlUp).Row
UR2 = Worksheets("Foglio2").Range("A" & Rows.Count).End(xlUp).Row
For RR1 = 2 To UR1
Str1 = Mid(Worksheets("Foglio1").Range("A" & RR1).Text, 1, 4)
For RR2 = 2 To UR2
Str2 = Mid(Worksheets("Foglio2").Range("A" & RR2).Text, 1, 4)
If Str1 = Str2 Then
Col = Worksheets("Foglio2").Cells(RR2, 250).End(xlToLeft).Column + 1
Worksheets("Foglio2").Cells(RR2, Col).Value = Worksheets("Foglio1").Cells(RR1, 1).Value
End If
Next RR2
Next RR1
End Sub


Se le lettere sono tutte in minuscolo ok
altrimenti usa Ucase nella variabile Str1 e Str2

Fai sapere
Ciao

[Anthony47]

Se i tuoi dati sono in col A, da riga 2 in avanti, prova questa formula in B2 di Foglio2:

Codice: Seleziona tutto

=SCARTO(Foglio1!$A$1;CONFRONTA(SINISTRA(A2;$B$1);SINISTRA(Foglio1!$A$1:$A$2000;$B$1);0)-1;0)

Da confermare con Contr-Maiusc-Enter, poi puoi copiare e incollare verso il basso. Imposta infine in B1 il numero di caratteri che vuoi confrontare.

Ovviamente proverai anche la macro di Flash (post precedente).

Ciao