首页 > 代码库 > VBS 移除excel数据公式,只保留值

VBS 移除excel数据公式,只保留值

如果将excel数据公式移除,只保留计算之后的值,将大大减少excel文件.

因为有上篇移除excel外部数据链接的经验,进行excel数据公式移除将快的多,方法如下.

首先我们得明白怎么手动移除excel的格式.

选中要处理的数据,然后右击 copy, 再右击paste Special,然后出现如下图的提示框.选中 Values. 此时要处理的数据将只以值呈现,格已去掉.

然后通过宏录制,来查看用的什么函数,发现VBA用PasteSpecial来处理. 接下来在搜索VBA函数. 内容如下:

应用于 Range对象的 PasteSpecial方法。

将剪贴板中的 Range对象粘贴到指定区域中。

expression.PasteSpecial(Paste, Operation, SkipBlanks, Transpose)

expression   必需。该表达式返回一个 Range对象。

Paste  XlPasteType 类型,可选。指定要粘贴的区域部分。

XlPasteType 可为以下 XlPasteType 常量之一。
xlPasteAll 默认值
xlPasteAllExceptBorders
xlPasteColumnWidths
xlPasteComments
xlPasteFormats
xlPasteFormulas
xlPasteFormulasAndNumberFormats
xlPasteValidation
xlPasteValues
xlPasteValuesAndNumberFormats

Operation  XlPasteSpecialOperation 类型,可选。指定粘贴操作。

XlPasteSpecialOperation 可为以下 XlPasteSpecialOperation 常量之一。
xlPasteSpecialOperationAdd
xlPasteSpecialOperationDivide
xlPasteSpecialOperationMultiply
xlPasteSpecialOperationNone 默认值
xlPasteSpecialOperationSubtract

SkipBlanks   Variant 类型,可选。若为 True,则不将剪贴板上区域中的空白单元格粘贴到目标区域中。默认值为 False。

Transpose   Variant 类型,可选。若为 True,则粘贴区域时转置行和列。默认值为 False。

应用于 Worksheet对象的 PasteSpecial方法。

以指定格式将剪贴板中的内容粘贴到工作表上。可用本方法从其他应用程序中粘贴数据,或以特定格式粘贴数据。

expression.PasteSpecial(Format, Link, DisplayAsIcon, IconFileName, IconIndex, IconLabel, NoHTMLFormatting)

expression   必需。该表达式返回一个 Worksheet对象。

Format   Variant 类型,可选。指定数据的剪贴板格式的字符串。

Link   Variant 类型,可选。若为 True,则建立与被粘贴数据的源之间的链接。如果源数据不适于链接,或源应用程序不支持链接,将忽略本参数。默认值为 False。

DisplayAsIcon   Variant 类型,可选。若为 True,则将粘贴内容显示为图标。默认值为 False。

IconFileName   Variant 类型,可选。如果 DisplayAsIcon 为 True,则指定包含所用图标的文件名。

IconIndex   Variant 类型,可选。图标文件内的图标索引号。

IconLabel   Variant 类型,可选。图标的文本标签。

NoHTMLFormatting   Variant 类型,可选。若为 True,则从 HTML 中删除所有的格式设置、超链接和图像。若为 False ,则完整粘贴 HTML。默认值为 False。

说明

注意   当 Format = “HTML”时,NoHTMLFormatting 才起作用。在所有其他情况下,NoHTMLFormatting  将被忽略。

必须在使用本方法之前选定目标区域。

本方法可能会更改工作表的选定区域,这取决于剪贴板中的内容。

然后根据此描述应用于 Worksheet对象的 PasteSpecial方法。

以指定格式将剪贴板中的内容粘贴到工作表上。可用本方法从其他应用程序中粘贴数据,或以特定格式粘贴数据。

expression.PasteSpecial(Format, Link, DisplayAsIcon, IconFileName, IconIndex, IconLabel, NoHTMLFormatting)

expression   必需。该表达式返回一个 Worksheet对象。

Format   Variant 类型,可选。指定数据的剪贴板格式的字符串。

Link   Variant 类型,可选。若为 True,则建立与被粘贴数据的源之间的链接。如果源数据不适于链接,或源应用程序不支持链接,将忽略本参数。默认值为 False。

DisplayAsIcon   Variant 类型,可选。若为 True,则将粘贴内容显示为图标。默认值为 False。

IconFileName   Variant 类型,可选。如果 DisplayAsIcon 为 True,则指定包含所用图标的文件名。

IconIndex   Variant 类型,可选。图标文件内的图标索引号。

IconLabel   Variant 类型,可选。图标的文本标签。

NoHTMLFormatting   Variant 类型,可选。若为 True,则从 HTML 中删除所有的格式设置、超链接和图像。若为 False ,则完整粘贴 HTML。默认值为 False。

说明

注意   当 Format = “HTML”时,NoHTMLFormatting 才起作用。在所有其他情况下,NoHTMLFormatting  将被忽略。

必须在使用本方法之前选定目标区域。

本方法可能会更改工作表的选定区域,这取决于剪贴板中的内容。

根据此描述,然后我们找到VBS方法:

如下
Set UseRange1 = objWorkbook.Worksheets(j).UsedRange
     UseRange1.Copy
     UseRange1.PasteSpecial(-4163) ‘-4163代表 xlPasteValues 即只复制值.
至此,针对excel去除外部数据源链接及excel内部公式的方法全部总结结束. 这样处理下来文件大小减少了有1/3.满足了我的需求. 希望对大家有帮助.

 

VBS 移除excel数据公式,只保留值