对账单、询证函等一键生成，这个模板太好用了！
点击上方蓝字「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
询证函也是这种格式，详见文章：不想加班，就来学一键生成往来款项询证函！
链接：
https://pan.baidu.com/s/1JYgfBylYNQ_sp-UoqvRjaw
提取码：ss2l
复制这段内容后打开百度网盘手机App，操作更方便哦
VIP888元，一次报名，所有视频课程，终生免费学，提供一年在线答疑服务。
报名后加卢子微信chenxilu2019，发送报名截图邀请进群。
VBA很好用，也很难，如果你有心学习，买2本VBA书籍全面学习。点下方的小程序购买。
作者：卢子，清华畅销书作者，《Excel效率手册 早做完，不加班》系列丛书创始人，个人公众号：Excel不加班（ID：Excelbujiaban）
请把「Excel不加班」推荐给你的朋友
无需打赏，请点在看↓↓↓