VBA 字符串分解 - 使用 Split 函数将字符串拆分成数组

在 VBA 中，可以使用 Split 函数将字符串拆分成数组。Split 函数需要两个参数：要拆分的字符串和分隔符。例如，下面的代码将字符串'apple,banana,orange' 拆分成一个数组：

Dim str As String
Dim arr() As String

str = 'apple,banana,orange'
arr = Split(str, ',')

在上面的代码中，Split 函数使用逗号作为分隔符，将字符串拆分成一个名为 arr 的数组。现在，arr 数组的元素分别为'apple'，'banana' 和'orange'。

如果要将字符串拆分成多个变量，可以使用类似下面的代码：

Dim str As String
Dim arr() As String
Dim var1 As String
Dim var2 As String
Dim var3 As String

str = 'apple,banana,orange'
arr = Split(str, ',')
var1 = arr(0)
var2 = arr(1)
var3 = arr(2)

在上面的代码中，Split 函数将字符串拆分成一个数组，然后分配给三个变量：var1，var2 和 var3。现在，var1 的值为'apple'，var2 的值为'banana'，var3 的值为'orange'。

如果要将字符串拆分成更多的变量，只需在代码中添加更多的变量即可。