なぜ「書式の連続貼り付け」が重要なのか
実務において、表のレイアウトを整える作業は避けて通れません。特定のセルに設定した「罫線」「塗りつぶし」「フォント設定」などを、離れた複数の箇所に一つずつ手作業でコピー＆ペーストしていませんか？この作業は非常に手間がかかる上に、貼り付け漏れが発生する原因にもなります。今回紹介する「連続貼り付け」のテクニックを知っておくだけで、書式設定の作業時間を大幅に短縮できます。
基礎知識：書式のコピーと貼り付けの仕組み
Excelの「書式のコピー/貼り付け」ボタン（刷毛のアイコン）は、通常は1回クリックすると一度貼り付けただけで解除されます。しかし、ここを「ダブルクリック」することで、モードが固定され、連続して貼り付けが行えるようになります。この仕組みを理解しておけば、大量のセル範囲に同じデザインを適用する際に非常に効率的です。
実装/解決策：マウス操作とVBAによる自動化
手動操作で解決する場合は以下の手順で行います。
1. コピー元のセルを選択します。
2. ツールバーの「書式のコピー/貼り付け」ボタンを「ダブルクリック」します。
3. 貼り付けたいセルや範囲を、離れていても次々とクリック（またはドラッグ）します。
4. 終了時は「Escキー」を押すか、再度ボタンをクリックしてモードを解除します。
もし、特定のシート全体の書式をVBAで一気に適用したい場合は、マクロを活用するのが最も確実です。
サンプルプログラム：指定範囲に書式を連続適用するVBA
以下のコードは、セルA1の書式を、指定した複数の範囲（B1:B10およびD1:D10）に一括で適用する実用的な例です。
Sub ApplyFormatToMultipleRanges()
‘ 書式のコピー元となるセル
Dim sourceRange As Range
Set sourceRange = Range(“A1”)
‘ 書式を適用したい複数の範囲（カンマで区切って指定可能）
Dim targetRanges As Range
Set targetRanges = Union(Range(“B1:B10”), Range(“D1:D10”))
‘ コピー元から書式のみをコピーする
sourceRange.Copy
‘ 貼り付け先へ「形式を選択して貼り付け（書式のみ）」を実行
targetRanges.PasteSpecial Paste:=xlPasteFormats
‘ コピーモードを解除
Application.CutCopyMode = False
MsgBox “指定した範囲に書式を適用しました。”
End Sub
応用・注意点：現場で役立つアドバイス
・VBAでの工夫： 上記のコードのように「Unionメソッド」を使うと、離れた複数の範囲を一つのオブジェクトとして扱うことができ、ループ処理を使わずに一括で書式を適用できます。これは大規模なシートを整形する際に非常に強力です。
・バグ回避のコツ： 「形式を選択して貼り付け」を行う際は、必ずクリップボードをクリアする `Application.CutCopyMode = False` を記述してください。これを忘れると、他の操作を行う際にコピー枠が残ったままになり、誤操作の原因となります。
・条件付き書式との併用： もし貼り付け先に「条件付き書式」が既に設定されている場合、書式のコピーを行うと上書きされてしまうことがあります。重要な設定を消さないよう、貼り付け先の状態を事前に確認する癖をつけておきましょう。
