Question

关于vba中字符串分割问题

在字符串“资产分类-->硬件类-->整机-->个人处理设备-->笔记本-->中端笔记本”中怎样以“-->”为分割分别按顺序取出“资产分类”“硬件类”“整机”“个人处理设备”等字段，同时字符串中以“-->”分了多少段，因为字符串可能是“资产分类-->硬件类-->整机-->个人处理设备”也有可能是“资产分类-->硬件类-->整机-->个人处理设备-->笔记本”字符串的长短不能确定，需要将分割出来的字段分别放到单独的单元格内，有高手能帮忙写个宏吗

Answer 1

假如你的数据在A列，用以下代码：

Sub Split_String()

    Dim a

    For i = 1 To [a65536].End(xlUp).Row

        a = Split(Cells(i, 1).Value, "-->")

        For j = 0 To UBound(a)

            Cells(i, j + 2).Value = a(j)

        Next

    Next

End Sub

分割后的数据写在相应行的A列之后的列。 

附图是分割后的结果。

Answer 2

可以用 Split() 进行分割

Sub SplitExample()
Dim Str, Val, n
Str = "资产分类-->硬件类-->整机-->个人处理设备-->笔记本-->中端笔记本"
Val = Split(Str, "-->")
For n = LBound(Val) To UBound(Val)
MsgBox Val(n)
Next
End Sub