VBAで
値や書式なしコピーはどうやってやるの?
と悩んでいる方も多いと思いますが、Copyメソッドを使用すれば簡単にコピーが可能です。
ここではVBAでコピーする方法全般について、以下の内容で解説していきます!
- 【基礎】セルのコピー&ペースト(貼り付け)
- 【基礎】シートのコピー
- 【応用】ファイルのコピー
今回はVBAのコピーについて、使い方をわかりやすく解説します!
この記事の目次
セルのコピー&ペースト(貼り付け)
セルをコピーするには、RangeオブジェクトのCopyメソッドを使います。
Copyメソッドは以下のように記述します。
Range(コピー元セル).Copy Range(コピー先セル)
コピー元、コピー先のセル範囲をRangeオブジェクトで指定します。
Excelシート:
Sub macro1() Range("A1").Copy Range("C3") End Sub
実行結果:
このサンプルコードでは、セル”A1”を”C3”にコピーしています。
セルの範囲を指定してコピーする
複数のセルの範囲を指定してコピーすることもできます。
コピー元のRangeオブジェクトをセルの範囲で指定して、コピー先のRangeオブジェクトはコピー先のセルの範囲の先頭を指定します。
サンプルコードで確認しましょう。
Excelシート:
Sub macro2() Range("A1:C3").Copy Range("A5") End Sub
実行結果:
このサンプルコードでは、セルの範囲”A1:C3”をセル範囲の先頭"A5"にコピーしています。
値のみをコピーする
値のみをコピーするなど形式を指定して貼り付けるには、PasteSpecialメソッドを使います。
PasteSpecialメソッドは以下のように記述します。
Range.PasteSpecial(Paste, Operation, SkipBlanks, Transpose)
Rangeはコピー元のセル範囲をRangeオブジェクトで指定します。
引数はいずれも省略可能です。引数については表にまとめました
引数 | 定数 | 説明 |
---|---|---|
Paste | XlPasteType | 貼り付けの形式を指定 |
Operation | XlPasteSpecialOperation | 貼り付け時の操作を指定 |
SkipBlanks | ー | Trueの場合、空白のセルを削除して貼り付け Falseがデフォルト値 |
Transpose | ー | Trueの場合、行と列を入れ替え Falseがデフォルト値 |
XlPasteTypeで主に指定する定数は以下のとおりです。
定数 | 値 | 説明 |
---|---|---|
xlPasteAll | -4104 | すべて貼り付け |
xlPasteFormats | -4122 | 形式を貼り付け |
xlPasteFormulas | -4123 | 数式を貼り付け |
xlPasteFormulasAndNumberFormats | 11 | 数式と数値の書式を貼り付け |
xlPasteValues | -4163 | 値を貼り付け |
xlPasteValuesAndNumberFormats | 12 | 値と数値の書式を貼り付け |
表に記載した内容は、よく使われると思われる項目のみの一部です。
詳細は公式サイトを参照してください。
また、XlPasteSpecialOperationで指定する定数についても、公式サイトを参照してください。
それでは、値を貼り付ける場合について確認していきましょう。
値のみを貼り付けるには、引数PasteをxlPasteValuesで指定します。
サンプルコードで確認しましょう。
Sub macro3() Range("A1").Copy Range("C3").PasteSpecial xlPasteValues End Sub
実行結果:
このサンプルコードでは、セル”A1”をコピーし、セル”C3”に値だけを貼り付けています。
これとは別に簡単に値のみをコピーする方法があります。それは、RangeオブジェクトのValueプロパティを使う方法です。
サンプルコードで確認しましょう。
Sub macro3() Range("C3").Value = Range("A1").Value End Sub
実行結果:
書式のみをコピーする
書式のみをコピーするには、引数PasteをxlFormatsで指定します。
サンプルコードで確認しましょう。
Sub macro4() Range("A1").Copy Range("C3").PasteSpecial xlFormats End Sub
実行結果:
このサンプルコードでは、セル"A1"から”C3”に書式のみをコピーしています。
なお、書式のみではコピーされているかわからないので、コピーのあとに"Hello”と記入しています。
別のシートからコピーする
別のシートからコピーするには、セル範囲の指定の前にシートを指定します。
サンプルコードで確認しましょう。
なお、あらかじめ"Sheet2”は作成しておいてください。
Sub macro5() Sheets("Sheet1").Range("A1").Copy Sheets("Sheet2").Range("A2") End Sub
実行結果:
別のブックからコピーする
別のブックからコピーするには、セル範囲の指定の前にブックとシートを指定します。
サンプルコードで確認しましょう。
なお、あらかじめブックは開いておいてください。
Sub macro6() Workbooks("Book1.xlsx").Sheets("Sheet1").Range("A1").Copy _ Workbooks("Book2.xlsx").Sheets("Sheet1").Range("A2") End Sub
実行結果:
コピーモードを解除(クリア)する
Copyメソッドを実行して、PasteSpecialメソッドなどで貼り付けた場合、コピー元が点線の枠で囲まれ枠が点滅しているかと思います。
これはコピーモードが継続している状態です。
引き続きPasetSpecialメソッドなどを使って、別の場所に貼り付けする場合はこのままコピーモードを継続して構いませんが、貼り付けが終了したらコピーモードを解除しましょう。
コピーモードを解除するには、ApplicationオブジェクトのCutCopyModeプロパティをFalseに指定します。
サンプルコードで確認しましょう。
Sub macro7() Range("A1").Copy Range("C3").PasteSpecial xlPasteValues Application.CutCopyMode = False End Sub
実行結果:
このサンプルコードでは、ApplicationオブジェクトのCutCopyModeプロパティをFalseに指定してますので、コピーモードが解除されコピー元のセル”A1”は点線で囲まれていません。