请教：如何将整个工作簿内的所有工作表中的公式全部转换为数值？再次请教：全部数值

zhhy124406

BIN_YANG168的方法没看懂，如果是全选工作表的话，还是找不到复制、粘贴的选项。只能一张表一张表粘，太费劲了

cyy1905

zhhy124406 发表于 2014-2-26 17:24
BIN_YANG168的方法没看懂，如果是全选工作表的话，还是找不到复制、粘贴的选项。只能一张表一张表粘，太费 ...

复制和选择性粘贴在菜单栏有按钮的啊

缘纷飞

复制，选择性粘贴，数值~

aliceguo

帮我省了很多事，谢谢热心网友的解答！

我的爱人在哪5

赫赫风 发表于 2006-2-22 15:48
谢谢 BIN_YANG168    ！！！！
很好用，
我还担心，

你好，为什么我弄出来所有表格都一样呢，有什么其他诀窍啊

我的爱人在哪5

赫赫风 发表于 2006-2-22 15:48
谢谢 BIN_YANG168    ！！！！
很好用，
我还担心，

你好，加下我qq我请问你一下，1359620738

w123aa123

'把工作簿中的所有工作表中的公式全部转换为数值
Sub fd()
Dim sht As Worksheet
  For Each sht In Sheets
   sht.UsedRange = sht.UsedRange.Value
  Next
End Sub

晴天2008

Sub 多个工作表的公式转数值()
Dim sht As Worksheet
For Each sht In Worksheets '遍历工作表
sht.UsedRange.Value = sht.UsedRange.Value
Next
End Sub

LE190513

晴天2008 发表于 2022-6-15 14:37
Sub 多个工作表的公式转数值()
Dim sht As Worksheet
For Each sht In Worksheets '遍历工作表

这个VB代码在哪里编辑

鱻顼

round 公式，不知道我理解对了没？第二参数设置2