【Excel_VBA】セル範囲の書式を別のセル範囲にコピーする(167)

【Excel VBA】サンプルファイル(.xlsm)《ダウンロード》

  1. 特定のセル範囲の書式を別のセル範囲にコピーしたい場合も、RangeオブジェクトCopyメソッドを使用します。
  2. 続いて貼り付け先のセル範囲を表すRangeオブジェクトPasteSpecialメソッドで、引数PastexlPasteFormatsを指定します。
目次

【Excel VBA】サンプルコード

サンプルコード

Sub vba167()
    Range("B4:C6").Copy
    Range("E4").PasteSpecial Paste:=xlPasteFormats
    Application.CutCopyMode = False
End Sub

解説

  1. 特定のセル範囲の書式を別のセル範囲にコピーしたい場合も、RangeオブジェクトCopyメソッドを使用します。
  2. 続いて貼り付け先のセル範囲を表すRangeオブジェクトPasteSpecialメソッドで、引数PastexlPasteFormatsを指定します。
 プラスワン 

PasteSpecialメソッドで貼り付ける

  • PasteSpecialメソッドPasteメソッドの代わりにも使用できますが、その対象は貼り付け先のセルを表すRangeオブジェクトになります。
  • 必ずCopyメソッドと組み合わせて使い、Cutメソッドと組み合わせでは使用できません。

【Excel VBA】実行例

ステップ 1 ・・・・・・・・

ステップ 2 ・・・・・・・・

【Excel VBA】サンプルファイル(.xlsm)《ダウンロード》

Excel_VBA_167.xlsm【ダウンロード】

よかったらシェアしてね!
  • URLをコピーしました!
  • URLをコピーしました!

この記事を書いた人

コメント

コメントする

目次