使用VBA程序快速删除单元格中的公式的方法

1、启动Excel 2013并打开需要处理的工作表，E3：F6单元格区域的单元格中存在着公式。在“开发工具”选项卡的“控件”组中单击“插入”按钮，在打开的列表的“表单控件”栏中选择“按钮”控件，如图1所示。

图1　选择“按钮”控件

2、按住左键拖动鼠标在工作表中绘制该控件，此时将打开“指定宏”对话框，在“宏名”文本框中输入宏名后单击“新建”按钮，如图2所示。

图2　设置宏名

(3)打开Visual Basic编辑器并自动创建名为“删除公式”的过程，在代码窗口中输入过程代码，如图3所示。具体的程序代码如下。

图3　输入程序代码

01 Sub 删除公式()

02 Dim Mywb As Workbook,Myws As Worksheet

03 Dim rng As Range,rngA As Range

04 For Each Mywb In Workbooks

05 With Mywb

06 For Each Myws In.Worksheets

07 On Error Resume Next

08 Set rngA=Myws.UsedRange.SpecialCells(xlCellTypeFormulas)

'获取公式单元格区域引用

09 For Each rng In rngA

10 rng.Value=rng.Value'将公式转换成数值

11 Next

12 Next

13 End With

14 Next

15 End Sub

注意

在这里的程序代码中，使用For Each……In结构对每个工作簿的每张工作表进行循环，使用SpecialCells(xlCellType Formulas)语句获取工作表中带有公式的单元格。同样使用For Each……In语句来遍历所有带有公式的单元格，使用rng.Value=rng.Value语句将单元格的值赋予单元格以实现将单元格中的公式转换为具体的数值。

4、切换到Excel工作表，右击按钮，选择快捷菜单中的“编辑文字”命令，然后将按钮上的文字修改为“删除公式”。取消对按钮文字的编辑后单击该按钮运行程序，工作表中的所有公式均被删除，原来带有公式的单元格中只显示了公式的计算结果，如图4所示。

图4　删除单元格中的公式