如何在Excel VBA中编写一个平均公式

我正在尝试计算平均值，但是我得到一个运行时错误。 这是我的代码

lastrowcell = Range("B1", Range("B1").End(xlDown)).Rows.Count Range("F1").Value = "High+Low/2" For n = 2 To lastrowcell Range(Cells(n, 6)).Formula = "=average(" & Range(Cells(n, 2), Cells(n, 3)).Address(False, False) & ")" Next 

任何人都可以显示我做错了什么。

提前致谢…

Answer 1

您不需要循环，Excel足够聪明，可以一次性完成整个任务：

 lastrowcell = Range("B1", Range("B1").End(xlDown)).Rows.Count Range("F1").Value = "High+Low/2" Range("F6:F" & LastRow).Formula = "=AVERAGE(B6:C6)" 

6将在每一行增加

如果你想要最后一行，除非你专门查找第一个空白，否则总是最好从下到上：

 lastrowcell = Range("B" & Rows.Count).end(xlup).row 

Answer 2

Range(Cells(n, 6))

Range属性的语法不正确。 当只有一个参数时，它应该是string。 相反，您可以使用：

Cells(n, 6)

要么

Range("F" & n) 。