Matching two arrays - Part 1

[PradeepRed]

Hi

Need some help.
This is what I am facing
I have two arrays with the following unique values
Array1: a,b,c,d,e (all unique,no repetition)
Array2: a,b,c,d,e,f,g,h,i,j (these values can be repeated as a,b,a,a,c,b,j,h...)

Every time the array 2 element matches the array 1 element, in a new column I want the value 1, else 0
eg for the above series (1,1,1,1,1,1,0,0)

I have looked up the forum but not found the right answer.
Please help.

Thanks in advance

[DonkeyOte]

I have no doubt the other guys who are actually good with Arrays can come up with a more efficient method than this

    Dim v1 As Variant, v2 As Variant
    Dim b1() As Byte
    Dim lngX As Long
    v1 = Array("a", "b", "c", "d", "e")
    v2 = Array("a", "b", "c", "d", "e", "f", "g", "h", "i", "j")
    ReDim b1(LBound(v2) To UBound(v2))
    For lngX = LBound(v1) To UBound(v1) Step 1
        b1(lngX) = -(v1(lngX) = v2(lngX))
    Next lngX

depending on case sensitivity of match etc you might wish to adjust the comparison method

edit:

Every time the array 2 element matches the array 1 element

do you mean you want to conduct a Match on each element to the unique vals to see if it exists (irrespective of position) - I suspect you do ....

[DonkeyOte]

If my edit's correct then in theory you could use something like the below rather than iterating v2 item by item:

    Dim v1, v2, v3
    v1 = Array("a", "b", "c", "d", "e")
    v2 = Array("a", "b", "c", "d", "e", "f", "g", "h", "i", "j")
    v3 = Application.IsNumber(Application.Match(v2, v1, 0))

though the above in that form would return Boolean True/False rather than 1/0
(and Match is not case sensitive - unknown if that's an issue or not)