指向一个单元格，其中单元名称由两个不同单元格的内容组成

在单元格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)

来源

2013-02-14 user2069033

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

来源

2013-02-14 16:45:00

采用间接式。举个例子，= indirect（A2 & B2）会给你F4的值。

Here's a nice write-up你可以用间接方式做什么。

来源

2013-02-14 16:45:19 uptownnickbrown

嗨...如果我有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

如果你不熟悉的EVALUATE和INDIRECT的VBA - 你可以使用这个：

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

您也可以使用Cells(row, column)语法循环细胞之间。

来源

2013-02-14 17:38:39

请检查以下问题：“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

指向一个单元格，其中单元名称由两个不同单元格的内容组成

回答

相关问题