excel 里如何动态生成行？

zjlgigi 2009-10-06 06:29:33

Hi 高手们，

小弟有个需求比较急的，不知道 EXCEL 能不能处理？

原 EXCEL 格式

物料号数量
A 2
B 3
C 5

现需要把它转换成一列的数据，即：

物料号
A
A
B
B
B
C
C
C
C
C

不知道有没有方法可以做到？谢谢！！！

...全文

207 11 打赏收藏转发到动态举报

写回复

用AI写文章

11 条回复

切换为时间正序

请发表友善的回复…

发表回复

luckiest2009 2009-12-11

打赏
举报

厉害啊。。。。。。

raymondyin 2009-11-11

打赏
举报

[Quote=引用 3 楼 laoyebin 的回复:]
Sub test()
Dim i%, j%, k%, arr()
For i = 2 To ActiveSheet.[a65536].End(xlUp).Row
For j = 1 To Cells(i, 2)
k = k + 1
ReDim Preserve arr(1 To k)
arr(k) = Cells(i, 1)
Next
Next
[e2].Resize(k, 1) = WorksheetFunction.Transpose(arr)
End Sub

[/Quote]
真不错

daoxue2 2009-11-07

打赏
举报

复制到宏里面

tiancx82 2009-10-17

打赏
举报

同问

AIGPTchina 2009-10-16

打赏
举报

这些代码都写在哪里去执行?

simuky 2009-10-15

打赏
举报

Public Sub Exland()
Dim I, J, K As Integer
K = 1
For I = 2 To Sheet1.UsedRange.Rows.Count
For J = 1 To Sheet1.Cells(I, 2)
Sheet2.Cells(K, 1) = Sheet1.Cells(I, 1)
K = K + 1
Next J
Next I
End Sub

zhjzh_zjz 2009-10-12

打赏
举报

需要稍微手动一下
物料号数量字串
A 2 =repeat(A2&"~",B2)
B 3
C 5

将C2单元格公式往下拉，复制到C3，C4。。。,等，然后吧C列拷贝出来到一个文本文件，注意使用选择性粘贴，选择值。然后导入，使用 ~ 分割，即可。

okexcel 2009-10-07

打赏
举报

对可以用VBA实现。但是代码要自己写呀，开始吧！

laoyebin 2009-10-07

打赏
举报

Sub test()
Dim i%, j%, k%, arr()
For i = 2 To ActiveSheet.[a65536].End(xlUp).Row
For j = 1 To Cells(i, 2)
k = k + 1
ReDim Preserve arr(1 To k)
arr(k) = Cells(i, 1)
Next
Next
[e2].Resize(k, 1) = WorksheetFunction.Transpose(arr)
End Sub