商品品种编号 S M L XL 2XL 3XL 数量合计
00001 10 10 10 10 10 10 60
00002 12 12 12 10 10 10 66
这是SHEET1
我有什么办法 在SHEET2中得到 像以下的列
商品编号 数量
00001001 10
00001002 10
00001003 10
00001004 10
00001005 10
00001006 10
00002001 12
00002002 12
00002003 12
00002004 10
00002005 10
00002006 10
真的很急,在线等....
------解决方案--------------------------------------------------------
用vba吧
-----------------------------------------
Dim x%, y%, i%, j%
Sheets("sheet1").Select
x = Range("a65536").End(xlUp).Row
y = Range("iv2").End(xlToLeft).Column
For i = 2 To x
For j = 2 To y - 1
Worksheets("sheet2").Cells((i - 2) * (y - 2) + j, 1) = Worksheets("sheet1").Cells(i, 1) & "00" & j - 1
Worksheets("sheet2").Cells((i - 2) * (y - 2) + j, 2) = Worksheets("sheet1").Cells(i, j)
Next j
Next i
Worksheets("sheet2").Cells(1, 1) = "商品编号"
Worksheets("sheet2").Cells(1, 2) = "数量"
--------------------
得到结果如下，商品编号前边的0000不见了
商品编号 数量
1001 10
1002 10
1003 10
1004 10
1005 10
1006 10
2001 12
2002 12
2003 12
2004 10
2005 10
2006 10
------------------------------
c2=rept(0,8-len(a2))&a2
向下拖动，复制，选择性粘贴到A列
得到结果如下
-----------------------------
商品编号 数量
00001001 10
00001002 10
00001003 10
00001004 10
00001005 10
00001006 10
00002001 12
00002002 12
00002003 12
00002004 10
00002005 10
00002006 10