把所有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
内容全部来源于网络收集，如有侵权，请联系网站删除：QQ：24596024