合并计算问题

sunche

老师们，早！我仿照本论坛一位老师的贴子写了合并计算的程序，但在运行时通不过，自己一时半会儿也找不出问题来，请老师们帮忙！谢谢！通不过的程序在总表中！

zgwei050

你又藏了一个"sheet3"工作表。
If sh.Name <> "总表" And sh.Name <> "模板" And sh.Name <> "研发项目" And sh.Name <> "研发明细账" And sh.Name <> "Sheet3" Then

zgwei050

“总表”工作表中的E9:H9，E16:H16 要取消合并单元格

sunche

谢谢老师，昨天在论坛上看到你给一同学写的代码，刚好适用我，我就借过来用了。我太粗心大意了！再次感谢！

zgwei050

研发台账（改）.rar (73.01 KB, 下载次数: 4)

2020-9-16 13:10 上传

点击文件名下载附件 你别急，我再看看，你的“摘要”、“借或贷”，以及列数不同，程序要做点修改的

sunche

zgwei050 发表于 2020-9-16 11:37
你别急，我再看看，你的“摘要”、“借或贷”，以及列数不同，程序要做点修改的

老师，下午好！已经很好了，工作做完后，我在程序中又加了几句，总表很完美！但我修改程序后现在不能一次成功，具体操作步骤：删掉总表的9行以下内容，点击“合并计算”按钮，出现“应用程序定义或对象错误”提示，点击“结束”按钮，再点击“合并计算”按键，表格内容正常正确出现，达到目的。后重复再点击“合并计算”按钮，没有出现任何问题！初学VBA，请老师指导！

zgwei050

研发台账（改A）.rar (71.9 KB, 下载次数: 14)

2020-9-16 16:38 上传

点击文件名下载附件

sunche

zgwei050 发表于 2020-9-16 16:38

这是一个完美的结果，从财务系统中导出明细账，再将明细账生成各项目台账，再汇总！谢谢老师，辛苦了！

zgwei050

sunche 发表于 2020-9-16 16:46
这是一个完美的结果，从财务系统中导出明细账，再将明细账生成各项目台账，再汇总！谢谢老师，辛苦了！

把.Range(.Range("A9"), .Cells(URow, "Ak")).ClearContents这句
的ClearContents改为clear，以后9行以后你不用手删除，它会自动清除任何格式的（包括清除表格线等）。

sunche

zgwei050 发表于 2020-9-16 17:59
把.Range(.Range("A9"), .Cells(URow, "Ak")).ClearContents这句
的ClearContents改为clear，以后9行以 ...

好的，谢谢老师！