VBA Excel FormulaR1C1 "アプリケーション定義またはオブジェクト定義エラー"？

Question

私は、Forループを使用して10個の値を平均して600個の値を平均して60個の値にする非常に単純なコードを作成しようとしています。

このコードでは、R1C1の式のどこかに「アプリケーション定義またはオブジェクト定義エラー」というエラーが表示されています。その理由はわかりません。変数に何か関係があると想定しています。誰でもこれを行う方法を知っていますか？

Sub Averaging10() 

Dim X As Double 
Dim Y As Double 
Dim Z As Double 

X = 5 
Y = 5 
Z = 0 

For X = 5 To 65 

Z = Y + 9 

    Cells(5, X).Select 
    ActiveCell.FormulaR1C1 = "=AVERAGE(RC[-3], Z : RC[-3], Z])" 

Y = Y + 10 

Next 

End Sub 

Answer 1

ブラケットが追加されました。これを試してみてください：

Dim X As Double 
Dim Y As Double 
Dim Z As Double 

X = 5 
Y = 5 
Z = 0 

For X = 5 To 65 
    Z = Y + 9 
    Cells(5, X).Select 
    ActiveCell.FormulaR1C1 = "=AVERAGE(RC[-3], Z : RC[-3], Z)" 
    Y = Y + 10 
Next