VBA Help!

[jd556]

I need to create a function that checks two arrays and finds the Unique names from both and prints it.

SO
Columns
A B
Joe Joe
Moe Moe
Alex John
Matt Matt

And my function =unique(A1:A4, B1:B4) should equal Alex, John

I have this but it is not working
Function Uniques(astrArray1() As String, astrArray2() As String) As String
'You probably want to add code here
Dim i As Long
Dim o As Long


For i = LBound(astrArray1) To UBound(astrArray1)
If astrArray1(i) <> astrArray2(i) Then
findUniques = findUniques & astrArray1(i) & ","
End If
Next


For o = LBound(astrArray2) To UBound(astrArray2)
If astrArray1(o) <> astrArray2(o) Then
findUniques = findUniques & astrArray2(o) & ","
End If
Next o

Any help is greatly appreciated!

 

[JoeMo]

Try this:

Function Unique(R1 As Range, R2 As Range) As String
Dim c As Range
For Each c In R1
    If Application.CountIf(R2, c.Value) = 0 Then
        Unique = Unique & ", " & c.Value
    End If
Next c
For Each c In R2
    If Application.CountIf(R1, c.Value) = 0 Then
        Unique = Unique & ", " & c.Value
    End If
Next c
Unique = Right(Unique, Len(Unique) - 2)
End Function

Example of use (entered in a cell):
=Unique(A1:A4,B1:B4)