怎么样在多个excel中批量删除公式（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