[已解决]如何根据单元格的数值来自动填充指定行数？谢谢！

tomhome · 发表于 2016-8-15 19:20

如
A 列 B列 C列
名称数量备注
A    2    A
B    3    A
C    2    B
               B
               B
               C
               C

club.excelhome.net/thread-408660-1-1.html 这个帖子中无法满足需求，输入出错

最佳答案

月排行榜 / 总排行榜

望帝春心

2016-8-15 19:42

Sub test()
Dim i&, m&, n&, arr(1 To 10000, 1 To 1)
For i = 2 To Cells(2, 1).End(4).Row
For m = 1 To Cells(i, 2)
arr(n + 1, 1) = Cells(i, 1)
n = n + 1
Next
Next
[c2].Resize(n, 1) = arr
End Sub

复制代码

跳转到最佳答案楼层

望帝春心 · 发表于 2016-8-15 19:25

按给定数字重复次数？

望帝春心 · 发表于 2016-8-15 19:42

Sub test()
Dim i&, m&, n&, arr(1 To 10000, 1 To 1)
For i = 2 To Cells(2, 1).End(4).Row
For m = 1 To Cells(i, 2)
arr(n + 1, 1) = Cells(i, 1)
n = n + 1
Next
Next
[c2].Resize(n, 1) = arr
End Sub

复制代码

望帝春心 · 发表于 2016-8-15 19:59

函数解法

=INDEX(A$2:A$4,MATCH(1=1,ROW(A1)<=SUBTOTAL(9,OFFSET(B$2,,,{1,2,3},)),))

复制代码

tomhome · 发表于 2016-8-16 08:08

望帝春心发表于 2016-8-15 19:59
函数解法

非常感谢，但是我发现，如果是多个，这个公式就会报错啊

QZ.rar (7.18 KB, 下载次数: 6)

望帝春心 · 发表于 2016-8-16 08:35

tomhome 发表于 2016-8-16 08:08
非常感谢，但是我发现，如果是多个，这个公式就会报错啊

要根据实际情况调整参数，数组

=INDEX(A$2:A$8,MATCH(1=1,ROW(A1)<=SUBTOTAL(9,OFFSET(B$2,,,ROW($1:$7),)),))

复制代码

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

[已解决]如何根据单元格的数值来自动填充指定行数？ 谢谢！

相关帖子

[已解决]如何根据单元格的数值来自动填充指定行数？谢谢！