Originariamente inviato da Fenriz84
sto provando e riprovando, ma non trovo una soluzione decente...non vorrei dover star lì a guardarmi 3200 nomi uno ad uno...almeno si riesce da una lista di nomi a farne un'altra ma senza i nomi ripetuti? (Es. antonio marco marco giuseppe marco antonio => antonio giuseppe marco)
Il link che ti ho indicato rispondeva alle tue necessità. Per avere solo il numero di nominativi differenti basta apportare una piccola modifica.
Esempio
codice:
nome anno
pippo 2001
poldo 2001
pluto 2001
pippo 2001
minnie 2001
pinco 2002
pippo 2002
poldo 2002
palla 2002
codice:
Option Explicit
Sub diversi()
Dim i, diversi As Long
diversi = 0
Dim confronta As Variant
For i = 7 To 10
confronta = Application.Match(Range("a" & i), Range("A2:A6"), 0)
If IsError(confronta) Then
diversi = diversi + 1
End If
Next i
Range("c2") = diversi
End Sub
Nel mio esempio verranno confrontati tutti i nominativi nel range a7:a10 (anno 2002) con quelli del range a2:a6 e nella cella c2 verrà mostrato il numero di record diversi (nel mio esempio 2, cioè pinco e palla).