HOME > 即効テクニック > Excel VBA > セル操作関連のテクニック > 同じブックにある別シートのセルの値をリンク貼り付けする

即効テクニック

セル操作関連のテクニック

同じブックにある別シートのセルの値をリンク貼り付けする

(Excel 97)
別シートのセルの値をリンク貼り付けするには、参照先のシート名と、Addressプロパティなどを利用して行番号と列番号を取得し、それらを組み合わせて参照先のアドレスを表す文字列をセルに入力します。
サンプルマクロでは、シート「Sheet1」の選択された範囲のセルの値を、シート「Sheet2」の特定のセルにリンク貼り付けしています。
シート「Sheet1」のA列の1〜10行に値を入力して、サンプルマクロを実行してください。
Sub Sample()
    Dim my_cell
    Dim i

    Worksheets("Sheet1").Activate
    Range("A1:A10").Select
    
    i = 1
    
    For Each my_cell In Selection
        Worksheets("Sheet2").Cells(i, 1).Value = "=Sheet1!" & my_cell.Address
        i = i + 1
    Next my_cell

End Sub