请教如何按模板批量生成打印单据

jian82372387

请问一下现在工作表“税单”里放的是打印的模板，模板里标红色的单元格就是要从数据源表里的相应列数据的（因为需要两张打印因在一页所以右手边的内容是相应列第二条数据），请问一下如何将数据源里的每一条信息按模板生成数据并且按照数据源B列的内容分类放在相应的个人、三资、国有、集体、私营  这几个工作表里

哎哟哥哥

写了个拆分，模板套打那个没空研究，仅供参考：Sub 拆分数据() Dim i As Long Dim str, str1 Application.DisplayAlerts = False If Sheets.Count > 1 Then     For Each sht1 In Sheets         If sht1.Name <> "税表" And sht1.Name <> "数据源" Then             sht1.Delete         End If     Next End If Application.DisplayAlerts = True arr = Sheets("数据源").Range("a1").CurrentRegion Set d = CreateObject("scripting.dictionary") For i = 2 To UBound(arr)     If d.exists(arr(i, 5)) Then         Set d(arr(i, 5)) = Union(d(arr(i, 5)), Rows(i))     Else         Set d(arr(i, 5)) = Union(Rows(1), Rows(i))     End If Next i For str = 0 To d.Count - 1     str1 = Trim(d.keys()(str))     Worksheets.Add.Name = str1     d.items()(str).Copy Sheets(str1).Range("a1") Next str Sheets("数据源").Activate End Sub

gwjkkkkk

请参考附件。。。

娜美小姐

gwjkkkkk 发表于 2023-6-24 18:47
请参考附件。。。

朋友，刚刚我给你发的链接，刚刚审核通过。麻烦帮忙看下。谢谢谢谢。短消息到上限，发不出。只能在这里借楼回复下您。

娜美小姐

gwjkkkkk 发表于 2023-6-24 18:47
请参考附件。。。

提取文件中每份工作表数据汇总成一份表求助
https://club.excelhome.net/thread-1666188-1-1.html
(出处: ExcelHome技术论坛)

娜美小姐

gwjkkkkk 发表于 2023-6-24 18:47
请参考附件。。。

好友信息我已经超过发送次数，这里借楼回复您。全部更新也行，就是想复制每个工作簿的第一份工作表里数据过去总表。

jian82372387

gwjkkkkk 发表于 2023-6-24 18:47
请参考附件。。。

请问一下因为需在一张A4纸上打印两页的内容，请入如何修改一下可以像图片一样如此类推排列下去

gwjkkkkk

jian82372387 发表于 2023-6-25 10:59
请问一下因为需在一张A4纸上打印两页的内容，请入如何修改一下可以像图片一样如此类推排列下去

这个方便，简单改一下即可，下班回家帮你弄。。。

jian82372387

gwjkkkkk 发表于 2023-6-25 12:03
这个方便，简单改一下即可，下班回家帮你弄。。。

好的，感谢，可以一起加个需求吗，为了方便更改如果税单表里的原因和日期那一栏（底色标红部分），我需要从原因表里引用相关内容。

gwjkkkkk

jian82372387 发表于 2023-6-25 17:23
好的，感谢，可以一起加个需求吗，为了方便更改如果税单表里的原因和日期那一栏（底色标红部分），我需要 ...

更新二点；
1.做了一个自定义，横向可自行选择排几个。
2.需求已加上去了。。。