excel - 配列要素で表されるセルを指すマクロ

Question

エクセルシートに2列あります。たとえば、最初の列には他のセルアドレスがあります。列Aの内容はF1、F2、F3、F4、およびF5です。2番目の列にも他のセルアドレスがあります。たとえば、列Bにはx1、X13、X17、X72の内容があります。

ここで、最初に列に記載されているセルの内容をコピーできるマクロ（F1 ... F5の内容をコピーしたい）を列2に記載されているセルにコピーできるマクロが必要です。

助けてください

Answer 1

列Aの各セルに単一のセルアドレスのみが含まれていると仮定します。

Sub TransferValues()

Dim rngA As Range
Dim rngB As Range
Dim srcAddress As Range
Dim destAddress As Range
Dim r As Long   'row iterator

Set rngA = Range("A2", Range("A2").End(xlDown))
Set rngB = rngA.Offset(0, 1)

For r = 1 To rngA.Rows.Count
    Set srcAddress = Range(rngA(r).Value)
    Set destAddress = Range(rngB(r).Value)
    destAddress.Value = srcAddress.Value
Next

End Sub