一行拆多行，新人求助

yelangjieke · 发表于 2013-8-23 17:51

本帖最后由 yelangjieke 于 2013-8-25 16:37 编辑

有几万行的数据，希望把每行的数据拆分成多行，现在是一行里有一种商品不同规格的报价，分别是规格1，报价1……，希望把这样的格式拆分成多行，见下面的格式，就第一行，二行举例
小弟求老师帮忙啊！！！！{:soso_e196:}小弟曾经想过录制宏，但处理起来信息量巨大，不靠谱啊！！

404238852 · 发表于 2013-8-23 20:40

新手学习下

炎炎夏日长 · 发表于 2013-8-23 21:15

关注中，目前初步考虑数据透视表

yelangjieke · 发表于 2013-8-25 14:50

炎炎夏日长发表于 2013-8-23 21:15
关注中，目前初步考虑数据透视表

老师帮忙啊

alexagain · 发表于 2013-8-25 15:18

2003版的最大行数可能不够用,先转成2007版本的格式.

yelangjieke · 发表于 2013-8-25 15:23

alexagain 发表于 2013-8-25 15:18
2003版的最大行数可能不够用,先转成2007版本的格式.

这个不是问题，可以随时转，主要是代码啊老师

Excel德宝 · 发表于 2013-8-25 15:42

不太会写VBA，献丑了

Sub splitrows()
Dim sr, sc, cr, dr, dc
dr = 2
For sr = 2 To Sheet1.Range("a1").End(xlDown).Row
sc = Sheet1.Range("a" & sr).End(xlToRight).Column
cr = Int((sc - 1) / 2)
For i = 1 To cr
      Sheet2.Cells(dr, 1).Value = Sheet1.Cells(sr, 1).Value
      Sheet2.Cells(dr, 2).Value = Sheet1.Cells(sr, 2).Value
      Sheet2.Cells(dr, 3).Value = Sheet1.Cells(sr, 1 + 2 * i).Value
      Sheet2.Cells(dr, 4).Value = Sheet1.Cells(sr, 2 + 2 * i).Value
      dr = dr + 1
Next i
Next sr

End Sub

yelangjieke · 发表于 2013-8-25 15:50

Excel德宝发表于 2013-8-25 15:42
不太会写VBA，献丑了

Sub splitrows()

老师我直接运行您的代码就可以吗，不需要我更改我的表格吗

yelangjieke · 发表于 2013-8-25 16:35

Excel德宝发表于 2013-8-25 15:42
不太会写VBA，献丑了

Sub splitrows()

怎么设置最佳答案，没有啊

		自动登录	找回密码
密码			免费注册

[已解决] 一行拆多行，新人求助

评分