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

发布网友 发布时间：2022-03-05 00:36

我来回答

共8个回答

热心网友 时间：2022-03-05 02:05

1、这是带有公式的表格。

2、按住shift键，选中所有的工作表。

3、选中所有工作表后，Ctrl+A全选，然后Ctrl+C复制。

4、复制后，点击鼠标右键，选择粘贴值。

5、选择粘贴值后，就可以把公式去掉，只剩下值了。

热心网友 时间：2022-03-05 03:23

　　快速取消EXCEL工作簿里所有工作表的公式只保留值的方法：

右击任一工作表标签，“选定全部工作表”；

点击全选框选择工作表（此时工作簿中的所有工作表的所有区域都是选中状态），“复制”；

再右击，选择性粘贴--数值，或直接点粘贴选项中的“123”数值按钮，整个工作簿中的公式全部转换为数值。

热心网友 时间：2022-03-05 04:58

在工作表标签上击右键，查看代码。

在VBE窗口中点插入，模块

在模块代码窗口中粘贴以下代码，然后ALT+F8运行该宏，即可

Sub 保留值()
For i = 1 To Sheets.Count  '遍历所有工作表
For j = 1 To 256   '遍历列。若是.xlsx文档,此处的256可改为改为16384
For k = 1 To Cells(65536, j).End(3).Row '遍历行。
                                        '若是.xlsx文档，此处65536可改为1048576
If Sheets(i).Cells(k, j) <> "" Then
Sheets(i).Cells(k, j) = Sheets(i).Cells(k, j)
End If
Next k
Next j
Next i
End Sub

热心网友 时间：2022-03-05 06:49

如果你的工作簿中若干表格，且各表格中各有不愿公开的公式。方法如下：
ALT+F11调出模块编辑；插入新模块，写入以下代码后运行一下（然后你看到你表格里面的公式全部没有了）：
Sub valtoval()
For Each sh In Sheets
sh.UsedRange.Value = sh.UsedRange.Value
Next
MsgBox "ok"
End Sub

热心网友 时间：2022-03-05 08:57

全选工作表，复制，选择sheet2 的A1，右键，【选择性粘贴】，点选【数值】，确定！

请注意这里的【选择性粘贴】！！！
祝你工作愉快！！！！！！！！！！

热心网友 时间：2022-03-05 11:22

用宏代码可以一次性完成

热心网友 时间：2022-03-05 14:03

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

热心网友 时间：2022-03-05 17:01

如果需要删除公式的表格多的话，一般的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表格格式批量操作应用