我给你修改了代码截图如下：

1、模板我修改了，上下部分都只预留了两个空行好处是不用删行，只需要插行：

2、代码我基本上全都是用我自己的方法只有最前面的刪除工作表和中间插入工作表保留了你原来的代码：

有详细解释。为复制方便我把代码粘贴在下面。除了没排版其他与截图完全相同：

Rem 删除工作表，保留了源代码

Rem 从明细表13行开始检索明细数据

x2 = "" '当前生成的明细表名称

If Js1 > 1 Then '判断是否要插行大于1行都要插行，”小计“前保留一個空行会比较美观

明细表中我新插入了一个按钮你原来的代码完全没动，我是在模板2中新增的代码：

1）生成的明细表中有很多不必要的黃色是模板带过来的，修改模版就好了；

2）插入的行没有画表格线你自己添加。先录制宏然后复制进来就好了；

3）关于工作表的选择这是重点要特别注意：

默认活动工作表就是明细表，代码中用x0表示插入工作表、插入行都要转移工作表焦点，后续还是需要再转回原來的x0明细表的所以后面紧接着都有一行worksheets(x0).activate。这行代码的重要意义是能尽量省掉表名前缀比如代码中经常有cells(x,y)的写法，表示数据来源于明细表x0只要不是明细表x0都要带表明前缀，如Worksheets(Worksheets.Count).Cells(Js

4）其他表头细节数据我都没考虑你也没说，自己添加；

CocoaChina社区转载内容已尽可能注明出处，如未能核实来源或转发内容圖片有权利瑕疵的请及时联系社区进行修改或删除【联系方式QQ : 邮箱：】文章内容为作者独立观点，不代表CocoaChina社区立场版权归原作者所有，如申请授权请联系作者因文章侵权CocoaChina社区不承担任何法律及连带责任。