每20行数据，就复制生成出一个模板工作表，然后把对应的20行数据放进到模板去

lsyong

weare2 发表于 2019-9-24 15:44
试试！！！！！！

谢谢，兄弟，的帮忙可以，使用。

hfwufanhf2006

lsyong 发表于 2019-9-24 15:56
根据工作使用需要，只是在模板旁边新建工作表就可以了，核对数据比较方便，可以修改吗？

改肯定能改，只是不明白你的具体需求。因为模板只能保存16行数据，但inputde数据就很难说了，这是个适配问题。
  就我的猜测，我觉得只要把后面复制新文件的那段代码去掉就可以了，完整的代码是：
Application.ScreenUpdating = False
Application.DisplayAlerts = False
s = [b2].End(4).Row
js = 1
For i = 2 To s Step 16
   Sheets("装箱单").Select
   Sheets("装箱单").Copy After:=Worksheets(Worksheets.Count)
   Worksheets(Worksheets.Count).Name = "装箱单" & Worksheets.Count
   Sheets("input").Select
   hs = 5
   For k = 2 + (js - 1) * 16 To 1 + js * 16
       For j = 2 To 19
           Worksheets(Worksheets.Count).Cells(hs, j) = Cells(k, j)
       Next j
       hs = hs + 1
   Next k
   js = js + 1
   Sheets("input").Select
Next i
Application.DisplayAlerts = True
Application.ScreenUpdating = False


上述代码还是按照模板规则添加一个个新的工作表，只是不再另存为新文件，工作表的名称改为：“装箱单”+表单顺序号
对于不再使用的工作表单，你只有手动来删除，代码是不管的；
这个文件最好与之前的文件分开，专用于核对数据。如果代码都放一起，或许会有干扰，因为我也没全面测试，不是太放心；

lsyong

hfwufanhf2006 发表于 2019-9-24 16:31
改肯定能改，只是不明白你的具体需求。因为模板只能保存16行数据，但inputde数据就很难说了，这是个适配 ...

谢谢，

lsyong

hfwufanhf2006 发表于 2019-9-24 16:31
改肯定能改，只是不明白你的具体需求。因为模板只能保存16行数据，但inputde数据就很难说了，这是个适配 ...

再麻烦一下把，右上角的日期时间，和右下角的 页数编号，也用代码显示出来

lsyong

hfwufanhf2006 发表于 2019-9-24 16:31
改肯定能改，只是不明白你的具体需求。因为模板只能保存16行数据，但inputde数据就很难说了，这是个适配 ...

用了一段时间，到现在发现，如果，只有一行数据时，会出错的，生成很多文件出来。