【资料名称】：VBA80_第23集.VBA数组-4：函数与数组

【资料作者】：xx

【资料日期】：2011

【资料语言】：中文

【资料格式】：其它

【资料目录和简介】：

1、split函数
'按分隔符把字符串截取成VBA数组,该数组是一维数组，编号从0开始

'split(字符串,分隔符)

Sub t1()
Dim sr, arr
sr = "A-BC-FGR-H"
arr = VBA.Split(sr, "-")
MsgBox Join(arr, ",")
End Sub

' 2、Filter函数：
'按条件筛选符合条件的值组成一个新的数组

'Filter(数组,筛选条件,是/否)

'注：如果是（true）则返回包含的数组，如果否则返回非包含的数组
Sub t2()
Dim arr, arr1, arr2
arr = Application.Transpose(Range("A2:A10"))
arr1 = VBA.Filter(arr, "W", True)
arr2 = VBA.Filter(arr, "W", False)
Range("B2").Resize(UBound(arr1) + 1) = Application.Transpose(arr1)
Range("C2").Resize(UBound(arr2) + 1) = Application.Transpose(arr2)
End Sub