セルの平均を計算する際に「ランタイム1004：アプリケーション定義またはオブジェクト型定義エラー」

Question

col bのセルの平均を計算しようとしています。

平均は、データで最後の行を決定することによって計算されます。例えばデータの列Bの最初の行がB6で、最後の行がB24の場合、平均はb6：b24です。データの最後の行がB8の場合、平均はb6：b8になります。あなたが唯一の列Bにテキストまたはデータのいずれかをお持ちの場合は、なぜだけでなく、私は、コードを実行すると

Sub average() 
' 
' average Macro 
' 

' 
Range("B6").Select 

lr = Selection.End(xlDown).Row 
fr = lr + 1 
r = 6 
last = -fr + r 

Range("B" & fr & "").Select 
activecell.formulaR1C1 = "=AVERAGE(R[last]C:R[-1]C)" 

End Sub 

、それは1004

私にエラーを与える私はまた、

activecell.formula = "=AVERAGE(R[last]C:R[-1]C)" 

Answer 1

てみました

Application.Worksheetfunction.Average(Activesheet.Range("B:B"))