即効テクニック |
別シートのセルの値をリンク貼り付けするには、参照先のシート名と、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