怎么样在多个excel中批量删除公式

把所有Excel文件放在同一目录中，遍历文件夹中每个工作簿的每个工作表，执行下面过程清除公式，保存。

Sub pt()

     Dim i%

     Dim aa As Variant

     For i = 1 To Sheets.Count

         For Each myrg In Sheets(i).UsedRange

             If myrg.HasFormula Then

                 aa = myrg.Value

                 myrg.Value = aa

             End If

         Next

     Next i

 End Sub

只能同时选中含公式的单元格，按删除键

如果需要删除公式的表格多的话，一般的Excel界面操作是实现不了的，需要借助VBA或是专门应用。以下推荐两种快速方法：

（1）可以使用VBA代码的方法删除，打开VBE，将下列代码贴到新建的宏中，然后执行宏，工作表中的公式就全删除了。

Sub 删除所有工作表公式()

Dim i As Integer

Application.DisplayAlerts = False

For i = Sheets.Count To 1 Step -1

.value=.value

Else

End If 

Next i

ActiveWorkbook.Save

End Sub

（2）可以使用专门将工作簿公式转为值的应用处理，还可以多个excel工作簿一起操作，很快。

应用下载地址