| 楼主 chrisfang |
Q：如何快速实现公式转换为数值? A：使用【复制】→【选择性粘贴】→【数值】的方法可以快速的将选定区域中的单元格公式转换为数值形式（即公式结果），但对于非连续单元格的情况来说，这样直接操作变得不太可行。鉴于这种情况，可以使用VBA的方法来快速实现任意选定区域的公式→数值的转化。 可在工作簿工程中插入模块，在模块中加入以下宏代码：
在工作簿中为此宏程序设定快捷键，例如<Ctrl+Shift+H>，即可在选定任意区域时，按下快捷键迅速实现转换。  公式转换为数值.rar |
| 2楼 monvzhilei |
不知道有没有选择任意单元格内容。 可以复制到 任意 不连续区域的代码？ |
| 3楼 quietning |
感谢楼主！非常有用 |
| 4楼 zhanghi |
感谢分享 |
| 5楼 wqfzqgk |
如果公式多了话，循环起来是比较慢的，不如用copy Cells.Copy Range("a1").PasteSpecial xlPasteValues |
| 6楼 wqfzqgk |
For Each Rng In Selection.SpecialCells(xlCellTypeFormulas) Rng.Value = [Rng] Next |
| 7楼 yixiantian |
感谢方版，就是有两个问题，一是，似乎运行速度有些慢；二是若一个文件中，有多个工作表需要作此处理，需要每张表都要重复运行宏，有没有办法能一次性处理一个文件中多个工作表呢？ |