怎样使用VBA将当前区域公式转换成数值?

1、首先在开发工具中打开VBA编辑器

2、在单元格区域当中输入一些内容作为例子

3、在VBA编辑器中插入模块

4、在模块当中输入如下代码，然后运行

Sub 公式转为值()

    ActiveCell.CurrentRegion.Copy                        '复制
    ActiveCell.CurrentRegion.PasteSpecial Paste:=xlPasteValues '粘贴数值
End Sub

5、用鼠标单击一班成绩区域的任意单元格，然后使用快捷键Alt+F8，运行本程序。确定后，程序将所选择之公式全部转换成数值，