エクセルマクロ時系列記録と記録の蓄積

質問

エクセルマクロVBAでの質問です。
何分初心者で全くわからなくなってしまいました。
どうか助けてください。

内容
A1からD1まで4本値がリアルタイムで表示されているとして
これを例えば1時間おきに記録してE列からH列に保存して下に累積していきます。
EからH列にはあらかじめ保存された25行の数字があり1時間ごとに26、27と蓄積していきます。
EからH列は保存数が30行と決まっておりE30：H30に到達した時点で
E1：H1が消滅してE2：H2にあった数字がE1：H1に、E3：H3にあった数字がE2：H2に、、、
とういう風に1行づつ繰り上がります。

1時間おきというのはマクロをスタート開始させてからをイメージしています。
こんなことって可能でしょうか！？
条件に沿えばその通りでなくても問題ありません。
わかるかたどうかよろしくお願いします！

回答No.1

keithin · ベストアンサー

＞EからH列は保存数が30行と決まっておりE30：H30に到達した時点で

はて？
保存数が３０行と決まっているなら、「３０行に到達した時点で」１行目を削除してしまうのは間違いですね。

sub Macro1()
　range("E65536").end(xlup).offset(1).resize(1, 4).value = range("A1:D1").value
　if range("E65536").end(xlup).row > 30 then　’31行に到達してから１行目を削除する
　　range("E1:H1").delete shift:=xlshiftup
　end if
　application.ontime now + timeserial(1, 0, 0), "Macro1"
end sub

マクロ１を実行すると、以後１時間ごとに繰り返し自動実行する。

お礼

,,,確かに31行目ですね！失礼しました！
こんなに綺麗でシンプルなマクロができてしまうのですね！
VBAすごし！助かりました！
有難うございます！