※【Excel VBA】サンプルファイル(.xlsm)《ダウンロード》
- 特定のセル範囲の書式を別のセル範囲にコピーしたい場合も、RangeオブジェクトのCopyメソッドを使用します。
- 続いて貼り付け先のセル範囲を表すRangeオブジェクトのPasteSpecialメソッドで、引数PasteにxlPasteFormatsを指定します。
目次
【Excel VBA】サンプルコード
サンプルコード
Sub vba167()
Range("B4:C6").Copy
Range("E4").PasteSpecial Paste:=xlPasteFormats
Application.CutCopyMode = False
End Sub
解説
- 特定のセル範囲の書式を別のセル範囲にコピーしたい場合も、RangeオブジェクトのCopyメソッドを使用します。
- 続いて貼り付け先のセル範囲を表すRangeオブジェクトのPasteSpecialメソッドで、引数PasteにxlPasteFormatsを指定します。
プラスワン
【PasteSpecialメソッドで貼り付ける】
- PasteSpecialメソッドはPasteメソッドの代わりにも使用できますが、その対象は貼り付け先のセルを表すRangeオブジェクトになります。
- 必ずCopyメソッドと組み合わせて使い、Cutメソッドと組み合わせでは使用できません。
【Excel VBA】実行例
ステップ 1 ・・・・・・・・

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

コメント