对保单号进行筛选后新建工作表，并导入源数据的问题

mercedes777

大家好。我这个表格需要完成的功能如下：从每日投保清单中按保单号新建工作表，并将记录导入，生成统计数据。
七拼八凑了一大堆代码后，勉勉强强实现了大部分功能，现在还有几个问题没解决：
1、模块3里每个保单保费增减的统计功能，只有最后一个工作表可以完成，前面生成的工作表没有实现；
2、模块2里对工作表列宽的设置没有得到响应；
3、如何对每个工作表的数据部分加框线？
纯新手，代码效率很差，请能者帮忙点拨，不胜感激！ 保单批改测试.rar (16.16 KB, 下载次数: 4)

2020-3-15 18:17 上传

点击文件名下载附件

mercedes777

从模块1开始执行

源数据清单如下图


生成工作表如下图

3190496160

单独一段代码是没有任何问题的，但是，几段代码合并到一起来用，肯定就是有问题的，关键问题就出在代码中   ActiveCell   也就是活动工作表的表述
If Worksheets(sht.Cells(i, "A").Value) Is Nothing Then  如果在这种情况下，代码新建了工作表了，那肯定没问题，但是，一旦，已经有相应的工作表了，后续的工作表就不是活动工作表了，就肯定就不能获得预期的效果了
  要彻底解决你的问题，只能重新设计写代码，整体考虑所有功能，

3190496160

单独一段代码是没有任何问题的，但是，几段代码合并到一起来用，肯定就是有问题的，关键问题就出在代码中   ActiveCell   也就是活动工作表的表述
If Worksheets(sht.Cells(i, "A").Value) Is Nothing Then  如果在这种情况下，代码新建了工作表了，那肯定没问题，但是，一旦，已经有相应的工作表了，后续的工作表就不是活动工作表了，就肯定就不能获得预期的效果了
  要彻底解决你的问题，只能重新设计写代码，整体考虑所有功能，

mercedes777

3190496160 发表于 2020-3-16 14:46
单独一段代码是没有任何问题的，但是，几段代码合并到一起来用，肯定就是有问题的，关键问题就出在代码中   ...

nothing这段是我从书上抄的，有没有别的办法可以修改？