セルをコピー&ペースト(貼り付け)する
セルのコピー&ペーストは以下のようなプログラムで実装できます。
' A1 をコピー
Range("A1").Copy
' B1 にペースト(貼り付け)
Range("B1").PasteSpecial
Paste:= の設定値を変更することで様々なタイプのペーストができます。
| 貼り付け対象 | 定数 | 値 | 備考 |
|---|
| すべて | xlPasteAll（既定） | -4104 | 規定値 |
|---|
| 数式 | xlPasteFormulas | -4123 | |
|---|
| 値 | xlPasteValues | -4163 | |
|---|
| 書式 | xlPasteFormats | -4122 | |
|---|
| コメント | xlPasteComments | -4144 | |
|---|
| 入力規則 | xlPasteValidation | 6 | EXCEL2002～ |
|---|
| 罫線を除く全て | xlPasteAllExceptBorders | 7 | |
|---|
| 列幅 | xlPasteColumnWidths | 8 | EXCEL2002～ |
|---|
| 数式と数値の書式 | xlPasteFormulasAndNumberFormats | 11 | EXCEL2002～ |
|---|
| 値と数値の書式 | xlPasteValuesAndNumberFormats | 12 | EXCEL2002～ |
|---|
サンプルプログラム
Range("A1:A5").Copy
Range("B1:B5").PasteSpecial
Range("A1:A5").Copy
Range("B1:B5").PasteSpecial Paste:=xlPasteValues
Range("A1:A5").Copy
Range("B1:B5").PasteSpecial Paste:=xlPasteAllExceptBorders
