怎样使用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、行程序时将弹出选择区域的窗口，此时可以手工输入待转换的区域，也可以用鼠标选择区域