VBA - Split 函数

分割函数返回一个数组，其中包含基于分隔符分割的特定数量的值。

语法

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

参数说明

• Expression − 必需的参数。 可以包含带分隔符的字符串的字符串表达式。

• Delimiter − 可选参数。 参数，用于根据分隔符转换为数组。

• Count − 可选参数。 要返回的子字符串数量，如果指定为-1，则返回所有子字符串。

• Compare − 可选参数。 该参数指定使用哪种比较方法。

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

  • 1 = vbTextCompare - 执行文本比较

示例

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

Private Sub Constant_demo_Click()
   ' 根据分隔符 '$' 进行拆分
   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

❮ vba_arrays.html