vba excel整表数值化

Sub ConvertSheetToValues()
    Dim ws As Worksheet
    Dim rng As Range
    
    ' 关闭屏幕更新以加快宏的执行速度
    Application.ScreenUpdating = False
    
    ' 遍历所有工作表
    For Each ws In ThisWorkbook.Worksheets
        ' 获取工作表的使用区域
        Set rng = ws.UsedRange
        
        ' 复制使用区域
        rng.Copy
        
        ' 选择性粘贴数值
        rng.PasteSpecial Paste:=xlPasteValues
        
        ' 清除剪贴板
        Application.CutCopyMode = False
    Next ws
    
    ' 恢复屏幕更新
    Application.ScreenUpdating = True
    
    MsgBox "All sheets have been converted to values.", vbInformation
End Sub