vba-平均移动单元格

Question

首先发布在这里，在VBA上非常新。

我正在寻找创建一个平均连续4个单元格的宏，但是最后一个单元格将始终是右边的一个，因为它将是新的一周。

尝试使用End（xlright），这就是我得到的 - 尽管某处显然存在错误：

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