如何用公式将输入"Y"的单元格替换为绝对引用单元格J$10？

方法1：VBA工作表事件（直接替换为公式） #

这是最直接的实现方式，输入"Y"后单元格会自动变为=J$10引用：

• 按Alt + F11打开VBA编辑器
• 双击左侧项目窗口中你的成本核算表工作表（比如Sheet1），打开代码编辑区
• 粘贴以下代码：

Private Sub Worksheet_Change(ByVal Target As Range)
    ' 替换成你实际的成本列范围，比如成本列是C到H就写"C:H"
    If Not Intersect(Target, Me.Range("B:Z")) Is Nothing Then
        Application.EnableEvents = False
        If UCase(Target.Value) = "Y" Then
            Target.Formula = "=J$10"
        End If
        Application.EnableEvents = True
    End If
End Sub

• 注意：代码里的B:Z要改成你实际用来填写成本选项的列范围，避免误操作其他单元格。

方法2：数据验证+自定义格式（仅显示成本值，保留输入内容） #

如果不想启用VBA，可以用这种无宏方案：

• 选中目标成本列单元格，点击「数据」→「数据验证」，选择「序列」，来源填Y，确定后只能输入Y
• 选中这些单元格，按Ctrl + 1打开单元格格式设置，切换到「自定义」，在类型框输入：

"Y";"Y";=J$10

• 效果：输入Y后单元格显示J10的标准成本值，但编辑栏仍显示Y，适合需要保留原始标记的场景。

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