Excel VBAで効率アップ！表書式のみを転記するPasteSpecialメソッド徹底解説

この記事では、Excel VBAを使って表に設定された書式のみを簡単に貼り付ける方法を解説します。

Excelで表の書式だけを別のセルに貼り付けたいんだけど、どうすればいいの？

Excel VBAのPasteSpecialメソッドを使えば簡単ですよ。コードを使って具体的に説明しましょう。

PasteSpecialメソッドとは？

Excel VBAのPasteSpecialメソッドは、コピーしたセルの内容を特定の形式で貼り付けるために使用される機能です。

このメソッドは、Excelの標準的な貼り付け操作をプログラム的に実現し、さらに高度な制御を可能にします。

通常の「貼り付け」操作では、コピーされたセルの全ての要素（値、数式、書式、コメントなど）が転記されますが、PasteSpecialを使用すると、これらの要素の中から特定のものだけを選択して貼り付けることができます。

例えば、あるセルの書式だけを別のセルに適用したい場合や、数式ではなく計算された値のみを転記したい場合にこのメソッドが役立ちます。

書式のみを貼り付ける方法サンプルプログラムを使った解説

Excel VBAで書式のみを貼り付けるには、PasteSpecial メソッドを使用します。

この操作は、特定のセル範囲の書式を別のセル範囲に適用する際に非常に便利です。以下はその手順です。

コピーする範囲の選択: まず、書式をコピーしたいセル範囲を選択します。これは Range オブジェクトを使用して行います。
Copyメソッドの使用: 選択した範囲に対して Copy メソッドを実行します。これにより、選択した範囲のデータがクリップボードにコピーされます。
貼り付け先の選択: 次に、書式を貼り付けたいセル範囲を選択します。
PasteSpecialメソッドの使用: 選択した範囲に対して PasteSpecial メソッドを実行し、Paste パラメータとして xlPasteFormats を指定します。この操作により、コピー元のセル範囲から書式のみが選択したセル範囲に貼り付けられます。
クリップボードのクリア: 最後に、Application.CutCopyMode = False を使用して、クリップボードをクリアします。

以下に簡単な例を示します。

Sub PasteFormatOnly()
    ' A1セルの書式をコピー
    Range("A1").Copy
    ' B1セルに書式のみを貼り付け
    Range("B1").PasteSpecial Paste:=xlPasteFormats
    ' クリップボードをクリア
    Application.CutCopyMode = False
End Sub

このコードは、A1セルの書式をB1セルに貼り付けます。この方法を使えば、セルの値や数式は変更せずに、書式だけを簡単に転記することができます。