ExcelHome技术论坛

 找回密码
 免费注册

QQ登录

只需一步,快速开始

快捷登录

搜索
EH技术汇-专业的职场技能充电站 妙哉!函数段子手趣味讲函数 Excel服务器-会Excel,做管理系统 效率神器,一键搞定繁琐工作
HR薪酬管理数字化实战 Excel 2021函数公式学习大典 Excel数据透视表实战秘技 打造核心竞争力的职场宝典
让更多数据处理,一键完成 数据工作者的案头书 免费直播课集锦 ExcelHome出品 - VBA代码宝免费下载
用ChatGPT与VBA一键搞定Excel WPS表格从入门到精通 Excel VBA经典代码实践指南
查看: 1617|回复: 5

问题501.仍是关于查找、替换问题

[复制链接]

TA的精华主题

TA的得分主题

发表于 2005-5-10 14:35 | 显示全部楼层 |阅读模式

首先要感谢版主的无私帮助,再次致敬!我至少会了用^13来代表回车符(在使用通配符的前提下一般是不能用^P的),这一招很有用,在删除"广义"空行时不必在回车符\人工分行符间重复替换了,处理速度加快了不少。 但是,问题还是被曲解了。我的问题是要解决一行中有三个特征字符的情况下的定位问题,但这三个特征字符的位置并不是固定的(绝不会象样本一样正好是每行第五个可见字符),这才是我提出自建程式的目的。 版主的程式之所以能达到我所提的要求,是因为样本文件中每一行中第二个特征字符的出现位置是相同的。 故,这次的样本比较通用一些,第二特征字符的位置不一样,版主能否用不牵涉到VBA语句的操作方法解决?

样本:见后(共37行,13段); 目标:删除所有含有中文字符的段落,留下所有的“广义空行” 注意事项:不能使用一行中是否全为空格+CHR(13)的特征来作判断标准

Ql9N5eqj.rar (2.54 KB, 下载次数: 19)

TA的精华主题

TA的得分主题

发表于 2005-5-10 16:49 | 显示全部楼层
[广告] VBA代码宝 - VBA编程加强工具 · VBA代码随查随用  · 内置多项VBA编程加强工具       ★ 免费下载 ★      ★使用手册
你的附件中,所有的段落中均含有"第"字,能否作为判断依据?

TA的精华主题

TA的得分主题

 楼主| 发表于 2005-5-10 17:02 | 显示全部楼层

完全可以,我的目标正是以一个或数个空格为第一特征字符;

以第字为第二特征字符

以数个空格为第三特征字符;

以上述三个特征字符为条件,进行处理

TA的精华主题

TA的得分主题

发表于 2005-5-10 17:21 | 显示全部楼层
[广告] VBA代码宝 - VBA编程加强工具 · VBA代码随查随用  · 内置多项VBA编程加强工具       ★ 免费下载 ★      ★使用手册

我试了一下,可以使用这样条件搜索:

查找"第"

替换为"",格式/样式中设置为如标题9,全部替换.(即将所有带有"第"字的段落设置为标题9--典型的格式替换)

将光标定位于某一个标题9段落中,右击,选择格式相似文本,自动选定所有该样式文本,DELETE.OK

但此操作需要XP及XP以上版本(OFFICE支持)

如果用VBA,只能遍历段落,是否含有"第"来删除.

TA的精华主题

TA的得分主题

 楼主| 发表于 2005-5-11 12:57 | 显示全部楼层

版主,我需要的正是VBA程式,能否能让我见识一下,如何遍历全文,并用 数个空格 +第字 + 数个空格作为查询条件来查找。

另外,您的方法仍是仅对该例子有效,一旦该文章中有的段落中有“第”字但仍不符合我删除的要求(第三楼中所描述),那你的方法就失效了。

TA的精华主题

TA的得分主题

发表于 2005-5-11 17:18 | 显示全部楼层
[广告] VBA代码宝 - VBA编程加强工具 · VBA代码随查随用  · 内置多项VBA编程加强工具       ★ 免费下载 ★      ★使用手册
以下是引用sdbbsdbb在2005-5-10 14:35:00的发言:

故,这次的样本比较通用一些,第二特征字符的位置不一样,版主能否用不牵涉到VBA语句的操作方法解决?

注意事项:不能使用一行中是否全为空格+CHR(13)的特征来作判断标准

很遗憾,楼主的表达意思,使我成为一个盲人,我无法判定你的结果。

另请注意,VBA是针对特定对象的编程语言,如果能够一步到位,MS的专家想必应该整合到工具中去了。

附件是我判断的一个依据,而且我也询问过你了,是否均有一个“第”,你也肯定了。

我希望楼主表达清楚你的目的,尽管你想开发一个工具,但是,对我而言,只是就事论事。

您需要登录后才可以回帖 登录 | 免费注册

本版积分规则

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

GMT+8, 2024-11-14 15:07 , Processed in 0.038826 second(s), 11 queries , Gzip On, MemCache On.

Powered by Discuz! X3.4

© 1999-2023 Wooffice Inc.

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

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

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