Valutazione 4.87/ 5 (100.00%) 5838 voti

Condividi:        

excel-cerca testo in celle

Vuoi potenziare i tuoi documenti Word? Non sai come si fa una macro in Excel? Devi creare una presentazione in PowerPoint?
Oppure sei passato a OpenOffice e non sei sicuro di come lavorare al meglio?

Moderatori: Anthony47, Flash30005

excel-cerca testo in celle

Postdi leo_42 » 19/05/10 14:18

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
leo_42
Newbie
 
Post: 1
Iscritto il: 19/05/10 12:05

Sponsor
 

Re: excel-cerca testo in celle

Postdi Flash30005 » 19/05/10 15:14

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
Flash
Win7 + Office 2010 Ita
"Fotografica" al servizio dell'immagine

Ottime opportunità di lavoro (part-time o full-time) con guadagni immediati. Info in MP
Avatar utente
Flash30005
Moderatore
 
Post: 8460
Iscritto il: 27/09/07 11:44
Località: Roma +o-

Re: excel-cerca testo in celle

Postdi Anthony47 » 20/05/10 00:19

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
Anthony
Win7 + Office 2010 Ita; Win 7 + Office 2013 Ita
Xp + Office 2003 Ita
E voi cosa usate? (per istruzioni vedere viewtopic.php?f=26&t=97449)
Avatar utente
Anthony47
Moderatore
 
Post: 13899
Iscritto il: 21/03/06 16:03
Località: Ivrea


Torna a Applicazioni Office Windows


Topic correlati a "excel-cerca testo in celle":


Chi c’è in linea

Visitano il forum: Nessuno e 11 ospiti