vba-平均移動單元格

Question

首先在這裏發表，並在VBA非常新。

我正在尋找創建一個平均最後4個單元格在一行中的宏，但最後一個單元格將永遠是一個向右的，因爲它將是一個新的一週。

試圖玩弄結束（xlright）和這裏就是我的GOT雖然他們顯然有一個錯誤的地方：

ActiveCell.FormulaR1C1 = "=AVERAGE(End(xlRight).Offset(-4):End(xlRight))"

在所有的任何幫助是極大的讚賞。

謝謝！

Answer 1

對於行＃1，而不VBA

=AVERAGE(OFFSET(A1,0,COUNT(1:1),1,0-5)) 

與VBA

所以：

Sub dural() 
    MsgBox Evaluate("AVERAGE(OFFSET(A1,0,COUNT(1:1),1,0-5))") 
End Sub