excel单列转多行多列的问题

[hhpyt]

1、姓名
手机
QQ
地址
传真
2、姓名
手机
QQ
地址
3、姓名
手机
QQ
地址
传真
邮箱
如上excel单列数据，想转成：
1、姓名 手机 QQ 地址 传真
2、姓名 手机 QQ 地址
3、姓名 手机 QQ 地址 传真 邮箱
以序号为标志转置成多行多列数据(数据远不止3条 ），请教高手该如何操作，谢谢！！

[hhpyt]

自己顶一下

[z_wenqian]

用VBA做吧

Sub myProc()
    Dim l As Integer
    With Sheet1
        For i = 1 To .[A65530].End(xlUp).Row
            If UBound(Split(.Range("A" & i), "、")) Then
                l = CInt(Split(.Range("A" & i), "、")(0))
                Cells(l, 1) = .Range("A" & i)
            Else
                Cells(l, Range("IV" & l).End(xlToLeft).Column + 1) = .Range("A" & i)
            End If
        Next i
    End With
End Sub

将数据放在sheet1,代码放在sheet2,结果产生在sheet2