通過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。