51问答网 > 关于vba中字符串分割问题

关于vba中字符串分割问题

2024-12-17 20:28:24

推荐回答（2个）

回答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)

End Sub

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

附图是分割后的结果。

回答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