配列変数に格納したデータを計算する方法はありますか?
簡単な例ですが、例えばB列にあるデータの平均値を求めるときに以下のようにしています。
sub 平均計算()
Dim X(1 To 1000, 1 To 1) As Variant, i as Integer
For i = 10 To 1000
X(i, 1) = WorksheetFunction.Average _
(Range(Cells(i - 9, 2), Cells(i, 2)))
Next
Range(Cells(1, 1), Cells(1000, 1)) = X
End Sub
ここで処理速度改善のため、B列のデータを別の配列変数Yに格納してから平均値を求めるというようなことをしたいのですが、そんなことは可能でしょうか?イメージとしてはこんな感じです。
Y = Range(Cells(1, 2), Cells(1000, 2))
for i = 1 to 1000
X(i, 1) = WorksheetFunction.Average _
(Range(Y(i - 9, 2), Y(i, 2)))
Next
当然これはエラーになってしまいますが、このようなことを可能にする方法があれば、どなたか教えてください!よろしくお願いします。
お礼
ありがとうございます。 問題なくできました!