08-20-2015, 02:47 PM
Code:
'make sure A & B having the same number of elements
Dim arrA,arrB,arrsubB
Dim val
arrA = Split(A,";")
arrB = Split(B,";")
For i = 0 to Ubound (arrA) Step 1
arrsubB = Split(arrB(i),",")
For j = 0 to UBound(arrsubB) Step 1
val = arrsubB(j)
'Do with each of your value, example: x,y,z
Next
Next