VBA Excel FormulaR1C1“应用程序定义或对象定义的错误”？

我试图创build一个非常简单的代码，通过使用For循环平均每10个值将600个值平均为60个值。

这段代码在R1C1公式的某个地方抛出一个错误，说“应用程序定义的或对象定义的错误”，我不知道为什么 – 我认为它与我的variables有关。 有人知道怎么做吗？

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