VBA Split函数

Split 函数返回一个包含分割符的基础上进行分隔特定数量的数组。

语法 :

Split(expression[,delimiter[,count[,compare]]]) 

1. expression, 必需的参数。该字符串表达式，可以包含分隔符的字符串。

2. delimiter, 一个可选的参数。参数用于转换成基于定界符数组。

3. count, 一个可选的参数。要返回子串的数目，并且如果指定为-1，那么所有的子串被返回。

4. compare, 一个可选的参数。此参数指定要使用哪个比较方法。

   • 0 = vbBinaryCompare - 执行二进制比较

   • 1 = vbTextCompare - 执行文本比较

例如：

添加一个按钮，并添加以下功能

Private Sub Constant_demo_Click()
 ' Splitting based on delimiter comma '$'
 Dim a as Variant
 Dim b as Variant
 a=Split("Red $ Blue $ Yellow","$")
 b=ubound(a)
 For i=0 to b
    msgbox("The value of array in " & i & " is :"  & a(i))
 Next
End Sub

当执行函数输出如下所示：

The value of array in 0 is :Red 
The value of array in 1 is : Blue 
The value of array in 2 is : Yellow