構文
Object.Paste(Destination, Link)
Destination・・・【省略可能】貼り付け先のセルを選択
Link・・・・・・【省略可能】リンク貼り付けするかどうか
Link・・・・・・【省略可能】リンク貼り付けするかどうか
引数の内容
引数 | 内容 | 省略可否 | 備考 | |
Destination | 貼付先のセル範囲 | Range(“A1:A10”)等を記載 | 省略可能 | 引数Linkと同時設定不可 |
Link | TRUE | リンク貼り付けする | 省略可能 | 引数Destinationと同時設定不可 |
FALSE | リンク貼り付けしない |
コードサンプル
Public Sub test() '■セル内容が計算式の場合------------------------ '■セルA1に「=B1」を設定してコピー Range("A1").Copy '■セルA5にペースト(結果=B6) ActiveSheet.Paste Destination:=Range("A5") '■セルA10にペースト(結果=$A$1) Range("A10").Select ActiveSheet.Paste Link:=True '■セルA15にペースト(結果=B15) Range("A15").Select ActiveSheet.Paste Link:=False '■セル内容が値の場合------------------------ '■セルA1に「10」を設定してコピー Range("A1").Copy '■セルA5にペースト(結果10) ActiveSheet.Paste Destination:=Range("A5") '■セルA10にペースト(結果=$A$1) Range("A10").Select ActiveSheet.Paste Link:=True '■セルA15にペースト(結果=10) Range("A15").Select ActiveSheet.Paste Link:=False End Sub
使い方例
私はあまりこのメソッドは使用しません。
Pasteメソッドと聞くとPasteSpecialメソッドよりメインの処理かと思いますが、使い勝手が悪いです。
是非ともPasteSpecialメソッドをお使いください。
Pasteメソッドを使わない理由
ObjectがWorksheetオブジェクトである為使いにくい。(エラーが出やすい)
'■WorksheetではなくRangeを指定する為エラー Range("A10").Paste Link:=True '→実行時エラー 438 オブジェクトは、このプロパティまたはメソッドをサポートしていません。 ’■クリップボードが空の場合エラー Range("A1").Copy Application.CutCopyMode = False ActiveSheet.Paste Destination:=Range("A5") '→実行時エラー 1004 WorkSheetクラスのPasteメソッドが失敗しました。
コメント
pastespecialメソッドのリンク先がpasteになってます。修正いただけると助かります。
に更新しました。ありがとうございます。