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

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

1 个答案: