指向由数组元素表示的单元格的宏

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