Filterで配列を部分一致絞り込み

一次元配列限定だけど、配列を絞れる！

myArray = Filter(myArray, "文字", False) 'True:文字を含む、False:文字を含まない

こんな感じ。

Sub 配列を絞りたい()
    
    Dim myArray
    myArray = Array("北海道", "～略～", "沖縄県")
    
    myArray = Filter(myArray, "県", False) '県を含まない
    
    Dim i As Integer
    For i = LBound(myArray) To UBound(myArray)
        Debug.Print myArray(i)
    Next
    
End Sub

イミディエイトウィンドウ

北海道
東京都
京都府
大阪府

以上。