工作需要去除表格公式,只保留数值,通常用的“选择性粘贴”比较麻烦,所以写了如下VBA程序(EXCEL宏文件),一键去除工作薄中所有表格内公式,只保留数值,程序代码如下:
Sub call1()
Dim i As Long
Dim x As Long
x = Worksheets.Count
For i = 3 To x
Sheets(i).Select
Cells.Select
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
Next
MsgBox "公式去除完毕,只保留数值"
End Sub
本文出自 “旅游人生” 博客,谢绝转载!
去除EXCEL表格公式,只保留数值,布布扣,bubuko.com
原文地址:http://felixgzf.blog.51cto.com/4108324/1533638