Una famiglia di software per fogli di calcolo Microsoft con strumenti per l'analisi, la creazione di grafici e la comunicazione dei dati.
Ciao Mauro,
in base al tuo esempio se in A1 ho la stringa di input e in B1 quella di confronto in C1 vorrei ottenere B cioe' tutte le stringhe che su A1 non presentano una corrispondenza su B1.
Grazie,
A.
Prova questa UDF da copia/incollare in un modulo standard:
Public Function f( _
ByVal v1 As Variant, _
ByVal v2 As Variant) As String
Dim s1() As String
Dim s2() As String
Dim lng As Long
Dim col As Collection
Set col = New Collection
f = ""
s1 = Split(v1, ";")
s2 = Split(v2, ";")
For lng = 0 To UBound(s2)
On Error Resume Next
col.Add CStr(s2(lng)), CStr(s2(lng))
Next
For lng = 0 To UBound(s1)
On Error Resume Next
col.Add CStr(s1(lng)), CStr(s1(lng))
If Err.Number = 0 Then
f = f & s1(lng) & ";"
End If
On Error GoTo 0
Next
f = Mid(f, 1, Len(f) - 1)
Set col = Nothing
End Function
Da richiamare poi in C1 così:
C1: =f(A1;B1)
Nota. Con il mio esempio, funziona. Con il tuo, no. Forse c'è qualcosa che mi sfugge.