基于动态范围的excelvba自动填充

请你帮我做以下事情；我在A1中列出了越来越多的员工，我希望我在E1、F1、G1等中的公式能够自动填充，而不是像现在这样静态

我有以下内容，但它抛出了一个错误：对象\u Global的方法“Range”失败

我的vba代码

Sub AutoFill()

    Dim RowCount As Variant

    RowCount = Range(("A1"), Range("A1").End(xlDown)).Rows.Count
    Range("E1").Select ' Default formula's in E1
    Selection.AutoFill Destination:=Range(RowCount - 1), Type:=xlFillDefault

End Sub

我错过了什么，我被难住了，从昨天起就一直如此

提前感谢。

该方法可能更容易编码

Sub DynAutoFill()

    Dim lastRow As long

    lastRow = cells(rows.count, "A").end(xlup).row  'should -1 be added here?
    Range(cells(1, "E"), cells(lastRow, "E")).filldown

End Sub

FillDown可以轻松处理多个列

Sub DynAutoFill()

    Dim lastRow As long

    lastRow = cells(rows.count, "A").end(xlup).row  'should -1 be added here?
    Range(cells(1, "E"), cells(lastRow, "G")).filldown

End Sub

您自己的代码需要整个范围作为目标

Sub DynAutoFill()

    Dim RowCount As Variant

    RowCount = Range(("A1"), Range("A1").End(xlDown)).Rows.Count
    Range("E1").AutoFill Destination:=Range(cells(1, "E", cells(RowCount - 1, "E")), Type:=xlFillDefault

End Sub

---

我不会使用保留字作为子过程的名称。

可能重复

范围（RowCount-1）

这只是一个数字，而不是一个范围，需要类似

范围（“A1:a”&RowCount-1）

用户10781941-你太棒了！我有一个问题，我的经理现在在前几行有了数据和“性感边框”。我可以从A7而不是A1开始编码吗？应该像

范围（单元格（7，“E”）、单元格（最后一行，“E”））一样简单。用E7中的种子公式填充
。