Скопируйте и вставьте строку по номеру индекса в макросе Excel
Я пытаюсь скопировать всю строку по номеру индекса и вставить его в другую строку с другим номером индекса, когда выполняется определенное условие (я знаю, что проблема не в условной логике). Я думаю о чем-то вроде этого:
Sub Makro1()
Dim i As Integer
With ActiveSheet
'for looping
totalRows = .Cells(.Rows.Count, "A").End(xlUp).Row
'index of last row even after rows have been added
lastRow = .Cells(.Rows.Count, "A").End(xlUp).Row
'data starts at row #3
For i = 3 To totalRows
If .Cells(i, 19).Value > 0 Then
Number = .Cells(i, 19).Value
Do While Number > 0
lastRow = lasRow + 1
'Next line doesnt do anything
.Rows(lastRow) = .Rows(i).Value
Number = Number - 1
Loop
End If
Next i
End With
End Sub
Логика работает как положено, но никакие строки не вставляются. Я пошел шаг за шагом и уверен, что проблема не в логике.