ExcelHome技术论坛

 找回密码
 免费注册

QQ登录

只需一步,快速开始

快捷登录

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

代码如何改进

[复制链接]

TA的精华主题

TA的得分主题

 楼主| 发表于 2023-6-1 12:58 | 显示全部楼层
batmanbbs 发表于 2023-6-1 12:35
不会啊,我这里测试没有问题,这次增加了一些容错,请仔细校对

老师  代码我放进去了  但是执行的结果 还是在表格里删除内容,我的科目标题没有一起删除,能帮我在word里测试一下吗

删除合计金额为0的科目.rar

157.16 KB, 下载次数: 7

TA的精华主题

TA的得分主题

发表于 2023-6-1 13:02 | 显示全部楼层
本帖最后由 batmanbbs 于 2023-6-1 13:06 编辑

你没有认真校对啊:(

image.png

TA的精华主题

TA的得分主题

发表于 2023-6-1 13:06 | 显示全部楼层
还有一个replace 那句,第一个""中间是一个半角空格,应该" "
意思是删除文本中的空格后好进行比较 image.png

TA的精华主题

TA的得分主题

 楼主| 发表于 2023-6-1 13:24 | 显示全部楼层
batmanbbs 发表于 2023-6-1 13:06
还有一个replace 那句,第一个""中间是一个半角空格,应该" "
意思是删除文本中的空格后好进行比较



老师  代码的逻辑是删除指定条件的表格和表格上一行的内容
image.png
像这种情况  是不是就删除不了

TA的精华主题

TA的得分主题

发表于 2023-6-1 13:30 | 显示全部楼层
[广告] VBA代码宝 - VBA编程加强工具 · VBA代码随查随用  · 内置多项VBA编程加强工具       ★ 免费下载 ★      ★使用手册
本帖最后由 batmanbbs 于 2023-6-1 13:35 编辑

优化代码的也可以删除,就是从删除表格开始往上找到上一张表格的结束位置,然后之间全部删除

但是判断很重要,比如第21项下有2张表(1)(2),删除其中1张,另外1张如何处理呢?这些要求你都没有明确。PS:不能像挤牙膏似的,一会提一点要求一会又提出另外一个要求,毕竟大家时间和精力都是有限的,你说呢?

你现在的提出的要求和你一楼的需求相差的太多了。

另外,我觉得你应该会编写代码,为什么不研究研究呢?毕竟你比谁都了解需要干什么。

TA的精华主题

TA的得分主题

 楼主| 发表于 2023-6-1 13:44 | 显示全部楼层
[广告] VBA代码宝 - VBA编程加强工具 · VBA代码随查随用  · 内置多项VBA编程加强工具       ★ 免费下载 ★      ★使用手册
本帖最后由 jstvic 于 2023-6-1 13:52 编辑
batmanbbs 发表于 2023-6-1 13:30
优化代码的也可以删除,就是从删除表格开始往上找到上一张表格的结束位置,然后之间全部删除

但是判断很 ...

老师您说的对  代码我只能稍微看得懂  很多逻辑关系 还不太懂  所以编写有难度  我再研究一下  21项目下面(2)是一段文字,也是需要删除,就是21整个标题项目都要删除。就是这个模板  我需要删除用不到的科目,word 和excel比起来 有点难办

TA的精华主题

TA的得分主题

发表于 2023-6-1 16:57 | 显示全部楼层
[广告] Excel易用宝 - 提升Excel的操作效率 · Excel / WPS表格插件       ★免费下载 ★       ★ 使用帮助
jstvic 发表于 2023-6-1 13:44
老师您说的对  代码我只能稍微看得懂  很多逻辑关系 还不太懂  所以编写有难度  我再研究一下  21项目下 ...

如果是EXCEL下你是如何实现这个目标呢?如果有思路,正常情况用WORD可以实现,只不过可能解题的方法(语句)不同

TA的精华主题

TA的得分主题

 楼主| 发表于 2023-6-1 17:05 | 显示全部楼层
jstvic 发表于 2023-6-1 13:44
老师您说的对  代码我只能稍微看得懂  很多逻辑关系 还不太懂  所以编写有难度  我再研究一下  21项目下 ...

如果是excel  我就判断符合条件的表格上一行如果出现明细字样  我就向上删除两行,向下删除一行  ,但是在word里面 是真的不会

TA的精华主题

TA的得分主题

发表于 2023-6-1 18:11 | 显示全部楼层
[广告] Excel易用宝 - 提升Excel的操作效率 · Excel / WPS表格插件       ★免费下载 ★       ★ 使用帮助
本帖最后由 batmanbbs 于 2023-6-1 18:14 编辑

这个思路肯定不行,问题漏洞较多:

一是删除表格的下一个段落不一定紧接着就是文字说明,有的会空一行(有可能是多行,看你的文档是否规范)之后,才会是文字说明。

这个还是一个小问题。我前面已经说过,如果你这个大项里面有2个小项(2张表格):
这时你如果删除的是第二张表(第二小项),向下删除则是下一个大项的标题,而向上删除两行,有可能会删除第一张表(第一个小项)的内容;
而如果你删除的是第一张表(第一个小项),向下则会删除第二张表(第二个小项)的标题,况且第二张表(第二个小项)还在,你怎么能向上删除这个大项的标题呢?

TA的精华主题

TA的得分主题

 楼主| 发表于 2023-6-1 18:21 来自手机 | 显示全部楼层
如果word 能获取指定条件表格所在的导航标题,从导航窗口删除对应的标题,这样就可行了
您需要登录后才可以回帖 登录 | 免费注册

本版积分规则

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

GMT+8, 2024-12-27 03:28 , Processed in 0.032906 second(s), 9 queries , Gzip On, MemCache On.

Powered by Discuz! X3.4

© 1999-2023 Wooffice Inc.

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

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

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