同じシートでのリンク貼り付けはありましたが、
シート間を跨いだときにどのような書き方になるのか、覚えておきたかったのでメモ。
目次
別シートからリンク貼り付け
以下のようになります。
'1番目のワークシートを「Sht_1」と指定
Dim Sht1 As Worksheet: Set Sht1 = Worksheets(1)
'2番目のワークシートを「Sht_base」と指定
Dim Sht_base As Worksheet: Set Sht_base = Worksheets(2)
'指定シートで処理
With Sht1
'「Sht_base」のセル「D1」をコピー
Sht_base.Range("D1").Copy
'コピーしたものを「Sht_1」のセル「D1」にペースト。そのときに、リンクペーストをする
Application.Goto .Range("D1")
.Paste Link:=True
End With別シートから複数セルをリンク貼り付け
複数セルをリンク貼り付けしたいときには、以下のようになります。
'1番目のワークシートを「Sht_1」と指定
Dim Sht1 As Worksheet: Set Sht1 = Worksheets(1)
'2番目のワークシートを「Sht_base」と指定
Dim Sht_base As Worksheet: Set Sht_base = Worksheets(2)
'指定シートで処理
With Sht1
'「Sht_base」のセル「D1:E5」をコピー
Sht_base.Range("D1:E5").Copy
'コピーしたものを「Sht_1」のセル「D1:E5」にペースト。そのときに、リンクペーストをする
Application.Goto .Range("D1:E5")
.Paste Link:=True
End With