生成重复数据

Question

我在列中有 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 子程序来获取这个变量重复因子？

Answer 1

以下是使用辅助列的一种方法：

A 列是每个值的起始行。

A1:  1
A2:  =A1+C1
etc.

结果在 E 列中。单元格 E1：

=VLOOKUP(ROW(),A$1:B$4,2)

定义行范围后，您可以对每行的值执行简单的 VLOOKUP。