通过VBA设置单元格公式时#NAME错误。

Question

我正在写一个宏，它要求我获得未知行数的列中值的平均值。我用这个来得到最后一行的编号：

Dim lastRow As Long 
lastRow = ActiveSheet.UsedRange.SpecialCells(xlCellTypeLastCell).Row 

这是行得通的。

Range("B2").Select 
ActiveCell.FormulaR1C1 = "=AVERAGE('table1'!AM2:AM" & lastRow & ")" 

这样做，我得到的#NAME?结果：当我尝试在这里使用它什么行不通的。我怎样才能解决这个问题？

Answer 1

将ActiveCell.FormulaR1C1更改为ActiveCell.Formula，因为您使用的是基本A1符号而不是R1C1。