matteo.m78
00giovedì 11 maggio 2017 12:15
Buongiorno a tutti, come faccio di solito ho cercato nel forum prima di postare la mia domanda, ma non ho trovato risposta.
Cerco di spiegarmi:
Ho due colonne, nella prima c'è un elenco di parole (A1:A3259) mentre nella seconda ci sono delle frasi.
Ho bisogno di sapere quali parole contenute nelle frasi non sono presenti nell'elenco della colonna A.
Avete idea di come fare?
Grazie infinite
Matteo
patel45
00giovedì 11 maggio 2017 13:09
allega un piccolo file di esempio con i dati ed il risultato desiderato
matteo.m78
00giovedì 11 maggio 2017 14:41
grazie @patel45
in allegato il file. Nella colonna C c'è un piccolo esempio di quello che dovrebbe essere il risultato.
alfrimpa
00giovedì 11 maggio 2017 14:50
Matteo onestamente dal file allegato non si capisce (almeno io non capisco) in base a quale criterio considerando i dati in colonna A e B debba venire fuori quello che hai scritto in colonna C.
Puoi spiegare meglio?
matteo.m78
00giovedì 11 maggio 2017 15:00
Provo a spiegarmi meglio, allego anche un altro esempio.
In pratica nella colonna A c'è una lista di parole. Io vorrei sapere quali di queste parole non sono contenute nelle frasi.
In rosso ho evidenziato quelle presenti e nella colonna C la lista di quelle non presenti.
Grazie :)
alfrimpa
00giovedì 11 maggio 2017 15:23
Mah io continuo a non capire.
Premetto che non so se sarò in grado di aiutarti ma ad esempio in A10 abbiamo "abbracciare" in B10 c'è "mi metto la giacca"; da dove viene fuori "bevuto" che è in C10?
patel45
00giovedì 11 maggio 2017 15:24
nella colonna C mancano molti termini tra cui
a mio parere
abbaiare
matteo.m78
00giovedì 11 maggio 2017 15:28
Grazie della pazienza ragazzi...
Il controllo vorrei venisse fatto su tutti i termini e non solo sulle corrispondenze di riga, quello che è sulla colonna C in pratica è solo una lista di termini la cui corrispondenza non è riferita alle prime due colonne.
Hai ragione Patel45, credevo di essermi spiegato e ho omesso di continuare a riportare i termini. Nel secondo file non ho fatto lo stesso errore!
patel45
00giovedì 11 maggio 2017 15:57
Sub confronta()
dr = 2
Dim foundVal As Range
bottomA = Range("A" & Rows.Count).End(xlUp).Row
bottomB = Range("B" & Rows.Count).End(xlUp).Row
For Each cell In Range("A2:A" & bottomA)
With Range("B2:B" & bottomB)
Set foundVal = .Find(what:=cell.Value, LookAt:=xlPart) ', _
If foundVal Is Nothing Then
Cells(dr, "C") = cell.Value
dr = dr + 1
End If
End With
Next
End Sub
matteo.m78
00venerdì 12 maggio 2017 12:28
Grazie mille...
Oggi pomeriggio provo poi vi faccio sapere.
Gentilissimi :)