VBA学习笔记（7）--vba的数组函数

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

说明（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