vba - VBA 调用变量范围

Question

我正在尝试计算移动平均值（即 B2:b4、b3:b5 等的平均值），但我不知道如何调用变量范围。我该怎么做？

Sub SMA()
Dim SMA As Double

For Each cell In Range("b2:b8")

    cell.Offset(0, 1).Value = Application.Average(cell.Value, b5).Value

Next

End Sub

Answer 1

这是你想要的： ？

Dim cell As Range
For Each cell In Range("b2:b8").Cells
    cell.Offset(0, 1).Value = Application.Average(cell.Resize(3))
Next

但是，您可以将其作为公式插入一次，然后在没有 VBA 的情况下将其复制下来。