整合了一下网上的内容，excel工作簿全部公式转换为值

最新推荐文章于 2022-10-31 15:37:07 发布

月清晖

最新推荐文章于 2022-10-31 15:37:07 发布

阅读量299

点赞数

分类专栏：办公技巧

本文链接：https://blog.csdn.net/impish0/article/details/118088066

版权

办公技巧专栏收录该内容

22 篇文章 1 订阅

订阅专栏

这是一个VBA宏代码示例，用于遍历Excel工作表中的所有单元格，将含有公式的单元格内容转换为其计算结果。代码首先定义变量，然后通过For Each循环遍历每个工作表和每个单元格，如果单元格包含公式，则将其值设置为自身，即计算公式的结果。完成后，会打印当前工作表的名字。

摘要由CSDN通过智能技术生成

注意：故意留了1~2处错误，一看便知

'放到模块里
Sub 公式转为值()

    Dim rng As Range, c As Range
    Dim Sht As Worksheet
    For Each Sht In Worksheets
    With Sht
    
    Set rng = acticesheet.Range("A1").CurrentRegion

    For Each c In rng.Cells

        If c.HasFormula Then

            c.Value = c.Value

        End If

    Next
    End With
    Debug.Print Sht.Name
    Next

End Sub