Excel 如何创建一个宏，将数据从顶行向下自动填充到包含数据的最后一个相邻列？

我需要创建一个宏，该宏可以获取F列到I列中的数据，并将其自动填充到E列中包含数据的最后一个单元格。下面的代码几乎完成了我需要它做的事情。但是，我希望能够将此宏与F:I列中的不同数据一起使用。我如何才能做到这一点

最后一排一样长

lastrow=范围（“e”和Rows.Count）.End（xlUp）.Row

尺寸x（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

以如下方式结束：？：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

---

非常感谢你的帮助！上面给出了“运行时错误'438'：对象不支持此属性或方法”在哪一行？如果是lastrow=…，请尝试此选项。你的名字对吗？lastrow=.range（“E104764”）.end（xlup）.row