一键将公式变成数据

欣语

工作需要，工作薄中有很多带公式的工作表，如何一键去除公式，保留数据呢

LIUZHU

如果是引用其他工作簿的数据，断开链接就可以了，如果是引用本工作簿其他工作表的数据，这个没必要去掉公式吧

LIUZHU

如果必须要去掉，那就遍历共走表，让Range.Value2=Range.Value2吧

sunya_0529

欣语

sunya_0529 发表于 2024-7-2 14:32

能把这段代码给我吗

sunya_0529

欣语 发表于 2024-7-2 16:40
能把这段代码给我吗

没几个字，照着图片敲一下吧~

欣语

显示语法错误
Function 抹掉所有公式()

for(let wst of ThisWorkbook.Sheets){//在本工作薄的所有工作表中循环
with (wst.UsedRange){
Range.Value2 = Range.Value2
End Sub

sunya_0529

欣语 发表于 2024-7-4 15:31
显示语法错误
Function 抹掉所有公式()

首先，给你的是JSA代码，需要在WPS的JS环境里用，你在VBA环境里输入肯定是不行的，哪怕是WPS里的VBA编辑器也不行的。

其次，一共没几句代码，照着截图上原样敲进去（请你再对照着图片认真看一下），这点基础能力要有，不然学不会宏代码的。

最后，JSA里是严格区分大小写的，所以特别注意。“//”后是注释，可以不用敲，不影响程序运行。

yangqianming

function 抹掉公式(){
        for(let wst of ThisWorkbook.Sheets){
                with (wst.UsedRange){
                Range.Value2 = Range.Value2
}
}
}