Добавление заполненной строки с помощью макроса

Это выражение, которое я использую в настоящее время. Мне нужно найти способ заполнить две строки, которые я вставил, используя значение последней заполненной ячейки перед моими новыми пустыми строками. Как мне это сделать?

Sub Insert_Rows()
Dim r As Long, mcol As String, i As Long, s As Long, ncol As Long

' find last used cell in Column A
 r = Cells(Rows.Count, "A").End(xlUp).Row

 ' get value of last used cell in column A
 mcol = Cells(r, 1).Value

'find last used cell in Column B
 s = Cells(Rows.Count, "B").End(xlUp).Row

 ' get value of last used cell in Column B
 ncol = Cells(s, 1).Value

 ' insert rows by looping from bottom
 For i = r To 2 Step -1
 If Cells(i, 1).Value <> mcol Then
 mcol = Cells(i, 1).Value
 Rows(i + 1).Insert
 Rows(i + 1).Insert
 End If
 Next i
End Sub
1 ответ

После того, как вы вставили строки, вы можете использовать:

Rows(i + 1).Cells(1, 1).Value = "hi.." 'or
Rows(i + 1).Cells(1, 1).Value = mcol
Rows(i + 2).Cells(1, 1).Value = "there"

для вставки значений в первые ячейки этих строк.

licensed under cc by-sa 3.0 with attribution.