エクセルで数値を簡単に加算したい

エクセルである列に適当な数値が入っており、１ボタンでその列のすべての数値が、１加算されるような仕組みを作りたいのですが
どのような方法がありますでしょうか？
例）
A
1 10
2 23
3 24
4 5
5 16

結果
A
1 11
2 24
3 25
4 6
5 17

よろしくお願いします。

No.2 ベストアンサー 回答者： jo-zen 回答日時： 2008/04/10 14:10

マクロ（VBA)なら、そのマクロを登録したボタンを押せば一発で実行されます。

１ボタンでというなら、VBA以外にはないのではと思います。

Sub Macro1()
'
Selection.Copy　　'←加算したい数のセルを選択してある状態でないといけない
　　　　　　　　　　　'そうでない場合は　Range("B1").Select　をSelection.Copyの行の前に記述（B1セルに加算したい数が入っている場合）
Range("A2:A10").Select　'←下記の注意を参照
Selection.PasteSpecial Paste:=xlAll, Operation:=xlAdd, SkipBlanks:=False _
, Transpose:=False
End Sub

大体の感じはこんなところです。Range("A2:A10").Select　については、被加算数がA2 ～ A10に入っている場合です。どこまで数が入っているかによって、"　"の中は変わります。自動的に判断する仕組みも可能ですが、高度になるため、ここでは解説いたしません。
「ツール」→「マクロ」→「新しいマクロの記録」などをつかえば、簡単にマクロが記述できますよ。

この回答へのお礼

回答ありがとうございます、早速検証してみました。
これならいけそうです！

ただ、いろいろググッて見たところ
このようなVBAがありました。

Sub ボタン1_Click()
Range("a1") = Range("a1") - 1
End Sub

できれば、これを拡張してa1～a1000ぐらいまで
ボタン一つで一気に変更できればと思ったのですが・・・

また、よろしかったら回答ください。
ありがとうございました。

お礼日時：2008/04/10 15:39

No.1 回答者： marigos 回答日時： 2008/04/10 13:49

1 の値が入ったセルをコピーします。

加算したいセルを選択します。
マウスの右クリックから「形式を選択して貼り付け」を選びます。
演算の「加算」を選択して「OK」でできますよ。

この回答へのお礼

大変お手軽に、変更できる方法ですね。
こんな方法があったとは。。。

エクセルを多少いじれる方だと、問題なさそうですね。
大変ありがとうございました。

お礼日時：2008/04/10 15:26