Excelのセルに書式設定を一括コピーする方法｜基本、ショートカット、VBA

表の作成時にセルの書式設定のみを一括でコピーしたい場合はないでしょうか。
特に表の罫線や背景が追加、編集していく中で変わってしまい、清書をする時に多いかと思います。

けど、そんな中で悩むことは、

・Excelのセルに書式設定を一括コピーするやり方がわからない。
・ショートカットやVBAで効率的に行いたいがやり方がわからない。

ですよね。

今回はそんなお悩みを解決する

・Excelのセルに書式設定を一括コピーする基本操作、ショートカット
・Excel VBAでセルに書式設定を一括コピーする方法

についてまとめます！

Excelのセルに書式設定を一括コピーする基本操作

サンプルとして以下の成績表で説明をします。

D2～J6までのセルは、書式が設定されていない状態となっていますので、
その範囲に対してC列の書式を適用するようにしていきます。

書式設定済みのC列のセルを選択します。

[ホーム]タブを選択します。

[クリップボード]グループの[書式のコピー/貼り付け]をクリックします。

もしくは右クリックからメニュー表示し書式のコピー/貼り付けをクリックでもOKです。

書式設定を反映したいセルを選択します。

書式のみを貼り付ける事ができました

書式のみを貼り付ける事ができましたね。

タカヒロ

文字の色や配置位置、セルの背景色など
書式として設定しているすべてが反映されます。

Excelのセルに書式設定を一括コピーするショートカット

Excelのセルに書式設定を一括コピーするショートカットは以下の順序で実施します。

リボンメニューのショートカット

書式をコピー元セルを選択

Alt + H

Alt + F+ P

書式をコピーしたいセルを選択

Excelのセルに書式設定を一括コピーするVBA

ExcelVBAでExcelの条件付き書式を一括で削除する方法について説明します。

サンプルのVBAは以下の通りです。

書式コピー元から指定範囲のセルに対して書式設定を反映

Rangeで書式コピー元となるセル”C2:C6″を選択し、Copyメソッドでコピーします。
Range(“C2:C6”).Copy

次に、指定範囲のセル”D2:J6″に対して書式のみペーストするため、Pasteプロパティに書式のみを示す値「xlPasteFormats」を設定し、PasteSpecialメソッドでペーストします。
Range(“D2:J6”).PasteSpecial Paste:=xlPasteFormats

Sub 書式コピー元から指定範囲のセルに対して書式設定を反映()

    '書式コピー元を選択
    Range("C2:C6").Copy
    
    '指定範囲のセルに対して書式のみペーストする
    Range("D2:J6").PasteSpecial Paste:=xlPasteFormats
    
    'コピー元の選択ぐるぐるを解除
    Application.CutCopyMode = False

End Sub

タカヒロ

上記と同じ結果になりましたね。ワンクリックでできるところが良いところです。

書式コピー元から選択範囲のセルに対して書式設定を反映

Rangeで書式コピー元となるセル”C2:C6″を選択し、Copyメソッドでコピーします。
Range(“C2:C6”).Copy

次に、Selectionプロパティで選択したセルを取得し、Pasteプロパティに書式のみを示す値「xlPasteFormats」を設定し、PasteSpecialメソッドでペーストします。
Range(“D2:J6”).PasteSpecial Paste:=xlPasteFormats

Sub 書式コピー元から任意の範囲のセルに対して書式設定を反映()

    '書式コピー元を選択
    Range("C2:C6").Copy
    
    '任意の選択範囲に対して書式のみペーストする
    Selection.PasteSpecial Paste:=xlPasteFormats
    
    'コピー元の選択ぐるぐるを解除
    Application.CutCopyMode = False

End Sub

書式を反映したいセルを選択した後で、VBAを実行します。