0

在单元格 A2 中我有值 F,在 B2 中我有内容“4”,然后是指向 F4 单元格值的宏。我已经编写了以下代码,但它给出了对象错误。请帮忙

Sub TransferValues()

Dim rngA As Range
Dim rngB As Range
Dim srcAddress As Range
Dim destAddress As Range
Dim r As Long   'row iterator
VarW1 = "a.xlsx"
Sht1 = "Sheet1"
Set rngA = Range("H2", Range("H2").End(xlDown))
Set rngB = rngA.Offset(0, 1)

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

End Sub)
4

3 回答 3

2

如果您不熟悉VBA - 您可以使用它EVALUATEINDIRECT

x = Range(Range("A2").Value & Range("B2").Value).Value

您也可以使用Cells(row, column)语法在单元格之间循环。

于 2013-02-14T17:38:39.697 回答
1

试试这个公式:=INDIRECT(A2&B2)

于 2013-02-14T16:45:00.500 回答
0

使用间接公式。对于您的示例, =indirect(A2&B2) 将为您提供 F4 中的值。

这是一篇很好的文章,介绍了您可以使用间接方式做什么。

于 2013-02-14T16:45:19.717 回答