嘿，咱们来解决你的Excel需求问题～首先得明确：Excel单个单元格没法同时存手动输入的原始值和计算后的结果——毕竟输入公式就会覆盖手动值。不过有两种靠谱的方案能实现你的目标：

方案一：辅助列存储原始值（无VBA，简单易维护） #

这是最适合普通用户的非编程方案，不用碰宏，稳得很：

• 新增一列（比如B列）专门用来手动输入你的原始数值（比如B1填100、B2填200、B3填300）
• 在A1单元格输入公式：=B1*$C$1，然后下拉填充到A2、A3（$C$1是绝对引用，保证下拉时不会变成C2、C3）
• 效果：
  • 你在B列输完原始值，A列立刻算出「原始值×C1」的结果
  • 修改C1的数值时，A列所有单元格会自动同步更新
  • 要是想调整结果，直接改B列的原始值就行

方案二：VBA宏实现直接在A列操作（完全贴合你的需求） #

如果你非要在A列直接输入原始值，同时自动计算，那可以用VBA监听单元格的输入和修改事件：

1. 右键点击你的工作表标签（比如「Sheet1」），选择「查看代码」
2. 在弹出的VBA编辑器里粘贴下面的代码：

Private Sub Worksheet_Change(ByVal Target As Range)
    ' 只处理A1-A3的输入操作
    If Not Intersect(Target, Range("A1:A3")) Is Nothing Then
        Application.EnableEvents = False ' 关闭事件触发，避免循环更新
        ' 把原始值存在单元格备注里
        On Error Resume Next ' 忽略备注不存在的错误
        Target.Comment.Delete
        On Error GoTo 0
        Target.AddComment Text:=Target.Value
        ' 计算并更新单元格显示值
        Target.Value = Target.Value * Range("C1").Value
        Application.EnableEvents = True ' 恢复事件触发
    End If
    
    ' 处理C1修改时，同步更新A1-A3
    If Target.Address = "$C$1" Then
        Application.EnableEvents = False
        Dim cell As Range
        For Each cell In Range("A1:A3")
            If Not cell.Comment Is Nothing Then
                ' 从备注取出原始值，重新计算
                cell.Value = cell.Comment.Text * Target.Value
            End If
        Next cell
        Application.EnableEvents = True
    End If
End Sub

3. 代码能帮你做这些：
   • 当你在A1-A3输入数值时，宏会把原始值藏在单元格的备注里，然后自动算出「原始值×C1」显示在单元格
   • 你修改C1的时候，宏会遍历A1-A3，从备注里取出原始值重新计算，所有结果同步更新
   • 想查看原始值？把鼠标悬停在A列单元格上就能看到备注；想修改原始值的话，要么编辑备注后重新触发计算，要么直接重新输入原始值就行

⚠️ 注意事项：

• 用这个方案的话，文件得保存成「.xlsm」格式（启用宏的工作簿），不然宏会失效
• 要是不小心删掉了单元格的备注，对应的原始值就找不回来了，建议定期备份一下原始数据哦

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