使用VBA将工作簿中所有的数据转换成值

标签：VBA

通常，工作簿中会包含很多工作表，而工作表中的数据有些是单纯的数值，而有些是公式的结果。如果我们想要将工作簿中所有的数据都转换为值，也就是说，公式转换为其结果值，如何快速实现呢？

可以使用VBA遍历工作表来解决，代码很简单，如下：

Sub ConvertDatatoVal() Dim wks As Worksheet For Each wks In Sheets

wks.UsedRange.Copy

wks.UsedRange.PasteSpecial xlPasteValues Next wks

Application.CutCopyMode = 0

End Sub

For Each循环遍历工作簿中的所有工作表，复制工作表中已使用的区域，然后在同样的区域粘贴值。

这个过程运行得相当快，它将清理文件数据。因此，如果原版本的数据还有用，则需要确保将文件保存一份备份，以防运行程序后不能还原。

有时候，一段小小的代码可以解决一些需要花时间的重复繁琐的操作。因此，建议大家有空闲可以多了解了解VBA，以备不时之需。