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 なしでコピーすることはできます。