Блог

У меня есть отчет с несколькими строками данных. В одном столбце (числовой столбец) в каждой строке перечислены случайные числа от 1 до 99. Мне нужно дублировать строку данных столько раз, сколько указано в столбце «число». Пример: Джон Смит получает 32 шанса в конкурсе. Число 32 — это «число». Мне нужно продублировать строку данных Джона Смита 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.

Примечание: не тестировался.