如何在VBA中调用Excel工作表公式返回的单元格引用？

你可以直接读取单元格A1的返回值，将其作为Range对象的参数来引用目标单元格，具体实现代码如下：

Sub SetTargetCellValue()
    ' 获取A1单元格公式返回的地址文本
    Dim targetAddress As String
    targetAddress = Range("A1").Value
    
    ' 引用该地址对应的单元格并设置值为0
    Range(targetAddress).Value = 0
End Sub

补充说明 #

• 要确保A1的公式返回有效的单元格地址文本（比如"B2"、"Sheet2!C3"这类格式），如果地址包含工作表名称，代码也能正常识别引用。
• 如果担心A1可能返回无效地址，可以添加错误处理避免宏报错：

Sub SetTargetCellValueWithErrorHandling()
    Dim targetAddress As String
    targetAddress = Range("A1").Value
    
    On Error Resume Next ' 开启错误捕获
    Range(targetAddress).Value = 0
    If Err.Number <> 0 Then
        MsgBox "A1返回的地址无效，请检查公式！"
    End If
    On Error GoTo 0 ' 关闭错误捕获
End Sub

内容的提问来源于stack exchange，提问作者Omar