Повторение значения n раз в другом столбце

super_damage_fast_2016

Пользователь

Сообщений: 31 Регистрация: 31.05.2016

07.02.2019 20:31:42

Есть табличка с значениями и числами по каждому значению во втором столбце. Необходимо скопировать значения в определенный столбце на листе, учитывая число сколько он должен повториться. Вроде есть код, но не понимаю как изменить начальную строку заполнения. Также есть вопрос правильно ли это вообще? Пример приложен.

Код
iR = Cells(Rows.Count, 13).End(xlUp).Row + 1

Прикрепленные файлы

test2.xlsm (20.32 КБ)

Kuzmich

Пользователь

Сообщений: 8057 Регистрация: 21.12.2012

07.02.2019 21:10:38

Код

Sub Re()
Dim iR As Long
  iRow = Range("I11").End(xlDown).Row
  iR = 11
    For Each cell In Range(Cells(11, "I"), Cells(iRow, "I"))
      Range(Cells(iR, "M"), Cells(iR + cell.Value - 1, "M")) = cell.Offset(0, -1).Value
      iR = Cells(Rows.Count, "M").End(xlUp).Row + 1
    Next
End Sub

Юрий М

Модератор

Сообщений: 61038 Регистрация: 14.09.2012

Контакты см. в профиле

07.02.2019 21:14:38

Код

Sub Macro1()
Dim LastRow As Long, i As Long, j As Long, FreeRow As Long
    LastRow = Cells(Rows.Count, 8).End(xlUp).Row
    FreeRow = 11
    For i = 11 To LastRow
        For j = 1 To Cells(i, 9)
            Cells(FreeRow, 13) = Cells(i, 8)
            FreeRow = FreeRow + 1
        Next
    Next
End Sub

super_damage_fast_2016 Пользователь Сообщений: 31 Регистрация: 31.05.2016	#4 15.02.2019 11:13:49 Юрий М, Kuzmich, Спасибо большое.