没问题，这需求用Excel的VBA工作表事件就能完美解决，我给你写好代码并拆解关键点，你照着做就行：

实现步骤 #

1. 打开VBA编辑器：按Alt+F11快捷键，或者右键点击Sheet1的标签（底部的“Sheet1”），选择「查看代码」。
2. 粘贴事件代码：在弹出的代码窗口里，确保左侧选中的是Sheet1，然后把下面的代码粘贴进去：

Private Sub Worksheet_Change(ByVal Target As Range)
    ' 只响应A5单元格的内容变化
    If Not Intersect(Target, Me.Range("A5")) Is Nothing Then
        Dim targetAddress As String
        Dim destCell As Range
        
        ' 关闭事件触发，避免复制操作再次触发Change事件
        Application.EnableEvents = False
        
        On Error Resume Next ' 捕获目标地址无效的异常
        targetAddress = Me.Range("A1").Value
        ' 尝试获取Sheet2中的目标单元格
        Set destCell = ThisWorkbook.Sheets("Sheet2").Range(targetAddress)
        
        If Err.Number = 0 And Not destCell Is Nothing Then
            ' 仅复制单元格值（不带格式/公式，满足Sheet2无公式要求）
            destCell.Value = Me.Range("A5").Value
        Else
            MsgBox "Sheet1的A1中指定的单元格地址无效，请检查！", vbExclamation
        End If
        
        ' 恢复事件触发
        Application.EnableEvents = True
        On Error GoTo 0 ' 重置错误处理机制
    End If
End Sub

代码关键点解释 #

• Worksheet_Change事件：这是Sheet1的专属触发事件，只有当Sheet1内的单元格内容变化时才会运行。我们用Intersect精准判断是否是A5的变化，避免无关操作触发代码。
• Application.EnableEvents = False：必须加这行！因为复制值到Sheet2时，可能会触发额外的Change事件，导致代码重复执行甚至崩溃，操作完成后再恢复事件触发即可。
• 错误处理：万一Sheet1的A1里写了无效地址（比如乱码、不存在的单元格），代码会弹出提示，不会直接报错卡死。
• 纯值复制：用destCell.Value = ...的方式，只会把A5的文本/数值复制过去，完全不会带入公式或格式，完美符合你“Sheet2不能有公式”的要求。

注意事项 #

• 保存工作簿时，要选择「Excel启用宏的工作簿（*.xlsm）」格式，否则宏会丢失。
• 打开工作簿时，若弹出安全提示，记得选择「启用内容」才能让宏生效。
• 测试时可以先在Sheet1的A1输入$C$4，修改A5的值看看Sheet2的C4是否同步更新；再把A1改成$E$10，重新修改A5验证动态目标是否正常工作。

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