マクロを用いてのデータ加工

質問

1分のデータ(60個)の平均を繰り返し処理できるようにしたいのですが
どうすれば上手くいくでしょうか？
00:00:00～00:00:59までのデータを00：00として平均をとろうと考えています。

単純にやると1440行も書かなくてはいけないので
ActiveSheet.Range("L3").FormulaLocal = "=AVERAGE(B3:B62)"
ActiveSheet.Range("L4").FormulaLocal = "=AVERAGE(B63:B122)"
・・・
ループ使いたいのですが、変数部分をどうしたらいいのかわかりません。
わかる方よろしくお願いします。

*イメージ
Dim i, j
For i = B3 To B28743 Step 60
For j = B62 To B28802 Step 60
ActiveSheet.Range("L3:L902").FormulaLocal = =Average(i & ":" & j)
Next i,j

回答No.3

merlionXX · ベストアンサー

なんだかよくわかりませんが
L3～L902セルに、B3から６０ずつの範囲のAVERAGEを計算する数式を挿入していけばいいんでしょうか？

Sub test01()
Dim Rng As Range, i As Long
With ActiveSheet
Set Rng = Range("B3:B62")
For i = 1 To 900
Cells(i + 2, "L").FormulaLocal = "=AVERAGE(" & Rng.Address(0, 0) & ")"
Set Rng = Rng.Offset(60)
Next i
End With
Set Rng = Nothing
End Sub

お礼

ありがとうございます。
上手くマクロを組み込むことができました。

回答No.4

merlionXX

No3 merlionXXです。

> 上手くマクロを組み込むことができました。

water18さん、それは良かった。お役に立てて幸いです。
なお、ずいぶん前に回答した、フォルダー内の全てのCSVファイルからデータをエクセルに転記するマクロコードはどうだったのでしょうか？
まったくお返事がなく、締め切られてもいないのでうまくいかなかったのでしょうか？
http://okwave.jp/qa4950281.html　回答番号：No.1です。

お礼

お返事が遅れてしまい申し訳ありませんでした。
マクロは上手く動作しましたが取り込みたい順番とシートの順番が逆になります。

回答No.2

mt2008

わざわざマクロを組まなくても
L3に　=AVERAGE(OFFSET(B$3,60*(ROW()-3),0,60,1))
を入れて下までコピーしてはいかが？

お礼

OFFSETですか、使ったことがないのでいまいちわかりませんが、便利ですね。
ありがとうございます。

回答No.1

fujillin

質問文の意味がよくわからないのですが、勝手に想像して…

以下のように仮定しました。
・データがB3～B28743にあり、60個ごとにまとめて平均値を求めたい。
・平均値を表示するセルは、L3、L4、L5と上詰めで=AVERAGE()の式で
　算出してよい。（L902の意味が不明ですが…）

◆式は一度だけ定義しておけば、データの内容が変わっても自動的に算出されるのでマクロで設定する必要もないと思うので、L3に式
=AVERAGE(INDIRECT("B" & ROW()*60-177 & ":B" & ROW()*60-118))
を入れて、L481まで下にコピーフィルすれば設定できるかと…

◆どうしてもマクロでというのであれば、同様に
For r = 3 To 481
　Range("M" & r).Formula = "=AVERAGE(B" & r * 60 - 177 & ":B" & r * 60 - 118 & ")"
Next r
みたいな感じでいけると思うけど…

補足

L902となっているのは、データの一部が欠落しているためサンプル数が少なくなっているためです。