【Excel VBA】リンク貼り付けで別シートのセルを参照する

同じシートでのリンク貼り付けはありましたが、
シート間を跨いだときにどのような書き方になるのか、覚えておきたかったのでメモ。

目次

別シートからリンク貼り付け

以下のようになります。

    '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
よかったらシェアしてね!
  • URLをコピーしました!
  • URLをコピーしました!

この記事を書いた人

目次