ExcelHome技术论坛

 找回密码
 免费注册

QQ登录

只需一步,快速开始

快捷登录

搜索
EH技术汇-专业的职场技能充电站 妙哉!函数段子手趣味讲函数 Excel服务器-会Excel,做管理系统 Excel Home精品图文教程库
HR薪酬管理数字化实战 Excel 2021函数公式学习大典 Excel数据透视表实战秘技 打造核心竞争力的职场宝典
300集Office 2010微视频教程 数据工作者的案头书 免费直播课集锦 ExcelHome出品 - VBA代码宝免费下载
用ChatGPT与VBA一键搞定Excel WPS表格从入门到精通 Excel VBA经典代码实践指南
楼主: 相见是缘8

[求助] 多处关键字符替换,要么很慢,要么死机!

[复制链接]

TA的精华主题

TA的得分主题

 楼主| 发表于 2021-4-23 07:58 | 显示全部楼层
413191246se 发表于 2021-4-2 00:17
相见,z9bhd 老师 的意思是,双击“Project(测试的文档)”下面的“ThisDocument”,再点击上面的最左侧图 ...

老师好!
抱歉!现在才看到你的回复,感谢你的指教!

TA的精华主题

TA的得分主题

发表于 2021-4-23 08:08 | 显示全部楼层
相见是缘8 发表于 2021-4-23 07:38
老师辛苦了!你误会了我的意思,不是要这种代码,再说这个代码未能满足要求,还有好多的“中药材名”后也未 ...

我试试看,担心如果考虑颜色的话速度方面可能不会如你意

TA的精华主题

TA的得分主题

 楼主| 发表于 2021-4-23 08:35 | 显示全部楼层
z9bhd 发表于 2021-4-23 08:08
我试试看,担心如果考虑颜色的话速度方面可能不会如你意

代码运行速度慢一点无所为(再慢比手动替换也不知要快多少倍),只要能精准替换,电脑不会卡住死机就成!就是麻烦老师你了!

TA的精华主题

TA的得分主题

发表于 2021-4-23 11:53 | 显示全部楼层
[广告] Excel易用宝 - 提升Excel的操作效率 · Excel / WPS表格插件       ★免费下载 ★       ★ 使用帮助
相见是缘8 发表于 2021-4-23 08:35
代码运行速度慢一点无所为(再慢比手动替换也不知要快多少倍),只要能精准替换,电脑不会卡住死机就成! ...

想了半天还是搞不定,建议另发一贴请高手帮忙吧,另外觉得你的思路能不能调整一下?如果每个不用替换的都要去标注颜色会不会太麻烦?能不能把不用替换的文字的特征找出来再用vba来解决?比如后面带“汤”的字符不用替换

TA的精华主题

TA的得分主题

 楼主| 发表于 2021-4-23 17:42 | 显示全部楼层
[广告] VBA代码宝 - VBA编程加强工具 · VBA代码随查随用  · 内置多项VBA编程加强工具       ★ 免费下载 ★      ★使用手册
本帖最后由 相见是缘8 于 2021-4-27 07:04 编辑
z9bhd 发表于 2021-4-23 11:53
想了半天还是搞不定,建议另发一贴请高手帮忙吧,另外觉得你的思路能不能调整一下?如果每个不用替换的都 ...

好!感谢老师你多次帮忙!
这个不用替换的文字的特征,凭我的这点水平还真找不出来,因它们的位置可能那个地方都会有,且汤前面字的多少及文字也各不相同,我也是用手动逐个替换标为红色的!
很长时间都没有看到 “杜老师” 露面,这个也许他有办法!

TA的精华主题

TA的得分主题

 楼主| 发表于 2021-4-25 08:00 | 显示全部楼层
[广告] Excel易用宝 - 提升Excel的操作效率 · Excel / WPS表格插件       ★免费下载 ★       ★ 使用帮助
望大神援手相助!

TA的精华主题

TA的得分主题

发表于 2021-4-25 15:01 | 显示全部楼层
名称有重复的,已去掉。可能有点慢。

替换.7z

15.34 KB, 下载次数: 6

TA的精华主题

TA的得分主题

 楼主| 发表于 2021-4-26 08:34 | 显示全部楼层
[广告] Excel易用宝 - 提升Excel的操作效率 · Excel / WPS表格插件       ★免费下载 ★       ★ 使用帮助
本帖最后由 相见是缘8 于 2021-4-26 09:09 编辑
tcdatongye 发表于 2021-4-25 15:01
名称有重复的,已去掉。可能有点慢。

老师好!
衷心感谢!
代码基本达愿,速度也较快!但当在真正要替换的文档中替换时(替换的关键字为黑色),代码运行后,发现每组红色字的前面也会加上了顿号,不知这个老师有不有办法修正它?

模拟附件.rar

62.8 KB, 下载次数: 2

TA的精华主题

TA的得分主题

 楼主| 发表于 2021-4-26 10:06 | 显示全部楼层
本帖最后由 相见是缘8 于 2021-4-27 06:56 编辑
tcdatongye 发表于 2021-4-25 15:01
名称有重复的,已去掉。可能有点慢。

重复了一个,删除。

TA的精华主题

TA的得分主题

发表于 2021-4-26 17:02 | 显示全部楼层
.Font.ColorIndex = wdred  换成  .Font.ColorIndex = wdBlack就行了
您需要登录后才可以回帖 登录 | 免费注册

本版积分规则

手机版|关于我们|联系我们|ExcelHome

GMT+8, 2024-3-28 20:27 , Processed in 0.053934 second(s), 8 queries , Gzip On, Redis On.

Powered by Discuz! X3.4

© 1999-2023 Wooffice Inc.

沪公网安备 31011702000001号 沪ICP备11019229号-2

本论坛言论纯属发表者个人意见,任何违反国家相关法律的言论,本站将协助国家相关部门追究发言者责任!     本站特聘法律顾问:李志群律师

快速回复 返回顶部 返回列表