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

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

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.