ちびのび こんなあなたにおすすめ
・Excel VBAでコピー&ペーストするときに貼り付けスタイルを指定したい
Excelでコピー&ペーストするときに、値だけでいい、書式だけでいいなど様々だと思います。
そんなときは、PasteSpecialの引数を変えることで、いろんたスタイルでコピーしたものを貼り付けることができます。
今回は、PasteSpecialの引数について解説します。
コピー&ペーストのスタイルを指定したい
PasteSpecialの引数を変えることで、貼り付けスタイルを簡単に変更することができます。
PasteSpecialの引数は、以下の通りです。
| 定数 | 値 | 説明 |
|---|---|---|
| xlPasteAll (既定) | -4104 | すべて |
| xlPasteFormulas | -4123 | 数式のみ |
| xlPasteValues | -4163 | 値のみ |
| xlPasteFormats | -4122 | 書式のみ |
| xlPasteComments | -4144 | コメント |
| xlPasteValidation | 6 | 入力規則 |
| xlPasteAllExceptBorders | 7 | 罫線を除くすべて |
| xlPasteColumnWidths | 8 | 列幅 |
| xlPasteFormulasAndNumberFormats | 11 | 数式と数値の書式 |
| xlPasteValuesAndNumberFormats | 12 | 値と数値の書式 |
| xlPasteAllUsingSourceTheme | 13 | コピー元のテーマを使用してすべて貼り付け |
| xlPasteAllMergingConditionalFormats | 14 | すべての結合されている条件付き書式 |
実際のコードを見ていきましょう。
すべてを貼り付ける場合は、以下の通りです。
Sub test1()
Cells(1, 1).Copy 'A1セルをコピーする
Cells(2, 2).PasteSpecial (xlPasteAll) 'B2セルにすべてを貼り付ける
End Sub
値のみ貼り付け場合は、以下の通りです。
Sub test2()
Cells(1, 1).Copy 'A1セルをコピーする
Cells(2, 2).PasteSpecial (xlPasteValues) 'B2セルに値のみ貼り付ける
End Sub
まとめ
ここまで、貼り付けスタイルを設定する方法について解説しました。
貼り付けスタイルを指定するのは多いと思いますので、ぜひ使ってみてください。
セルのコピー&ペーストについては、下記の記事で解説していますので、ご参照ください。
>>【ExcelVBA】セルをコピー&ペーストする方法 Copy & Pasteメソッド
複数セルのコピー&ペーストについては、下記の記事で解説していますので、ご参照ください。
>>【ExcelVBA】複数セルをコピー&ペーストする方法 Copy & Pasteメソッド
Excelで作業効率をアップしたい方は、下記の記事もご参照ください。
>>Excelのショートカット一覧 覚えて作業効率アップ!!
>>Excelで覚えておくべき関数 作業効率アップ間違いなし
オンラインスクール受講者数No.1！
・自宅にいながらオンライン完結で勉強できる
➡スクールへの移動時間を削減するため、効率的に学習可能！
・受講生に1人ずつ現役のプロのパーソナルメンターがつく
➡分からないことがわかるまで徹底的にメンターに質問可能！
・チャットで質問すればすぐに回答が返ってくる
➡レスポンスが速いから、わからないことをその場で解決！
・オリジナルサービスやオリジナルアプリなどの開発までサポート
➡就職、転職のときに役立つポートフォリオを開発可能！
無料で体験できるので、まずはお試し
>>TechAcademyの無料体験はこちら
