问个excel问题,救命贴
商品品种编号SMLXL2XL3XL数量合计
00001 101010101010 60
00002 121212101010 66
这是SHEET1
我有什么办法 在SHEET2中得到 像以下的列
商品编号数量
0000100110
0000100210
0000100310
0000100410
0000100510
0000100610
0000200112
0000200212
0000200312
0000200410
0000200510
0000200610
真的很急,在线等....
[解决办法]
用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不见了
商品编号数量
100110
100210
100310
100410
100510
100610
200112
200212
200312
200410
200510
200610
------------------------------
c2=rept(0,8-len(a2))&a2
向下拖动，复制，选择性粘贴到A列
得到结果如下
-----------------------------
商品编号数量
0000100110
0000100210
0000100310
0000100410
0000100510
0000100610
0000200112
0000200212
0000200312
0000200410
0000200510
0000200610
