Excel VBA小程序-如何快速将整个工作簿的公式转换为数值

根据操作范围，这可以分为三种情况。

❶多工作表公式转数值

❷多工作簿公式转数值

1、多工作表公式转数值

如果是将当前工作簿所有工作表的公式转换为数值，需要使用到VBA代码。

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

2、多工作簿公式转数值

复制运行以下代码即可▼

Sub FunctionTransValue_Workbooks