急求：EXCEL分列问题,急需解决，在此先谢谢了！

Option Explicit

Sub tt()
'On Error Resume Next
Dim mArr, i%, mArr2(), k%, p%, pk%, temp$
k = 2
ReDim Preserve mArr2(1 To 2, 1 To 1)
mArr = Range("a2:b4") '原始数据范围在这里改
mArr2(1, 1) = "标题1" '标题在这里改
mArr2(2, 1) = "标题2"
For i = 1 To UBound(mArr)
temp = mArr(i, 2)
pk = Len(temp) - Len(Replace(temp, ";", ""))
For p = 0 To pk
ReDim Preserve mArr2(1 To 2, 1 To k)
mArr2(1, k) = mArr(i, 1)
mArr2(2, k) = Split(temp, ";")(p)
k = k + 1
Next p
Next i
'假定新数据的起始点在D1
Range("d1").Resize(UBound(mArr2, 2), 2) = WorksheetFunction.Transpose(mArr2)
End Sub