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

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