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

Sub FunctionTransValue_Sheets()Dim sht As WorksheetFor Each sht In Worksheets '遍历工作表sht.UsedRange.Value = sht.UsedRange.ValueNextMsgBox "ok"
End Sub