excel使用vba将公式转换为公式值的方法

1、首先我们打开一个工作样表作为例子。

2、打开vba编辑器，插入一个新的模块，并在模块中输入以下代码：

Sub 公式转为数值()

    Dim rng As Range, c As Range

    Set rng = ActiveSheet.Range("A1").CurrentRegion

    For Each c In rng.Cells

        If c.HasFormula Then

            c.Value = c.Value

        End If

    Next

End Sub

3、我们定义了两个变量rng和c。其属性为区域变量。同时设置rng值为活动工作薄。

4、接着我们使用逐步循环判断语句for each判断单元格内的数据是否为公式c.HasFormula即是对单元格数据的判断条件。如果是，则取该单元格的公式计算值为该单元格值。

5、我们在工作薄内插入一个按钮，并指定宏。运行一下这个宏，看看结果。在编辑栏里我们可以看到所处的单元格正好是一个公式。

6、点击宏按钮，我们可以看到单元格编辑栏处不再是公式，而是一个确切的数值。

7、先写到这里了，谢谢大家的观看。

祝大家生活愉快。

小编还有许多其他的经验可以观看，如果无法解决问题可以联系小编进行咨询。

看不清楚图片的可以点击放大再看哦。