创建特定数据行的副本

Question

我有一个包含多行数据的报告。每行中的一列（数字列）列出了1到99之间的随机数。我需要将数据行复制到＆＃34;数字＆＃34;中记录的次数。柱。示例：约翰史密斯在比赛中获得32次机会。数字32是＆＃34;数字＆＃34;。我需要再次复制John Smith的数据行31次，因此他有32行。合理？

Answer 1

将您的号码列命名为“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。

注意：未经测试。