エクセル2013 選択したセルに1をコピーで加算貼り付け

エクセル2013です
複数のセルに入力されている数字を＋1しようとしています
1をコピーして加算の貼り付けなのですが、
数字が入力されているセルが結合されているので、1を貼り付けすると結合がばらばらになり、
+1で加算された数字と1だけが入力されたものになってしまいます。
説明がへたくそですが・・・
二つのセルを結合しているとして、
45　と入っていたら　46　1　という風になってしまいます

結合されているセルには加算貼り付けはできないのでしょうか
教えてください

年が替わるため、複数の人の年齢と在籍期間を+1にしなくてはいけません
一人1シート、A4サイズのシートにいろいろな情報が入っていて、その中から上記の二項目を+1します
何枚もシートがあるのですが、ブック全体を簡単な方法でまとめて+1できるような虫のいいやり方などありませんよね…？

No.1 ベストアンサー 回答者： tom04 回答日時： 2017/12/18 16:11

こんにちは！

VBAになりますが、一例です。
まず↓のコードを標準モジュールにしてください。

Sub Sample1() '//この行から//
Dim c As Range
For Each c In Selection
If IsNumeric(c) Then
c = c + 1
End If
Next c
End Sub '//この行まで//

次にSheetの「1」を加算したいセルを選択し（飛び飛びでも構いません）
マクロを実行してみてください。

この操作をすべてのSheetで行います。

※　セルの結合があっても大丈夫だと思います。m(_ _)m

この回答へのお礼

おお！VBAって初めてですが、調べながらやってみたら見事にできました！！
ありがとうございます！

お礼日時：2017/12/18 17:52