![生成重复数据](https://linux22.com/image/1491789/%E7%94%9F%E6%88%90%E9%87%8D%E5%A4%8D%E6%95%B0%E6%8D%AE.png)
我在列中有 4 个数据项乙。最初我需要用重复 7 次的原始数据填充另一列。因此,第一项应该出现 7 次,然后第二项应该出现 7 次,依此类推。
在A1我进入了:
=INDEX(B$1:B$4,ROUNDUP(ROW()/7,0),0)
并抄录下来:
这个小公式似乎工作得很好。现在我需要生成第二列,但不是 7 次重复,而是在列中使用一组值C。
我用一个简短的宏完成了这个:
Sub Repititions()
Dim N As Long, i As Long, j As Long, v As String
Dim M As Long, K As Long
N = Cells(Rows.Count, "A").End(xlUp).Row
K = 1
For i = 1 To N
v = Cells(i, "B").Value
M = Cells(i, "C").Value
For j = 1 To M
Cells(K, "D").Value = v
K = K + 1
Next j
Next i
End Sub
这也有效.....有 3 个 alpha 版本、7 个 beta 版本等等。
我的问题是,我是否可以使用公式而不是 VBA 子程序来获取这个变量重复因子?