使用VBA清除excel表内所有公式

Sub RemoveFormulas()
    Dim ws As Worksheet
    Dim cell As Range
    
    ' 循环遍历所有工作表
    For Each ws In ThisWorkbook.Worksheets
        ' 禁用屏幕刷新和事件处理
        Application.ScreenUpdating = False
        Application.EnableEvents = False
        
        ' 使用数值替换公式
        ws.UsedRange.Value = ws.UsedRange.Value
        
        ' 恢复屏幕刷新和事件处理
        Application.ScreenUpdating = True
        Application.EnableEvents = True
    Next ws
End Sub