else 用 vba批量去掉多个文件的公式保留原有数据

您可以使用VBA编写一个宏来批量去除多个文件中的公式，保留原有数据。以下是一个示例代码：

Sub RemoveFormulas()
    Dim folderPath As String
    Dim fileName As String
    
    ' 设置文件夹路径
    folderPath = "C:\YourFolderPath\"
    
    ' 获取文件夹中的所有文件
    fileName = Dir(folderPath & "*.xls*")
    
    ' 循环处理每个文件
    Do While fileName <> ""
        ' 打开文件
        Workbooks.Open folderPath & fileName
        
        ' 循环处理每个工作表
        For Each ws In ActiveWorkbook.Worksheets
            ' 禁用计算
            Application.ScreenUpdating = False
            Application.Calculation = xlCalculationManual
            
            ' 将所有单元格的公式替换为值
            ws.UsedRange.Value = ws.UsedRange.Value
            
            ' 启用计算
            Application.ScreenUpdating = True
            Application.Calculation = xlCalculationAutomatic
        Next ws
        
        ' 保存并关闭文件
        ActiveWorkbook.Close SaveChanges:=True
        
        ' 获取下一个文件
        fileName = Dir
    Loop
End Sub

请注意，将 `folderPath` 变量替换为您要处理的文件所在的文件夹路径。此代码将遍历指定文件夹中的所有Excel文件，并将每个工作表中的所有单元格的公式替换为值。最后，保存并关闭每个文件。

在运行宏之前，请确保在Excel中启用了开发人员选项卡，并将宏的安全性设置为允许运行宏。