如何借助其他工作表存储的单元格地址通过Excel VBA修改目标单元格值

• 现有两个工作表：Reference、Operator
• Reference工作表D2单元格存储文本值为$a$25
• 实现目标：读取Reference表D2中存储的单元格地址，通过Excel VBA修改Operator工作表内对应地址单元格的值

第一种方案错误 #

原代码：

Dim NewRNG as Range
NewRNG = Range(Range("d2").value).value

存在3个核心问题：

• 给Range这类对象类型变量赋值，必须使用Set关键字，直接用等号赋值会触发类型不匹配错误
• 所有Range调用未指定所属工作表，默认读取当前活动工作表的范围，无法保证定位到目标表
• 赋值逻辑错误：将单元格的Value属性直接赋值给Range对象，数据类型完全不匹配

第二种方案错误 #

原代码逻辑本身偏离需求，且存在语法错误：

• 需求是直接读取存储的地址字符串定位单元格，不需要用Find方法遍历A列匹配内容，Find方法是查找单元格值等于目标内容的单元格，和按地址定位的需求完全无关
• 同样存在Range对象赋值未加Set的语法问题
• RNG.Address返回的是字符串类型的地址文本，无法直接赋值给Range类型变量

Sub UpdateOperatorCell()
    Dim targetAddress As String
    Dim targetRng As Range
    
    ' 读取Reference表中存储的目标单元格地址
    targetAddress = ThisWorkbook.Sheets("Reference").Range("D2").Value
    
    ' 显式绑定Operator表中对应地址的单元格
    Set targetRng = ThisWorkbook.Sheets("Operator").Range(targetAddress)
    
    ' 对目标单元格执行修改操作，下方赋值可根据实际需求替换
    targetRng.Value = "需要写入的目标值"
End Sub

补充说明：VBA跨表操作建议显式指定所属工作簿、工作表对象，不要依赖活动工作表默认引用，避免工作表切换时代码执行出错；非必要不建议在VBA代码中使用Select、Activate这类选中操作，直接操作对象即可，代码运行效率更高。

内容的提问来源于stack exchange，提问作者Zauberflöte