Как создать макрос для автозаполнения данных из верхнего ряда до последнего смежного столбца с данными в нем?

Question

Мне нужно создать макрос, который может принимать данные в столбцах F - I и автоматически заполнять их до последней ячейки в столбце E, в которой есть данные. Код ниже почти делает то, что мне нужно. Однако я хочу иметь возможность использовать этот макрос с другими данными ниже в столбцах F: I. Как я могу это сделать?

тусклый Lastrow As Long

lastrow = Range ("e" & Rows.Count) .End (xlUp) .Row

Дим х (от 1 до 4) в качестве варианта

With ThisWorkbook.Sheets("sheet1")
x(1) = Range("f2")
x(2) = Range("g2")
x(3) = Range("H2")
x(4) = Range("I2")

.Range("F3:i3").Formula = x
.Range("f3:i" & lastrow).FillDown

Окончание

Answer 1

Как это :? : D

With ThisWorkbook.Sheets("sheet1")
    lastrow = Range("E" & Rows.Count).End(xlUp).Row

    For i = 3 To lastrow
        .Range("F" & i).Formula = .Range("F2").Formula
        .Range("G" & i).Formula = .Range("G2").Formula
        .Range("H" & i).Formula = .Range("H2").Formula
        .Range("I" & i).Formula = .Range("I2").Formula
    Next i

End With