Array question

[jpen]

I have a array with 500 records and another array with 25 numbers. These 25 numbers are between 1-500.

I want too clear all the records in 500 record array which are not in the 25 records array.

Array1 10, 20, 31, 32, 45, 50
Array2 20, 45

After matching the result for array1 is 0, 20, 0, 0, 45, 0


Thanks for the effort.

 

[Fluff]

How about

Sub jpen()
    Dim Ary1 As Variant, Ary2 As Variant, x
    Dim i As Long
    
    Ary1 = Array(10, 20, 31, 32, 45, 50)
    Ary2 = Array(20, 45)
    With CreateObject("scripting.dictionary")
        For i = 0 To UBound(Ary2)
             .Item(Ary2(i)) = Empty
        Next i
        For i = 0 To UBound(Ary1)
            If Not .exists(Ary1(i)) Then Ary1(i) = 0
        Next i
    End With
End Sub

 

[jpen]

Thanks Fluff for the quick response. It works great.

 

[Fluff]

You're welcome & thanks for the feedback