Question

怎样快速取消EXCEL工作簿里 所有工作表的公式只要值和数字格式。

因为有的时候一个工作簿 的工作表太多了 有时几百个一个一个的复制粘贴 无疑太浪费时间 有没有宏 或者其他办法快速的消除公式 ？别说那些所选 或者全选工作表。 选定了粘贴后的数据 和复制那个是完全一样的。

Answer 1

用宏代码可以一次性完成

Answer 2

Sub Saveasvalue()
'Updateby Extendoffice 20161025
Dim wsh As Worksheet
For Each wsh In ThisWorkbook.Worksheets
wsh.Cells.Copy
wsh.Cells.PasteSpecial xlPasteValues
Next
Application.CutCopyMode = False
End Sub

Answer 3

如果需要删除公式的表格多的话，一般的Excel界面操作是实现不了的，需要借助VBA或是专门应用。以下推荐两种快速方法：

（1）可以使用VBA代码的方法删除，打开VBE，将下列代码贴到新建的宏中，然后执行宏，工作表中的公式就全删除了。

Sub 删除所有工作表公式()

Dim i As Integer

Application.DisplayAlerts = False

For i = Sheets.Count To 1 Step -1

.value=.value

Else

End If 

Next i

ActiveWorkbook.Save

End Sub 

（2）可以使用专门将工作簿公式转为值的应用处理，还可以多个excel工作簿一起操作，很快。

Excel表格格式批量操作应用