VBA學習筆記（7）--vba的數組函數

說明（2017.3.25）：

1. split(str,"-")和join(arr,",")函數，用法跟其他語言差不多。

2. filter函數，filter(數組，字符串，true/false)判斷一個字符是否在數組中，返回滿足條件的元素組成一個數組

'filter函數，filter(數組，字符串，true/false)判斷一個字符是否在數組中，返回滿足條件的元素組成一個數組
Public Sub test1()
    Dim arr, arr2, arr3
    arr = Application.Transpose(Range("a1:a5"))
    arr2 = Filter(arr, "虹", True)
    arr3 = Filter(arr, "虹", False)
    Range("e1").Resize(UBound(arr2) + 1) = Application.Transpose(arr2)
    Range("f1").Resize(UBound(arr3) + 1) = Application.Transpose(arr3)
End Sub