在使用Excel时,如果经常需要将某些区域中的公式结果转换为数值,可以使用下面的VBA代码,并将其指定一个快捷键。这样,用快捷键就可以快速将某些区域中的公式结果转换为数值。方法如下:
??? 1.按Alt+F11,打开VBA编辑器,单击菜单“插入→模块”。
??? 2.在右侧的代码窗口中输入下列VBA代码:
??? Sub MakeValues()
??? Dim Rng As Range
??? Application.ScreenUpdating = False
??? Application.Calculation = xlCalculationManual
??? For Each Rng In Selection
??? Rng.Value = Rng.Value
??? Next Rng
??? Application.ScreenUpdating = True
??? Application.Calculation = xlCalculationAutomatic
??? End Sub
??? 3.关闭VBA编辑器,返回到Excel工作表界面。
??? 4.按快捷键Alt+F8,打开“宏”对话框。选择“MakeValues”宏命令,点击“选项”按钮。
???
??? 在弹出的“宏选项”对话框中,为该宏指定一个快捷键,如“Ctrl+E”。
???
??? 单击“确定”按钮,关闭“宏”对话框。
??? 以后,无论在该工作簿的哪个工作表中,如果需要将某些区域中的公式结果转换为数值,只需按快捷键“Ctrl+E”即可。其方便之处是使用了快捷键,较为快捷,另外还可以一次选区多个不连续的区域进行转换,而用选择性粘贴为数值的方法无法实现这一点。但其不足之处是运行宏代码后,撤消列表中的内容将被清空,因而无法撤消与恢复。
……