クリップボードの値を貼り付けるメソッド一覧
| メソッド | 内容 |
|---|---|
| Paste【ﾍﾟｰｽﾄ】 | クリップボードに保管された値を 指定の場所に貼り付けます。 |
| PasteSpecial【ﾍﾟｰｽﾄｽﾍﾟｼｬﾙ】 | クリップボードに保管されたデータを 指定の場所に内容を指定して貼り付けます。 |
Paste【ﾍﾟｰｽﾄ】メソッド
Paste【ﾍﾟｰｽﾄ】メソッドは、Worksheet【ﾜｰｸｼｰﾄ】オブジェクトのメンバーです。Range【ﾚﾝｼﾞ】オブジェクトには、Paste【ﾍﾟｰｽﾄ】メソッドはありません。例えば、「Range(“A1”).Paste」とするとエラーになります。Range【ﾚﾝｼﾞ】オブジェクトを使用する場合は、PasteSpecial【ﾍﾟｰｽﾄｽﾍﾟｼｬﾙ】メソッドを使用します。
Paste【ﾍﾟｰｽﾄ】メソッドの書式と設定値(引数)の説明
[]内は省略可能です。
オブジェクト.past[(Destination,Link)]
- オブジェクト（必須）
Worksheetオブジェクトを指定します。 - Destination【ﾃﾞｽﾃｨﾈｰｼｮﾝ】（省略可）
貼り付け先のセルを指定します。省略した場合は、現在の選択範囲に貼り付けられます。このコードの前に、貼り付けたいセルをActivate【ｱｸﾃｨﾍﾞｰﾄ】メソッドでアクティブ状態にすれば希望の場所に貼り付けることができます。この引数を指定した場合は引数Linkの指定はできません。 - Link【ﾘﾝｸ】（省略可）
Trueを指定した場合は、貼り付けたデータと元データをリンクします。省略した場合はリンクしません。この引数を指定した場合は引数Destinationの指定はできないのであらかじめ貼付け先のセルを選択しておく必要があります。
A1セルから始まる表範囲をA5セルにリンクで貼り付けるコード例
Sub 貼り付け()
With ActiveSheet
.Range("A1").CurrentRegion.Copy
.Range("A5").Activate
.Paste link:=True
End With
Application.CutCopyMode = False
End Sub
※ApplicationオブジェクトのCutCopyMode【ｶｯﾄｺﾋﾟｰﾓｰﾄﾞ】プロパティの値をFalseにすることにより、コピー元のセル範囲の点滅（コピーモード）を解除することができます。コピーモード（点滅）状態では、続けて別のセル範囲にコピー元の値を貼り付けることができます。
※Copy【ｺﾋﾟｰ】メソッドについてはこちらをご覧下さい。
実行結果
PasteSpecial【ﾍﾟｰｽﾄｽﾍﾟｼｬﾙ】メソッド
指定したセル範囲に内容を指定してクリップボードに保管されたデータを貼り付けるには、Range【ﾚﾝｼﾞ】オブジェクトのPasteSpecial【ﾍﾟｰｽﾄｽﾍﾟｼｬﾙ】メソッドを使用します。
PasteSpecial【ﾍﾟｰｽﾄｽﾍﾟｼｬﾙ】メソッドの書式と設定値(引数)の説明
[]内は省略可能です。
オブジェクト.PasteSpecial[(Paste,Operation,SkipBlanks,Transpose)]
- オブジェクト（必須）
貼り付ける基準のセルをRangeオブジェクトを指定します。 - Paste【ﾍﾟｰｽﾄ】（省略可）
貼り付ける内容をxlPasteType列挙型の定数で指定します。
| 定数 | 内容 |
|---|---|
| xlPasteAll (既定値) | すべてのオブジェクトを貼り付けます。 |
| xlPasteAllExceptBorders | 罫線を除くすべてのオブジェクトを貼り付けます。 |
| xlPasteColumnWidths | 貼付元のセルの列幅を貼付先のセルに適用します。 |
| xlPasteComments | コメントを貼り付けます。 |
| xlPasteFormats | 書式を貼り付けます。 |
| xlPasteFormulas | 数式を貼り付けます。 |
| xlPasteFormulasAndNumberFormats | 数式と数値書式を貼り付けます。 |
| xlPasteValidation | 貼付元セルの入力規則を貼付先セルに適用します。 |
| xlPasteValues | 値だけを貼り付けます。 |
| xlPasteValuesAndNumberFormats | 数値書式だけを貼り付けます。 |
- Operation【ｵﾍﾟﾚｰｼｮﾝ】（省略可）
貼り付ける際の演算内容をxlPasteSpecialOperation列挙型の定数で指定します。
| 定数 | 内容 |
|---|---|
| xlPasteSpecialOperationNone (既定値) | 演算を行わない |
| xlPasteSpecialOperationAdd | 加算 |
| xlPasteSpecialOperationSubtract | 減算 |
| xlPasteSpecialOperationMultiply | 乗算 |
| xlPasteSpecialOperationDivide | 除算 |
- SkipBlanks【ｽｷｯﾌﾟﾌﾞﾗﾝｸｽ】（省略可）
Trueを指定した場合、空白セルを貼付けの対象にしません。省略した場合は空白セルも貼付けの対象になります。 - Transpose【ﾄﾗﾝｽﾎﾟｰｽﾞ】（省略可）
Trueを指定した場合、行と列を入れ替えて貼り付けます。省略した場合は入れ替えません。
A1セルから始まる表範囲をA5セルに値のみで貼り付けるコード例
Sub 貼り付け2()
Range("A1").CurrentRegion.Copy
Range("A5").PasteSpecial
Application.CutCopyMode = False
End Sub
実行結果
以上で、値を貼り付ける Paste【ﾍﾟｰｽﾄ】メソッド PasteSpecial【ﾍﾟｰｽﾄｽﾍﾟｼｬﾙ】メソッドについての解説を終了します。ありがとうございました。