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的情况下将其复制下来。