VBA根据分隔符拆分字符串的函数

在VBA中，有一个内置的字符串函数`Split()`用于根据指定的分隔符将字符串拆分成一个数组。该函数的基本语法如下：

ArrayName = Split(StringToSplit, Delimiter, [Optional] StartPosition[, Optional] NumberOfParts])

- `StringToSplit`: 需要被拆分的字符串。
- `Delimiter`: 分隔符，可以是一个字符或一个表达式，它将原字符串分割成多个部分。
- `StartPosition` (可选): 如果提供，则从指定位置开始拆分，如果不提供则默认从开头。
- `NumberOfParts` (可选): 指定要返回的数组元素数量。如果提供，超过的部分会被忽略；若未提供，则会包含所有划分后的元素。

例如，如果你想把以逗号分隔的字符串拆分为一个数组：

Dim str As String
str = "Apple,Banana,Cherry"
Dim fruits() As String
fruits = Split(str, ",")

现在`fruits`数组将包含`"Apple"`, `"Banana"`, 和 `"Cherry"`。

如果你只知道分隔符，并不确定有多少个部分，可以省略`NumberOfParts`参数：

Dim parts() As String
parts = Split("1,2,3,4", ",") ' 这样将返回一个包含四个元素的数组

记得，如果你指定了`StartPosition`但省略了`NumberOfParts`，则剩余的字符串不会被添加到结果数组中。