Vba数组实例:拆分字符串（vba 数组 字符串）

如图，A列有如下数据，字符串用“-”连接

想要分列提取相应内容，达到的效果如图所示。一般我们通过excel的分列功能可以实现。再此，我们通过Vba数组功能实现，主要为了了解数组的相关用法。

代码如下：

Sub 分列()

Dim arr

arr = Range("a1:a15") ‘给数组赋值

For Each rg In arr

arr1 = Split(rg, "-") ’通过split函数将“-”之间的字符拆分，形成一个新的数组

j = j + 1

t = UBound(arr1) ‘获得数组的上标

Range(Cells(j, 3), Cells(j, 3 + t)) = arr1 ’将拆分后的数组赋值给相应单元格区域

Next

End Sub