hola otra vez,
he encontrado como sacar aquellos que son iguales, pero yo necesito los diferentes....
os dejo el codigo por si alguien me puede ayudar....
Código:
dim aryArray3
valor3=""
FOR i = LBound(aryArray1) to UBound(aryArray1)
f=0
FOR j = LBound(aryArray2) to UBound(aryArray2)
IF CStr(aryArray1(i)) = CStr(aryArray2(j)) THEN
'response.write vartype (aryArray2(j))&"<br>"
aryArray3 = Filter(aryArray1,aryArray2(j),TRUE,VBTextCompare)
valor3 = valor3&"##"&aryArray3(0)
'aryArray3 = Filter(aryArray1,"1",true,1)
END IF
NEXT
f =f+1
NEXT