楽天RSS エクセルのマクロで10秒毎に記録したい

質問

楽天RSSで取得した数値をA１に表示しています。

その数値を、10秒ごとにB1にコピーして、古いデータは右にずらしていきたいのですが、
無限に溜まってしまっても困るので、過去100個までためて、それより古いデータは削除、
というマクロの記述方法を教えて下さい。

回答No.1

keithin

sub macro1()
’if range("A2") = "STOP" then end
　range("CW:CW").delete shift:=xlshifttoleft
　range("B1").insert shift:=xlshifttoright
　range("B1").value = range("A1").value
　application.ontime timeserial(0,0,10) + now, "macro1"
end sub