Filtering an array using another array

Hello

I have 2 arrays
ArrA = Array("A", "B", "C", "D", "E", "F")
ArrB = Array(0, 0, 1, 0, 1, 0)

I want to filter array ArrA by array ArrB
The desired result is a new array MyArr
which will contain only the values different from zero in the product of the two arrays

I tried using:
MyArr = Filter(ArrA, ArrB)

the desired result
MyArr (0)="C"
MyArr (1)="E"

Is there a simple way to do it without loops?

Thank you very much for the response

The desired result is part of another macro that needs to be done many times
Therefore I am looking for an efficient way to find the final values

If there is no other way besides loops, I would appreciate for advice or an example
How can you do it with a loop

In that particular small arrays.

Please Login or Register  to view this content.

Attachment 825699

Using the filter function in the worksheet brings the desired result

Wowwww

An elegant and really genius solution!!!!!!!

Thank you

Exactly what I needed!!!

If your version can use Filter worksheet function then simply

Please Login or Register  to view this content.

then you need to adjust the L/Ubound with Redim Preserve key word.

Originally Posted by jindon

If your version can use Filter worksheet function then simply

Please Login or Register  to view this content.

then you need to adjust the L/Ubound with Redim Preserve key word.

Even simpler than the excellent solution you gave earlier
Thank you