【VBA】形式を選択して貼り付ける方法【PasteSpecialを使う】

目次から見たい項目へ移動すると便利ですよ。

VBAで形式を選択して、貼り付けるには、「PasteSpecail」を使います。

形式を選択して貼り付けは、Excelでいうと次の画面で設定するものです。

この形式を選択して貼り付けを、VBAでやってみます。

形式を選択して貼り付ける、PasteSpecialは、次のように入力して使います。

「セル.PasteSpecial Paste:=形式」

形式には、次のような形式があります。

また、次のように「Transpose」を使うことで、貼り付ける値を「転置」することができます。

「セル.PasteSpecial Paste:=形式, Transpose:=True」

では、それぞれの形式で貼り付けてみましょう。

PasteSpecialのそれぞれの形式で、貼り付けてみます。

形式を「すべて」で貼り付けてみます。

引数には、「Paste:=xlPasteAll」を使います。

セルに値を入力しておきました。

B1には数式を入力しています。

B2には入力規則を設定しています。

では、VBAコードを実行してみます。

値や書式が貼り付けられます。

数式も貼り付けられています。

入力規則もそのまま貼り付けられています。

形式を「すべて」として貼付けができました。

次は、形式を「数式」で貼り付けてみます。

引数には、「Paste:=xlPasteFormulas」を使います。

セルに値を入力しておきました。

B1には数式を入力しています。

では、VBAコードを実行してみます。

値と数式が貼り付けられます。

数式も貼り付けられています。

形式を「数式」として貼付けができました。

書式は貼り付けられていません。

形式を「値」で貼り付けてみます。

引数には「Paste:=xlPasteValues」を使います。

セルに値を入力しておきました。

B1には数式を入力しています。

では、VBAコードを実行してみます。

値が貼り付けられます。書式は貼り付けられません。

数式ではなく、値となっています。

形式を「値」として貼付けができました。

形式を「書式」で貼り付けてみます。

引数には、「Paste:=xlPasteFormats」を使います。

セルに値を入力しておきました。

では、VBAコードを実行してみます。

書式のみが貼り付けられます。

値などは貼り付けられていません。

形式を「書式」で貼付けができました。

形式を「コメントとメモ」で貼り付けてみます。

引数には、「Paste:=xlPasteComments」を使います。

セルに値を入力しておきました。

B1にはメモが入力されています。

では、VBAコードを実行してみます。

メモのみが貼り付けられます。

形式を「コメントとメモ」として貼付けができました。

形式を「入力規則」で貼り付けてみます。

引数には、「Paste:=xlPasteValidation」を使います。

セルに値を入力しておきました。

B2に入力規則を設定しています。

では、VBAコードを実行してみます。

入力規則が貼り付けられます。

入力規則が貼り付けられているか確認してみます。

形式を「入力規則」として貼付けができました。

形式を「コピー元のテーマを使用してすべて貼り付け」で貼り付けてみます。

引数には、「Paste:=xlPasteAllUsingSourceTheme」を使います。

セルに値を入力しておきました。

B1には数式を入力しています。

B2には入力規則を設定しています。

では、VBAコードを実行してみます。

値や書式が貼り付けられます。

数式も貼り付けられています。

入力規則もそのまま貼り付けられています。

形式を「コピー元のテーマを使用してすべて貼り付け」として貼付けができました。

形式が「すべて」と違いがわかりません。

この「コピー元のテーマを使用してすべて貼り付け」は使わなくても良さそうです。

形式を「罫線を除くすべて」で貼り付けてみます。

引数には、「Paste:=xlPasteAllExceptBorders」を使います。

セルに値を入力しておきました。

B1には数式を入力しています。

B2には入力規則を設定しています。

では、VBAコードを実行してみます。

罫線を除くすべてが貼り付けられます。

罫線は貼り付けられていません。

数式は貼り付けられています。

入力規則もそのまま貼り付けられています。

形式を「罫線を除くすべて」として貼付けができました。

形式を「列幅」で貼り付けてみます。

引数には、「Paste:=xlPasteColumnWidths」を使います。

セルに値を入力しておきました。

セルの列幅を変更しています。

では、VBAコードを実行してみます。

列幅だけ貼り付けられます。

形式を「列幅」として貼付けができました。

値や書式は貼り付けられていません。

形式を「数式と数値の書式」で貼り付けてみます。

引数には、「Paste:=xlPasteFormulasAndNumberFormats」を使います。

セルに値を入力しておきました。

B1には数式を入力しています。

では、VBAコードを実行してみます。

数式と数値の書式のみが貼り付けられます。

数値の書式が貼り付けられます。

数式も貼り付けられます。

形式を「数式と数値の書式」として貼付けができました。

形式を「値と数値の書式」で貼り付けてみます。

引数には、「Paste:=xlPasteValuesAndNumberFormats」を使います。

セルに値を入力しておきました。

B1には数式を入力しています。

では、VBAコードを実行してみます。

値や数値の書式だけが貼り付けられます。

値の書式も貼り付けられています。

数式は貼り付けられていなくて、値となります。

形式を「値と数値の書式」として貼付けができました。

形式を「すべての結合されている条件付き書式」で貼り付けてみます。

引数には、「Paste:=xlPasteAllMergingConditionalFormats」を使います。

セルに条件付き書式を設定しておきました。

条件付き書式が設定されています。

では、VBAコードを実行してみます。

条件付き書式や値、書式が貼り付けられます。

条件付き書式が貼り付けられています。

数式もそのまま貼り付けられています。

入力規則もそのまま貼り付けられています。

形式を「すべての結合されている条件付き書式」として貼付けができました。

ただ、この「すべての結合されている条件付き書式」も、「すべて」の形式と違いがわかりません。

「すべて」の形式を使えば良さそうです。

値を「転置」して貼り付けてみます。

転置して貼付けは、「Traspose:=True」を入力するとできます。

セルに値を入力しておきました。

では、VBAコードを実行してみます。

値が転置して貼り付けられます。

形式を「転置」して貼付けができました。

PasteSpecialは形式を組み合わせて、貼り付けすることもできます。

形式を「すべて」と「列幅」を組み合わせて、貼り付けてみます。

形式を「すべて」と「列幅」を組み合わせて、貼り付けするには次のように2つ「PasteSpecial」を使います。

「すべて」の「Paste:=xlPasteAll」と、「列幅」の「Paste:=xlPasteColumnWidths」を組み合わせています。

セルに値と書式を入力しておきました。

列幅を変更しています。

セルB1には、数式を入力しています。

セルB2には、入力規則を設定しています。

では、VBAコードを実行してみます。

値と書式、そして列幅が貼り付けられました。

数式も貼り付けられています。

入力規則も貼り付けられています。

こんな感じで、形式の「すべて」と「列幅」を組み合わせることもできます。

「PasteSpecail」は、別シートに貼り付ける際に、別シートをアクティブにしなくても、貼り付けることができます。

やってみます。

PasteSpecialで別シートに「すべて」を貼り付けてみます。

「Sheet1」のセルに値と書式を入力しておきました。

では、実行してみます。

Sheet2のセルに値と書式のすべてを貼り付けられました。

Sheet2をアクティブにすることなく、セルを貼付けすることができます。

この記事では、形式を選択して貼り付ける方法について、ご紹介しました。

形式を選択して貼り付けるには、「PasteSpecial」を使います。

「PasteSpecial」の形式を変更して、「すべて」や「書式のみ」を貼り付けることができます。

値だけでなく、書式や列幅も貼り付けたい場合に、便利です。

参考になればと思います。最後までご覧くださいまして、ありがとうございました。