excel单元格 保留公式去除内容

VBA

那是只有VBA可以解决这个问题了。 因为你的要求本身就有矛盾：一个单元格的内容，既是一个预设公式（比如=B1+C1），又要是你输入的一个确切的值（比如 1），这不可能直接做到呀！ 只有在你输入一个值（比如：1或2）之后，由VBA来根据所输入的值再次修改它为所需要的公式。 我写了一个，请参考： Private Sub Worksheet_Change(ByVal Target As Range) If Target.Row() = 1 And Target.Column() = 1 Then If Target.Cells(1, 1).Value = 1 Then Target.Formula = "=B1+C1" ElseIf Target.Cells(1, 1).Value = 2 Then Target.Formula = "=F1+G1" End If End If Target.Cells(1, 1).Select End Sub 按Alt+F11打开宏编辑器，在宏编辑器中打开工程资源管理器，然后在工程资源管理器中找到你需要的excel文件的工作表（比如：Sheet1），双击它之后，将上面代码放到右边空白区域，即可。 有疑问，请Hi我或给我发BAIDu消息 GoodLuck!