对账单、询证函等一键生成，这个模板太好用了！看下一篇恭喜下面

点击上方蓝字
「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 ，操作更方便哦
VIP
888
元，一次报名，所有视频课程，终生免费学，提供一年在线答疑服务。

文章图片
报名后加卢子微信chenxilu2019
，发送报名截图邀请进群。
推荐：不想加班，就来学一键生成往来款项询证函！
上篇：一键将多个工作簿合并成多个工作表（完善版）

文章图片
VBA很好用，也很难，如果你有心学习，买2本VBA书籍全面学习。点下方的小程序购买。

分页标题
文章图片
作者：卢子，清华畅销书作者，《Excel效率手册早做完，不加班》系列丛书创始人，个人公众号：Excel不加班（ID：Excelbujiaban）

文章图片
请把「Excel不加班」推荐给你的朋友
无需打赏，请点在看↓↓↓