无忧启动论坛

标题: 请大佬帮忙下载吾爱的一个软件，谢谢！！ [打印本页]

作者: mingyiran 时间: 2026-1-13 21:47
标题: 请大佬帮忙下载吾爱的一个软件，谢谢！！
本帖最后由 mingyiran 于 2026-1-14 20:12 编辑

请大佬帮忙下载吾爱的一个软件，谢谢！！
Excel表格去掉公式保留数值
52pojie.cn/thread-2048067-1-1.html

感觉以下VBA效果好一些：
Sub shuzhihua()
'文件夹根目录除本身以外的所有工作簿中的公式变换为数值
Application.ScreenUpdating = False
Dim arr
p = ThisWorkbook.Path & "\"
f = Dir(p & "*.xls*")
Do While f <> ""
If f <> ThisWorkbook.Name Then
   With Workbooks.Open(p & f)
      For i = 1 To ActiveWorkbook.Sheets.Count
         arr = .Sheets(i).UsedRange
         .Sheets(i).UsedRange = arr
      Next
      .Close True
   End With
End If
f = Dir
Loop
Application.ScreenUpdating = True
End Sub

作者: zx2024 时间: 2026-1-13 22:03
转存了 https:/删/w删ww.now61.cn/s/EAj1Hb

作者: mingyiran 时间: 2026-1-13 22:04
感谢zx2024大佬！！

作者: it323 时间: 2026-1-13 23:10
感谢2#分享！

作者: gordonhf 时间: 2026-1-14 00:27
感谢分享！

作者: ebaqiang 时间: 2026-1-14 04:18
我也在等楼下回帖

作者: wn168cn@163.com 时间: 2026-1-14 06:50
感谢2#分享

作者: a66 时间: 2026-1-14 07:37
https://www.now61.cn/s/EAj1Hb

作者: smile_z 时间: 2026-1-14 08:12
感谢分享

作者: ohte 时间: 2026-1-14 08:42
这也是软件吗，复制粘贴-值

作者: cncecpcy 时间: 2026-1-14 08:56
好。。。。。。。。。。。。。。

作者: 2010wlm 时间: 2026-1-14 08:59
作用不大啊，可以用AI写一段VBA代码就实现了

作者: woloveqq 时间: 2026-1-14 09:00
还是热心人多，感谢分享！

作者: hhcha 时间: 2026-1-14 09:01

a66 发表于 2026-1-14 07:37
https://www.now61.cn/s/EAj1Hb

感谢分享!

作者: win82 时间: 2026-1-14 09:04

zx2024 发表于 2026-1-13 22:03
转存了 https:/删/w删ww.now61.cn/s/EAj1Hb

好人

作者: yaoxue2006 时间: 2026-1-14 09:07
感谢分享

作者: lzzll928 时间: 2026-1-14 09:29
这个不是直接粘贴为数值吗

作者: liuyang2025 时间: 2026-1-14 09:44
谢谢2楼分享

作者: zhangfeng_223 时间: 2026-1-14 09:53
感谢2#分享

作者: tanglf 时间: 2026-1-14 11:33
好人多啊！

作者: djsh001 时间: 2026-1-14 11:38
感谢zx2024大佬！！

作者: 2012myjoys 时间: 2026-1-14 13:08
我跑去下载了

作者: 进士小站 时间: 2026-1-14 13:20
办公的时候或许有用，下载备用

作者: cncecpcy 时间: 2026-1-14 13:32
好。。。。。。。。

作者: guong 时间: 2026-1-14 13:36
谢谢2楼分享！

作者: www88888888 时间: 2026-1-15 08:02

感谢分享！

作者: lnlangzi 时间: 2026-1-15 08:08
感谢

作者: 2011monoso 时间: 2026-1-15 08:23
自从ai能写代码, 到处都出现了一些让人啼笑皆非的"软件"

作者: kanon｜ 时间: 2026-1-16 15:20

zx2024 发表于 2026-1-13 22:03
转存了 https:/删/w删ww.now61.cn/s/EAj1Hb

还能麻烦大佬搬运一下这个嘛，感谢。（等级太低，没有发帖权限）
52pojie.cn/thread-2034149-1-1.html 打开关闭显示器电源 monitoronoff 更新至0.5版

欢迎光临无忧启动论坛 (http://wuyou.net/)