怎么删除excel单元格中的公式
Sub 操作公式单元格()
Set arr = Application。InputBox("请使用鼠标选择需要删除公式的单元格区域：", , , , , , , 8)
For Each rng In arr
If rng。 HasFormula = True Then
rng。Copy
rng。PasteSpecial Paste:=xlValues
End If
Next rng
End Sub
操作说明：
1。 在需要删除公式的工作表标签上右击，点“查看代码”，然后将以上代码复制到右边的代码窗口中，关闭代码窗口回到工作表中。
2。在工作表中点“视图/工具栏/窗体/按钮”，在工作表中...全部
Sub 操作公式单元格()
Set arr = Application。InputBox("请使用鼠标选择需要删除公式的单元格区域：", , , , , , , 8)
For Each rng In arr
If rng。
HasFormula = True Then
rng。Copy
rng。PasteSpecial Paste:=xlValues
End If
Next rng
End Sub
操作说明：
1。
在需要删除公式的工作表标签上右击，点“查看代码”，然后将以上代码复制到右边的代码窗口中，关闭代码窗口回到工作表中。
2。在工作表中点“视图/工具栏/窗体/按钮”，在工作表中适当位置按住鼠标左键上下左右拖动后松开左键，会弹出“指定宏”窗口，在“指定宏”窗口中点击宏名“操作公式单元格”后点击“确定”并关闭“窗体”。
3。单击任一单元格使第2步制作的按钮处于非编辑状态后再点击按钮并按照输入框中的提示操作，会自动将所选区域中的公式删除且保留数据。
4。反复操作第3步可达到你想要的效果。
5。如果按说明操作后未出现你想要的效果，说明你还有一件事要做：将宏的“安全性”设置为“中”！。
收起
