vba 批量的清除多个excel文件中的公式

你可以使用VBA编写一个宏来批量清除多个Excel文件中的公式。以下是一个示例代码：

Sub ClearFormulasInMultipleFiles()
    Dim FolderPath As String
    Dim FileName As String
    Dim wb As Workbook
    
    ' 设置文件夹路径
    FolderPath = "C:\YourFolderPath\"
    
    ' 获取文件夹中的所有文件名
    FileName = Dir(FolderPath & "*.xlsx")
    
    ' 循环处理每个文件
    Do While FileName <> ""
        ' 打开文件
        Set wb = Workbooks.Open(FolderPath & FileName)
        
        ' 清除所有工作表中的公式
        Dim ws As Worksheet
        For Each ws In wb.Worksheets
            ws.UsedRange.Formula = ""
        Next ws
        
        ' 保存并关闭文件
        wb.Close SaveChanges:=True
        
        ' 获取下一个文件名
        FileName = Dir
    Loop
    
    MsgBox "公式已成功清除."
End Sub

请将代码中的 "C:\YourFolderPath\" 替换为你想要处理的文件夹路径。这段代码将打开指定文件夹中的所有xlsx文件，然后清除每个工作表中的公式，最后保存并关闭文件。在处理完所有文件后，会显示一个消息框确认操作完成。

请注意，在运行宏之前，请确保你已经备份了你的文件，以免数据丢失或不可恢复的修改。