[EXCEL VBA]关于提取未知长度的字符

选中D列，然后点菜单数据--》分列，按图第二步的时候按图中标示设置，按完成就可以了。

我要的是VBA,代码

D列的数据全部是以一个+来分割的吗？

Sub fl()

Dim i As Integer, j As Integer, arr

i = 2

Do While i <= ActiveSheet.[D65536].End(xlUp).Column

    arr = Split(ActiveSheet.Range("D" & i), "+", -1)

    j = 0

        Do While j <= UBound(arr)

            ActiveSheet.Range("e" & i).Offset(0, j) = arr(j)

            j = j + 1

        Loop

    i = i + 1

Loop

End Sub