如何在VBA中使用等号结合单元格地址创建动态单元格链接？

需求与问题 #

要编写VBA代码完成：

• 让用户选择一个零件编号，在Sheet2中找到对应单元格
• 将该单元格右侧相邻单元格的值，以动态链接形式插入到用户指定的单元格（原单元格修改时，目标单元格自动同步，和手动输入=$A$1的效果一致）

遇到的问题：

• 尝试MyRange = "=" & RangeFound时报错
• 设置单元格为文本格式后，仅显示=$A$1文本，无法创建有效链接
• 当前代码仅返回单元格地址，无法生成动态链接

修改后的代码 #

Sub AutoPaste4()
    Dim rng As Range
    Dim rngFound As Range
    Dim rngGiven As Range
    
    Set rngGiven = Application.InputBox("Select a part number", "Obtain Range Object", Type:=8)
   
    ' 优化Find方法参数，确保精准匹配
    Set rngFound = Worksheets("sheet2").Cells.Find( _
        What:=rngGiven.Value, _
        LookIn:=xlValues, _
        LookAt:=xlWhole, _
        MatchCase:=False)
        
    If rngFound Is Nothing Then
        MsgBox "未找到匹配的零件编号", vbExclamation
        Exit Sub
    End If
    
    Set rng = Application.InputBox("Select where to paste number", "Obtain Range Object", Type:=8)
    
    ' 生成A1格式的绝对引用公式，实现动态链接
    rng.Formula = "=" & rngFound.Offset(, 1).Address( _
        ReferenceStyle:=xlA1, _
        RowAbsolute:=True, _
        ColumnAbsolute:=True)
End Sub

关键说明 #

1. 原代码问题：直接将单元格地址赋值给FormulaR1C1，但FormulaR1C1要求R1C1格式的公式（如=Sheet2!R5C2），而非A1格式的地址（如$B$5），所以无法识别为动态链接。
2. 正确写法：
   • 使用Formula属性配合Address方法，指定生成A1格式的绝对引用地址，赋值后目标单元格会生成类似=$B$5的公式，实现同步更新。
   • 如果偏好R1C1格式，可替换为：rng.FormulaR1C1 = "=Sheet2!R" & rngFound.Offset(,1).Row & "C" & rngFound.Offset(,1).Column
3. 额外优化：
   • 给Find方法补充参数，避免默认规则导致的模糊匹配；
   • 未找到匹配项时弹出提示并退出子程序，替代直接终止程序的End语句，提升使用体验。

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