附件传上来了 请高手们帮忙解决

wsy51630

谢谢大家 帮忙

laowuwyx

公式在这里的8、9楼http://club.excelhome.net/viewth ... id4602220pid4602220

angellbxsc

先分列，分隔符号、
再转置

xihabang

Sub test()
Dim str$, i%, t%, rng As Range
Dim arr() As Integer
str = [b5].Text
ReDim Preserve arr(0)
arr(0) = 1
For i = 1 To Len(str)
    If Mid(str, i, 1) = "、" Then
       t = t + 1
       ReDim Preserve arr(t)
       arr(t) = i
    End If
Next
Set rng = [c5].Resize(UBound(arr) + 1, 1)
For i = 0 To UBound(arr)
   rng(i, 1) = Mid(str, arr(i), arr(i + 1) - arr(i))
Next

End Sub

没做完