怎样使用VBA将选区公式转换成数值?

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

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

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

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

Sub 公式转为值()

  Dim Rng As Range            '声明变量
  Set Rng=Application.InputBox("请选取公式单元格区域", "转换为数值", "a1",
      Type:=8) '选择区域
  If Rng Is Nothing Then Exit Sub '若点击取消则退出程序
  Rng=Rng.Value               '公式转为值
End Sub

5、行程序时将弹出选择区域的窗口，此时可以手工输入待转换的区域，也可以用鼠标选择区域