快速将整个工作簿的公式转换为数值

Sub FunctionTransValue_Sheets()
    Dim sht As Worksheet
    For Each sht In Worksheets '遍历工作表
        sht.UsedRange.Value = sht.UsedRange.Value
    Next
    MsgBox "ok"
End Sub