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

Attachment 825699

Using the filter function in the worksheet brings the desired result

In that particular small arrays.

    ArrA = Array("A", "B", "C", "D", "E", "F")
    ArrB = Array(0, 0, 1, 0, 1, 0)
    ArrB = Filter(Evaluate("if({" & Join(ArrB, ",") & "}=1,column(" & Cells(1).Resize(, UBound(ArrB) + 1).Address & "))"), False, 0)
    MyArr = Application.Index(ArrA, ArrB)
    If LBound(ArrA) = 0 Then ReDim Preserve MyArr(0 To UBound(MyArr) - 1)

Wowwww

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

Thank you

Exactly what I needed!!!

If your version can use Filter worksheet function then simply

MyArr = WorksheetFunction.Filter(ArrA, ArrB)

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

MyArr = WorksheetFunction.Filter(ArrA, ArrB)

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

Even simpler than the excellent solution you gave earlier
Thank you