Excel formula 创建特定数据行的副本

我有一份包含几行数据的报告。每行一列（数字列）列出1到99之间的随机数。我需要按“数字”列中注明的次数复制数据行。约翰·史密斯在一场比赛中获得32次机会。数字32是“数字”。我需要将John Smith的数据行再复制31次，这样他就有32行了。有道理吗

将您的号码列命名为“rangename”

按alt+f11。把这个放进去

Public Sub CopyForEach()
    Dim varcell as variant
    Dim iiterator as integer
    Dim icount as integer

    For Each varcell in ThisWorkbook.Sheets(1).Range("rangename")
             icount = varcell.value
             For iiterator = 1 to icount
                 ThisWorkbook.Sheets(1).Range(varcell.address).(1,iiterator).value = icount
             Next iiterator
    Next

End Sub

按F5

注：未测试