100分求助，分必给！excel中有这样的数据.......
100分求助，分必给！excel中有这样的数据.......

张三 男 85 东北路
李四 女 34、47、68 南京路
老王 男 76 上海路

编程后，数据如下：

张三 男 85 东北路
李四 女 34 南京路
李四 女 47 南京路
李四 女 68 南京路
老王 男 76 上海路

该怎样编程呢？请给出代码~~~ ，谢谢喽 ~~~~



[解决办法]
msgbox split( "1、2、3、4 ", "、 ")(0)
返回1

msgbox ubound(split( "1、2、3、4 ", "、 "))
返回3----这个正好是你要插入的行数

代码你自己试着先写写看
[解决办法]
例子如下（本人验证过，可以运行；如有不符，你可以改造）：

Private Sub cmdStart_Click()
Dim i As Integer
Dim iMin As Integer
Dim iMax As Integer

Dim j As Integer
Dim jMin As Integer
Dim jMax As Integer

Dim iStep As Integer

Dim sTmp As String
Dim sArr() As String

iMin = 1 ' ' Start line number
iMax = 3 ' ' End line number
iStep = 10 ' ' The start linr number of the New data.

For i = iMin To iMax
sTmp = Sheet1.Cells(i, "C ")

' ' Multi data?
If InStr(1, sTmp, "、 ") > 0 Then
sArr = Split(sTmp, "、 ")

jMin = LBound(sArr)
jMax = UBound(sArr)

For j = jMin To jMax
Sheet1.Cells(iStep, "A ") = Sheet1.Cells(i, "A ")
Sheet1.Cells(iStep, "B ") = Sheet1.Cells(i, "B ")
Sheet1.Cells(iStep, "C ") = sArr(j)
Sheet1.Cells(iStep, "D ") = Sheet1.Cells(i, "D ")

iStep = iStep + 1 ' ' Next line
Next j
' ' Single data?
Else
Sheet1.Cells(iStep, "A ") = Sheet1.Cells(i, "A ")
Sheet1.Cells(iStep, "B ") = Sheet1.Cells(i, "B ")
Sheet1.Cells(iStep, "C ") = Sheet1.Cells(i, "C ")
Sheet1.Cells(iStep, "D ") = Sheet1.Cells(i, "D ")

iStep = iStep + 1 ' ' Next line
End If
Next i

End Sub