指向一个单元格,其中单元名称由两个不同单元格的内容组成
在单元格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)
试试这个公式:=INDIRECT(A2&B2)
如果你不熟悉的EVALUATE
和INDIRECT
的VBA - 你可以使用这个:
x = Range(Range("A2").Value & Range("B2").Value).Value
您也可以使用Cells(row, column)
语法循环细胞之间。
请检查以下问题:“http://stackoverflow.com/questions/14871178/macro-to-map-1-row-multiple-colum-sets-to-another-same-set” – user2069033 2013-02-14 17:55:11
我收到对象错误以下------------------------------------------ Set srcAddress = Range(rngA( r)。值和范围(“H2”)。值)。值 – user2069033 2013-02-14 18:06:58
@ user2069033请通过编辑问题来共享代码的至少相关部分 – 2013-02-14 18:08:30
嗨...如果我有A2:A96和B2:B96,那么混合僵尸细胞和指向相应细胞的方式是如何的。当我在我的代码中间接使用时显示错误“Sub or Function not defined”。 – user2069033 2013-02-14 17:28:58
@ user2069033使用'评估'VBA函数来计算Excel工作表公式。 – 2013-02-14 17:31:21