excel单列转多行多列的问题

hhpyt 2011-09-30 10:45:24
1、姓名
手机
QQ
地址
传真
2、姓名
手机
QQ
地址
3、姓名
手机
QQ
地址
传真
邮箱
如上excel单列数据,想转成:
1、姓名 手机 QQ 地址 传真
2、姓名 手机 QQ 地址
3、姓名 手机 QQ 地址 传真 邮箱
以序号为标志转置成多行多列数据(数据远不止3条 ),请教高手该如何操作,谢谢!!
...全文
290 2 打赏 收藏 转发到动态 举报
AI 作业
写回复
用AI写文章
2 条回复
切换为时间正序
请发表友善的回复…
发表回复
z_wenqian 2011-10-03
  • 打赏
  • 举报
回复
用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
hhpyt 2011-10-02
  • 打赏
  • 举报
回复
自己顶一下

6,216

社区成员

发帖
与我相关
我的任务
社区描述
Microsoft Office应用
社区管理员
  • Microsoft Office应用社区
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧