各位大佬，萌新求助！！！！

只把图一中的账户和户名填到图二里，都是excel表格。然后最终要A4纸打印出来，有两百多户，求大佬教学帮忙！！！！！！

去看一下邮件合并。

当前工作簿需要2个工作表，一个是源数据，另外一个就是模板（调整好打印位置，能打印到一张工作表就可以了) 。后面就是一个for走一圈打印一下就可以了。最好能提供模拟附件到百度网盘。

如果是一行对应一张表的话，直接参考这个帖子https://tieba.baidu.com/p/8825005834

找个打印标签的软件，在上面设置成A4，然后，吧空表粘进去，链接你的excel（数据源），设置每行数据对应位置，打印成PDF，再用普通打印机打印（也可以直接跳过PDF那步直接打印出来）

按模板填充数据，简单到爆，我帮人都写了不知道多少遍vba代码了。文件发给我2/5/8/0/0/0/7/6/8/@qq .c/o/m，晚上就给你做了

Option Explicit
Sub 按模板填充()
Dim arr(), i%, j%, iRowsPerPageA4%, rngFrame As Range
Dim shtResult As Worksheet
arr = ThisWorkbook.Worksheets("基础表").Range("A1").CurrentRegion.Value2
'Set shtResult = ThisWorkbook.Worksheets("结果表")
ThisWorkbook.Worksheets("模板").Copy after:=ThisWorkbook.Sheets(3)
Set shtResult = 网页链接 '结果表用新生成的，免得冲掉了旧表（毕竟没有原文件，不知道具体情况）
ThisWorkbook.Worksheets("模板").网页链接 shtResult.Range("A1") '模板复制到结果表,这个是为了列宽也复制过来
iRowsPerPageA4 = 35 '我这例子是A4纸每页35行
Set rngFrame = ThisWorkbook.Worksheets("模板").Rows("1:" & iRowsPerPageA4) '空框架行，即模板行
With shtResult
.Name = "结果表by随风"
For i = 2 To UBound(arr)
网页链接 .Cells(iRowsPerPageA4 * (i - 2) + 1, 1) '框架
.Cells(iRowsPerPageA4 * (i - 2) + 3, 2).Value = arr(i, 1) '帐号
.Cells(iRowsPerPageA4 * (i - 2) + 4, 2).Value = arr(i, 2) '户名
Next i
End With
End Sub

扫二维码下载贴吧客户端

下载贴吧APP
看高清直播、视频！

8回复贴，共1页

<<返回excel吧

分享到:

日	一	二	三	四	五	六