|
takuyaさんこんにちは。私も初心者です。
takuyaさんの作られたものを最大限に生かし、
neptuneさんのアドバイスを利用すると
次のようになると思います。
Sub ああ()
Dim ret As String
Range("A2:C5").Select
Selection.Copy
Sheets("2007データ").Select
ret = Range("A" & Rows.Count).End(xlUp).Offset(1).Address
Range(ret).Select
ActiveSheet.Paste
Sheets("本日分").Select
Application.CutCopyMode = False
End Sub
これで、本日分のシートから2007データのシートにデータは
累計されていきます。
しかし、いくつか使い勝手という点から問題があると思いませんか?
1.本日分のシートも"C2:A5"というように固定でなく、
少なくても行数は可変にした方が、いちいちマクロを直さなくていいですよ ね。これは、累計の方を可変にした要領で、考えてみてください。
2.本日分は累計したら、クリアーしておいた方が、次の日に入力するのに
便利かもですね。もちろん累計の最後にクリアーを入れればいいと思います。
(念のためバックアップのためにとっておきたいという考えもあるかもしれま せんが)
また、SELECTは使用しなくてもマクロは作れるので、使用しない方が
いろいろ利点があるようです。過去ログなどで調べてもらえばいろいろ
アドバイスが出ていると思います。
|
|