指向由數組元素表示的單元格的宏

Question

我在Excel工作表中有2列。例如 第一列有一些其他單元格地址 - 列A有內容F1，F2，F3，F4和F5。 第二列也有一些其他單元格地址 - 列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