在单元格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)
答案 0 :(得分:2)
如果您对VBA不熟悉EVALUATE
和INDIRECT
- 您可以使用此功能:
x = Range(Range("A2").Value & Range("B2").Value).Value
您也可以使用Cells(row, column)
语法在单元格之间循环。
答案 1 :(得分:1)
尝试以下公式:=INDIRECT(A2&B2)
答案 2 :(得分:0)
使用间接公式。对于您的示例,= indirect(A2& B2)将为您提供F4中的值。
Here's a nice write-up你可以用间接做什么。