代码如何改进

zpy2

如果逻辑比较复杂，不如自动排版重新生成

batmanbbs

zpy2 发表于 2023-6-1 18:36
如果逻辑比较复杂，不如自动排版重新生成

的确是这样，问题是就算自动生成，楼主也没有把要求说清楚啊。


我一开始使用的循环所有表格进行处理，楼主改为对光标所在表格进行处理，这说明楼主要求是不太固定的，有些表格可能不用处理或者处理的方法不太一样。要求不一样，编写代码就很难了，不管是自动生成，还是单独处理。

jstvic

我的需求就是图片这样

batmanbbs

晕，这个要求和前面又都不一样！
请说一下，如何用EXCEL识别整个项目的，看看能不能用WORD来实现。
这样吧，你提供用EXCEL实现这个功能的代码，我帮你参考一下改成WORD来实现。因为，我觉得思路应该都是一样，正好我也可以学习一下。

PS：你用的好像是WPS，不是WORD，不要告诉我WPS会自动识别呦

jstvic

batmanbbs 发表于 2023-6-1 19:06
晕，这个要求和前面又都不一样！
请说一下，如何识别整个项目，不要告诉我WPS会自动识别呦

WORD 也是一样的  我平时都是手动选中删除整个科目项目   ，可能是我表达不对，我的需求除了一开始提的，第二个就是想实现这个 不好意思添麻烦了

batmanbbs

提供用EXCEL实现这个功能的代码，我帮你参考一下改成WORD来实现。因为，我觉得思路应该都是一样，正好我也可以学习一下。

batmanbbs

我也刚刚开始学VBA，这个折叠标题和内容的功能还不会，只有等高手出来指点一下了

jstvic

batmanbbs 发表于 2023-6-1 19:49
我也刚刚开始学VBA，这个折叠标题和内容的功能还不会，只有等高手出来指点一下了

excel  平时用不到删除  但是如果删除   这样就能选择整个区域，但是word  我就做不到

batmanbbs

jstvic 发表于 2023-6-1 19:53
excel  平时用不到删除  但是如果删除   这样就能选择整个区域，但是word  我就做不到

问题是你怎么定位到A36的，因为每个表格大小不一样啊，有的10行，有的20行
PS：我用了一个笨办法，正在调试，一会你看看

batmanbbs

借鉴你用折叠标题方法处理的，但必须确保你的文档格式是你显示的那样（大纲属于3级），具体代码需要审核才能看到，先给你截图主要修改的部分。
我用的方法比较笨，暂时没有查到可以直接使用折叠标题然后选中3级直接删除的教程。这块对我是一个空白区，没有学过，希望知道的高手能够不吝赐教。谢谢先。

PS：按照你的需求，只有合计为空才会处理，小计为空不会处理。