Question

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

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

Answer 1

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

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

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

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

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

Answer 2

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

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

   

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

   

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

   

Answer 3

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

在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

追问

不行啊。 说是 编辑错误 缺少 标签或语句货语句结束

追答

附件中有样本，你可以一看。

追问

你发的这个表 能全部消除的 。 我试了 好多次 为什么我就只能消除一个工作表的公式 其他的都不行呢？

追答

要在VBE窗口中插入一个模块，然后，在模块代码窗格中粘贴代码。

追问

我完全是 按照你弄的搞的， 只是ALT+F8 按不动 我关了在外面执行的。 但是不行啊。 只有一个工作表能消除 其他的全部不行。

追答

扣我，一五九六三九七零

Answer 4

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

Answer 5

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

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