请大佬帮忙下载吾爱的一个软件，谢谢！！

mingyiran · 发表于 2026-1-13 21:47:37

本帖最后由 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:08

转存了 https:/删/w删ww.now61.cn/s/EAj1Hb

mingyiran · 发表于 2026-1-13 22:04:20

感谢zx2024大佬！！

it323 · 发表于 2026-1-13 23:10:23

感谢2#分享！

gordonhf · 发表于 7 天前

感谢分享！

ebaqiang · 发表于 7 天前

我也在等楼下回帖

wn168cn@163.com · 发表于 7 天前

感谢2#分享

a66 · 发表于 7 天前

https://www.now61.cn/s/EAj1Hb

smile_z · 发表于 7 天前

感谢分享

ohte · 发表于 7 天前

这也是软件吗，复制粘贴-值

cncecpcy · 发表于 7 天前

好。。。。。。。。。。。。。。

2010wlm · 发表于 7 天前

作用不大啊，可以用AI写一段VBA代码就实现了

woloveqq · 发表于 7 天前

还是热心人多，感谢分享！

hhcha · 发表于 7 天前

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

感谢分享!

win82 · 发表于 7 天前

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

好人

yaoxue2006 · 发表于 7 天前

感谢分享

lzzll928 · 发表于 7 天前

这个不是直接粘贴为数值吗

wang1126 · 发表于 7 天前

谢谢2楼分享

liuyang2025 · 发表于 7 天前

谢谢2楼分享

zhangfeng_223 · 发表于 7 天前

感谢2#分享

tanglf · 发表于 7 天前

好人多啊！

djsh001 · 发表于 7 天前

感谢zx2024大佬！！

2012myjoys · 发表于 7 天前

我跑去下载了

进士小站 · 发表于 7 天前

办公的时候或许有用，下载备用

cncecpcy · 发表于 7 天前

好。。。。。。。。

guong · 发表于 7 天前

谢谢2楼分享！

www88888888 · 发表于 6 天前

感谢分享！

lnlangzi · 发表于 6 天前

感谢

2011monoso · 发表于 6 天前

自从ai能写代码, 到处都出现了一些让人啼笑皆非的"软件"

kanon｜ · 发表于 5 天前

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

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

		自动登录	找回密码
密码			注册

[求助] 请大佬帮忙下载吾爱的一个软件，谢谢！！

点评

评分

点评

评分

浏览过的版块