如何拆分总表数据为一个个分表（或者将总表数据实现指定格式的批量打印）【已解决....

babol

【已解决，经过老师们指点，用word邮件合并结合Excel数据即可，具体实操看楼下】


目的：把这张总表中的5户人，分别导入到分表格式中，分5个工作表并打印（上传了5个例子，我有几百份数据需要处理）。
也可以不生成5张分表，能打印出来就好。总表和分表数据基本一一对应，但是一个横排，一个竖排。以分表格式顺序为准，总表顺序可调。
请老师们指点，我需要方法，因为我有几百个人需要导出或打印，最主要目的是打印出几百份分表，能批量打印最好，不能就生成的分表一一打印。
先谢谢答复的各位老师。

3190496160

先留个记号，下午看看

洋务德雷

你这个是典型的邮件合并。使用word编辑表格形式。用word里面的邮件合并功能。连接Excel中的数据。生成各自的数据后，打印出来就可以了。

3190496160

邮件合并的效果，仅供参考，当然，vba代码也能做到
表格.rar (45.11 KB, 下载次数: 4)

2023-11-7 14:27 上传

点击文件名下载附件

babol

洋务德雷 发表于 2023-11-7 13:54
你这个是典型的邮件合并。使用word编辑表格形式。用word里面的邮件合并功能。连接Excel中的数据。生成各自 ...

那我先检索一下怎么能邮件合并，谢谢

babol

3190496160 发表于 2023-11-7 14:28
邮件合并的效果，仅供参考，当然，vba代码也能做到

谢谢。就是有些数字保留位数太多，不过关键是不会生成，我先检索下关键字看看能不能学会。

3190496160

Sub 填表()
Application.ScreenUpdating = False
Dim ar As Variant
ReDim arr(1 To Sheets.Count)
With Sheets("sheet1")
    r = .Cells(Rows.Count, 1).End(xlUp).Row
    If r < 2 Then MsgBox "数据源为空！": End
    ar = .Range("a1:ak" & r)
End With
With Sheets("分表")
    rs = .Cells(Rows.Count, 1).End(xlUp).Row
    If rs >= 35 Then .Rows("35:" & rs).Delete
    m = 35
    For i = 2 To UBound(ar) - 1
        .Rows("1:34").Copy .Cells(m, 1)
        m = m + 34
    Next i
    m = 2
    For i = 2 To UBound(ar)
        If Trim(ar(i, 1)) <> "" Then
            .Cells(m, 2) = ar(i, 1)
            .Cells(m, 4) = ar(i, 2)
            xh = m + 2
            .Cells(xh, 6) = ar(i, 7)
            .Cells(xh + 4, 6) = ar(i, 15)
            .Cells(xh + 11, 6) = ar(i, 28)
            .Cells(xh + 24, 6) = ar(i, 32)
            .Cells(xh + 27, 6) = ar(i, 35)
            .Cells(xh + 29, 6) = ar(i, 36)
            .Cells(xh + 30, 6) = ar(i, 37)
            For j = 3 To UBound(ar, 2) - 3
                If InStr(ar(1, j), "★") = 0 Then
                    xh = xh + 1
                    .Cells(xh, 5) = ar(i, j)
                End If
            Next j
            m = m + 34
        End If
    Next i
End With
Application.ScreenUpdating = True
MsgBox "ok!"
End Sub

3190496160

vba完成的
总表.rar (26.27 KB, 下载次数: 6)

2023-11-7 15:46 上传

点击文件名下载附件

babol

感谢回复，还辛苦用vba编辑。刚刚已百度了邮件合并，简单易学，对我够用了，多谢上面老师费心。
顺便附上学习结果，转自知乎https://zhuanlan.zhihu.com/p/610881188
看这篇Word邮件合并的超详细用法，就够了
风醉清熙颐
风醉清熙颐

在平常的工作中，我们经常要批量制作一些主要内容相同，只是部分数据有变化的文件，比如成绩单、邀请函、名片等，如果一个个制作的话，会浪费大量的时间。这时候我们就可以利用Word的邮件合并功能，它可以帮助我们快速批量的生成文件，不仅操作简单，而且还可以设置各种格式、打印效果又好，可以满足许多客户不同的需求。

常用到邮件合并的工作：
批量打印信封、批量打印信件、批量打印请柬、批量打印工资条、批量打印个人简历、批量打印学生成绩单、批量打印各类获奖证书、批量打印准考证、明信片等个人报表。
总之，有数据源（Excel电子表格、数据库等），需要批量生成，就可以很方便的按记录的方式从WROD中用邮件合并功能进行打印。

下面我们以制作物业费催款单、律师函为例给大家介绍一下邮件合并的具体使用方法：
第一步：在Excel表格中录入名单信息，然后保存关闭此Excel文件。

名单信息，可以由其他管理软件导出。这里以手动录入的方法做介绍。

催款单和律师函，共用一个excel数据表就够了，也可以分开使用不同的数据表。
注：这里介绍一下，金额数字转成大写的方法和月数自动计算方法：

1、使用“设置单元格格式”-特殊-人民币大写

2、使用万能公式

=TEXT(INT(I2),"[DBNUM2]")&"元"&TEXT(MID(I2,LEN(INT(I2))+2,1),"[DBNUM2]D角")&TEXT(MID(I2,LEN(INT(I2))+3,1),"[DBNUM2]D分")&"整"
这里我们要用邮件合并，所以使用方法2来转换人民币大写。

3、月数计算公式

=DATEDIF(L2,M2,"M")
注意DATEDIF公式参数，时间前后的选择，否则会提示错误信息。

第二步：打开准备好的Word模板。

催费通知合并 - 副本.docx
14K
百度网盘
催交物业费律师函合并 - 副本.docx
18.1K
百度网盘

第三步：点击“邮件”选项卡“开始邮件合并”功能组中的“选择收件人”下拉按钮，在下拉列表中选择 “使用现有列表”，弹出“选取数据源”对话框，然后选择准备好的Excel工作表，点击“打开”。

第四步：将光标定位在Word文档中需要插入信息的位置，点击“邮件”选项卡“编写和插入域”功能组中的“插入合并域”下拉按钮，在下拉列表中选择对应的信息，本例中选择“姓名”，点击“插入”按钮，然后关闭“插入合并域”对话框，此时文档中相应位置会出现已插入的域标记。

第五步：预览结果，发现问题：1.面积部分小数点位数太长，2.时间格式不符合惯例，3.金额没有符号，4.大写没有转换成功。解决办法：

1、面积：在插入的面积域上，右键，切换域代码，显示{ MERGEFIELD 面积 }修改为{ MERGEFIELD 面积 \# 0.00 },然后右键点击更新域。

2、时间：{ MERGEFIELD 生活垃圾欠费起始日期 }修改为{ MERGEFIELD 生活垃圾欠费起始日期 \@ YYYY-MM-DD },然后右键点击更新域。（大写字母YYYY，MM，DD）

3、金额：{ MERGEFIELD 生活垃圾欠费金额 }修改为{ MERGEFIELD 生活垃圾欠费金额 \# ￥ ####0.00 }，然后右键点击更新域。

4、大写：{ MERGEFIELD 合计欠费金额大写 }修改为{ MERGEFIELD 生活垃圾欠费金额 \* CHINESENUM2 },然后右键点击更新域。

5、律师函最后的发函日期，如果想用中文的方法，需要修改日期代码为{ MERGEFIELD 发函日期 \@ EEEE年O月A日 }，右键点击更新域。（大写字母E，O，A）

第六步：点击“邮件”选项卡“完成”功能组中的“完成并合并”下拉按钮，在下拉列表中点击“编辑单个文档…”，弹出“合并到新文档”对话框，选择“全部”，点击“确定”。此时就会在新窗口中合并生成一个新文档，文档中包含了表格里所有人的信息。

babol

论坛好像现在有问题，不能引用回复。感谢上面老师答复，特别是还用vba编辑。
我已百度邮件合并学会了，简单够用。附上学习的帖子：https://zhuanlan.zhihu.com/p/610881188