对账单、询证函等一键生成，这个模板太好用了！
点击上方蓝字
「Excel不加班」
关注
，
看下一篇
文章图片
恭喜下面3位幸运儿：雪静、博海、假如
， 获得书籍 ， 加卢子微信
chenxilu2019
。
文章图片
复制下面这段内容 ， 打开手机淘宝 ， 即可购买 。
付製这行话HVMT1Qm6JF8转移至淘宀┡ē ， 【【卢子2020新书】卢子Excel高手速成视频教程 excel函数公式大全 excel高级教程 电子表格excel教程书 表格制作 excel教程书籍】
客户对账清单 ， 记录着几十个客户的各种数据 。
文章图片
希望将每个客户的数据引用到模板里面 ， 每个客户生成一个表 。
文章图片
VIP会员的这个问题 ， 用普通的复制粘贴也能实现 ， 就是非常繁琐 ， 需要复制粘贴无数次 。
这种有两种比较常用的解决方案 ， 一个是借助Word邮件合并 ， 另一个是借助VBA ， 今天卢子就分享这个VBA代码 。
VBA有一个好处 ， 就是设置完模板 ， 以后就能一键生成 ， 一劳永逸 。 运行代码 ， 短短几秒就全部生成对账单 。
文章图片
使用VBA的 ， 都需要启用所有宏 。
文章图片
源代码：
Sub 对账单()
Application.ScreenUpdating = False
Application.DisplayAlerts = False
For X = Sheets.Count To 3 Step -1
Sheets(X).Delete
Next
With Sheets("客户对账清单")
For X = 2 To .Cells(Rows.Count, 3).End(3).Row
Sheets("模板").Copy After:=Sheets(Sheets.Count)
ActiveSheet.Name = .Cells(X, 4)
[B1] = .Cells(X, 3)
[B2] = .Cells(X, 4)
[E11] = .Cells(X, 5)
[E12] = .Cells(X, 6)
[E13] = .Cells(X, 7)
[E14] = .Cells(X, 16)
Next
.Select
End With
Application.DisplayAlerts = True
Application.ScreenUpdating = True
End Sub
询证函
也是
这种格式 ，
详见文章：
不想加班 ， 就来学一键生成往来款项询证函！
链接：
推荐阅读
- 杀死美国人的不是新冠病毒，而是一张3万美元的医疗账单
- 一键将多个工作簿合并成多个工作表（完善版）
- 『ETC』广东测试ETC“费显功能”一次行程一张账单能否在全国推行？
- 「一键倾心」湖南卫视“四小花”加盟新节目《一键倾心》
- 收缩毛孔，除了一键美颜还有什么办法？
- 『庄股』炒股账号被盗，一键清仓后又接盘6倍“庄股” 涉事双方回应：内容不实建议直接报警
- 「股民」罕见！股民炒股账号被盗，一键清仓后又接盘6倍“庄股” 涉事双方这样回应
- 『厕所』莱西建设农村厕所智能管护平台 一键上报厕所维护、粪污清运等需求
- 「运营商」三大运营商联合发布《5G消息白皮书》 一键发送“文图音视频”“5G消息”来了
- 武汉，一键重启！经过76天的坚守，终于守得云开见月明