ExcelHome技术论坛

 找回密码
 免费注册

QQ登录

只需一步,快速开始

快捷登录

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

代码如何改进

[复制链接]

TA的精华主题

TA的得分主题

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

分成两端代码并优化,看43楼

TA的精华主题

TA的得分主题

 楼主| 发表于 2023-6-1 22:08 来自手机 | 显示全部楼层
batmanbbs 发表于 2023-6-1 22:03
借鉴你用折叠标题方法处理的,但必须确保你的文档格式是你显示的那样(大纲属于3级),具体代码需要审核才 ...

太感谢了,辛苦辛苦!

TA的精华主题

TA的得分主题

发表于 2023-6-1 22:21 | 显示全部楼层
[广告] Excel易用宝 - 提升Excel的操作效率 · Excel / WPS表格插件       ★免费下载 ★       ★ 使用帮助
本帖最后由 batmanbbs 于 2023-6-1 22:22 编辑
jstvic 发表于 2023-6-1 22:08
太感谢了,辛苦辛苦!

说实在的,我到现在也不清楚你的需求到底是什么。因为你从头到尾都没有说清楚,包括你一楼的要求,那个代码都是我猜测写的。
你最好一二三列一下。

TA的精华主题

TA的得分主题

 楼主| 发表于 2023-6-1 22:39 | 显示全部楼层
batmanbbs 发表于 2023-6-1 22:21
说实在的,我到现在也不清楚你的需求到底是什么。因为你从头到尾都没有说清楚,包括你一楼的要求,那个代 ...

就是我这个报告  不需要的科目需要全部删除,所以得  历遍文档中的表格,如果表格披露的合计金额期初期末都是0,那这个科目是不能出现在我的报告中,所以只能以表格中的合计作为关键词,满足期初期末都是0的条件就连同表格所在的这个折叠窗口一起删除,  不知我表达的是否还有疏漏

TA的精华主题

TA的得分主题

发表于 2023-6-1 22:47 | 显示全部楼层
本帖最后由 batmanbbs 于 2023-6-1 22:49 编辑
jstvic 发表于 2023-6-1 22:39
就是我这个报告  不需要的科目需要全部删除,所以得  历遍文档中的表格,如果表格披露的合计金额期初期末 ...

那你这个要求和开始那个第一列之外空白单元需要删除行又是什么关系?
需要使用一个代码,还是分开使用两段代码啊?

还有,你也没有采取遍历的方式啊,我最一开始采用的遍历所有表格,你自己又改成了光标所在表格,为什么呢?

TA的精华主题

TA的得分主题

 楼主| 发表于 2023-6-1 22:58 来自手机 | 显示全部楼层
[广告] VBA代码宝 - VBA编程加强工具 · VBA代码随查随用  · 内置多项VBA编程加强工具       ★ 免费下载 ★      ★使用手册
第一个需求除首列以外的空白行不能历遍。因为不是所有的表格得能这么删,有些特殊的表格得留着,所以我选择手动选择的方式
但是第二个需求,可以历遍,因为没有金额的是不能出现在我表格里的
这两个需求一起来, 就有些绕了,是我表达不完整造成了误解 不好意思

TA的精华主题

TA的得分主题

发表于 2023-6-1 23:01 | 显示全部楼层
[广告] VBA代码宝 - VBA编程加强工具 · VBA代码随查随用  · 内置多项VBA编程加强工具       ★ 免费下载 ★      ★使用手册
晕,那就是两个需求,两段代码啊
你还得自己改一下才行

评分

1

查看全部评分

TA的精华主题

TA的得分主题

发表于 2023-6-1 23:04 | 显示全部楼层
按照你的逻辑应该是两段代码,先执行删除所有合计为空的折叠项,减少表格;然后再使用另外删除行的代码针对特定表格进行处理。现在写在一起也不合适,自己会改吧,我看你会编写代码。

TA的精华主题

TA的得分主题

 楼主| 发表于 2023-6-1 23:04 | 显示全部楼层
batmanbbs 发表于 2023-6-1 22:47
那你这个要求和开始那个第一列之外空白单元需要删除行又是什么关系?
需要使用一个代码,还是分开使用两 ...

是分别使用两段不同的代码   一个选择 一个历遍

TA的精华主题

TA的得分主题

 楼主| 发表于 2023-6-2 00:35 来自手机 | 显示全部楼层
[广告] Excel易用宝 - 提升Excel的操作效率 · Excel / WPS表格插件       ★免费下载 ★       ★ 使用帮助
batmanbbs 发表于 2023-6-1 23:04
按照你的逻辑应该是两段代码,先执行删除所有合计为空的折叠项,减少表格;然后再使用另外删除行的代码针对 ...

改了半天 循环表格没改成功
您需要登录后才可以回帖 登录 | 免费注册

本版积分规则

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

GMT+8, 2024-11-28 01:02 , Processed in 0.049806 second(s), 9 queries , Gzip On, MemCache On.

Powered by Discuz! X3.4

© 1999-2023 Wooffice Inc.

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

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

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