Subtracting an array from another array?

[Grand]

Hi
Is there a way to subtract an array of string from another array of string? I have a larger array and what I need is an array which is the result of the larger array minus the other array.

Function HideUnwantedElements(MainArray As Variant)

Dim ToBeFilteredOut  As Variant
Dim Array_Filtered As Variant

ToBeFilteredOut = Array("A9673", "A9674", "A9675", "A10066")
‘So what is next? I tried the following but it didn’t work 

For m = LBound(ToBeFilteredOut) To UBound(ToBeFilteredOut)
 Array_Filtered = Filter(MainArray, ToBeFilteredOut (m), False)
Next m

End Function

Any help is appreciated.

 

[MickG]

Try this for "MainArray" in column "A" and results in column "C".
NB:-

Mainarray

= One-dimensional array of strings to be searched

<tbody>
</tbody>

Private [COLOR="Navy"]Sub[/COLOR] CommandButton1_Click() [COLOR="Navy"]Dim[/COLOR] MArray [COLOR="Navy"]As[/COLOR] Variant MArray = Application.Transpose(Range("A1:A20").Value) HideUnwantedElements MArray Range("C1").Resize(UBound(MArray) + 1).Value = Application.Transpose(MArray) [COLOR="Navy"]End[/COLOR] [COLOR="Navy"]Sub[/COLOR] Function HideUnwantedElements(MainArray [COLOR="Navy"]As[/COLOR] Variant) [COLOR="Navy"]As[/COLOR] Variant [COLOR="Navy"]Dim[/COLOR] ToBeFilteredOut [COLOR="Navy"]As[/COLOR] Variant [COLOR="Navy"]Dim[/COLOR] Array_Filtered [COLOR="Navy"]As[/COLOR] Variant [COLOR="Navy"]Dim[/COLOR] m [COLOR="Navy"]As[/COLOR] Variant ToBeFilteredOut = Array("A9673", "A9674", "A9675", "A10066") [COLOR="Navy"]For[/COLOR] m = LBound(ToBeFilteredOut) To UBound(ToBeFilteredOut) MainArray = Filter(MainArray, ToBeFilteredOut(m), False) [COLOR="Navy"]Next[/COLOR] m [COLOR="Navy"]End[/COLOR] Function Regards Mick

<tbody>
</tbody>

 

[Kenneth Hobson]

Sub Test_aFilter()
  Dim s1, s2, a
  
  s1 = Array("A9673", "A9674", "a9673", "a9674", 1)
  s2 = Array("A9673", "A9674", "A9675", "A10066")
  
  a = aFilter(s1, s2)
  MsgBox Join(a, vbLf)
  
  a = aFilter(s1, s2, , vbBinaryCompare)
  MsgBox Join(a, vbLf)
End Sub

'vbBinaryCompare=0, vbDatabaseCompare=2, vbTextCompare=1
Function aFilter(s1Array, s2Array, _
  Optional tfKeep As Boolean = False, _
  Optional iCompare As Integer = vbTextCompare)
  Dim a, e
  a = s1Array
  For Each e In s2Array
    a = Filter(a, e, tfKeep, iCompare)
  Next e
  aFilter = a
End Function

 

[Grand]

Thanks to both of you. I have looked at your codes and made some simplifications. Here is what I ended up with and thanks to you, it works:

Function HideUnwantedElements(MainArray As Variant)

Dim ToBeFilteredOut  As Variant

ToBeFilteredOut = Array("A9673", "A9674", "A9675", "A10066")
    
    For m = LBound(ToBeFilteredOut) To UBound(ToBeFilteredOut)
        MainArray = Filter(MainArray, ToBeFilteredOut(m), False)
    Next m
'MainArray now contains every thing except those elements listed in ToBeFilteredOut array

End Function

 

[MickG]

You're welcome