Question

excel 如何用宏清除单元格数值，而又保留该单元格公式呢？

比如，A1 B1 C1 D1，其中，C1=A1*B1，用单元格函数实现了D1等于C1的累加。我设置了一个按钮，当点击该按钮时，如何清除A1 B1 C1 D1的数值，但是保留C1 D1的公式?
只求用宏实现清除数据保留公式，谢谢！

Answer 1

最简单的办法是 选中需要保存的单元格， 复制，选择性粘贴，数值，确定。

按快捷键操作，选中单元格后，Ctrl+C, ALT+E,S,V, 回车

Answer 2

QQ回答了，按钮代码如下

Private Sub CommandButton1_Click()
With Range("f2")
.Value = 0
.Formula = "=IF(CELL(""address"")=""$C$2"",C2+F2,F2)"
End With
End Sub

Answer 3

就是清除A1和B1的数值就可以了：
Sub 清除数值()
Range("A1") = ""
Range("B1") = ""
End Sub

追问

这些我知道，但是我想问的是如何清除D1的数值，而保留D1的函数公式，D1的公式是if（cell（"address"）= "c1",d1+c1,d1),当我计算之后D1从C1得到了一个累加数值，比如100，然后我点控件按钮，清除D1的100这个数值，但是仍然保留D1的公式，这样我下次就可以继续使用了。

Answer 4

[C1] = "=A1*B1"
如用函数，加上application.

Answer 5

Range("A1:D1").ClearContents