(excel)セルの値に全て同じ数を足すには？

セルにある数字が

10
28
33
43
60
74
・・・・

と数が大量に不連続の数があるとして、この数全てに各22を足したいときなどはどうすればいいのでしょうか？

No.3 回答者： imogasi 回答日時： 2008/02/22 12:21

VBAでやるならFor　Eachを使わなくとも

Sub Macro1()
Range("E1") = 22
Range("E1").Select
Selection.Copy
d = Range("a65536").End(xlUp).Row
Range("A2:A" & d).Select
Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlAdd
End Sub
でできます。
ーー
Range("E1") = 22
d = Range("a65536").End(xlUp).Row
の部分以外は、マクロの記録を採れば、判ります。
ーー
しかし普通は＃１のご回答の方法を使います。
これが思い出せないということは、エクセルの（便利技の）全般的な勉強をしたほうが良い。

No.2 回答者： suz83238 回答日時： 2008/02/22 07:10

Sub xxx()

ActiveSheet.Cells.SpecialCells(xlCellTypeConstants).Select
For Each sh In Selection
If IsNumeric(sh.Value) Then sh.Value = sh.Value + 1
Next
End Sub

数字だけ１を足します。

No.1 回答者： maron--5 回答日時： 2008/02/22 06:41

◆手順

１）どこかのセルに足したい数字（この場合22）を入力します
２）そのセルをコピーして、足される範囲を指定して
３）「形式を選択して貼り付け」を選び「演算」の「加算」をチェックして、ＯＫ