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 NextEnd Sub
3、我们定义了两个变量rng和c。其属性为区域变量。同时设置rng值为活动工作薄。
4、接着我们使用逐步循环判断语句for each幼榍嘈酾判断单元格内的数据是否为公式c.HasFormula即是对单元格数据的判断条件。如果是，则取该单元格的公式计算值为该单元格值。
5、我们在工作薄内插入一个按钮，并指定宏。运行一下这个宏，看看结果。在编辑栏里我们可以看到所处的单元格正好是一个公式。
6、点击宏按钮，我们可以看到单元格编辑栏处不再是公式，而是一个确切的数值。
7、先写到这里了，谢谢大家的观看。祝大家生活愉快。小编还有许多其他的经验可以观看，如果无法解决问题可以联系小编进行咨询。看不清楚图片的可以点击放大再看哦。