有读者私聊卢子，问如何在Excel中批量生成企业（单位）询征函？

要在Excel中批量生成，如果不懂点VBA，那真的非常困难。如果掌握了，也就是分分钟完成的事儿。

余额表

询证函

需要达到的效果：

一键生成动画

Step 01 按快捷键Alt+F11，插入模块，将代码粘贴上去。

Sub kk()

Application.ScreenUpdating = False

Application.DisplayAlerts = False

For x = Sheets.Count To 3 Step -1

  Sheets(x).Delete

Next

With Sheets("余额表")

  For x = 3 To .Cells(Rows.Count, 2).End(3).Row

    Sheets("询证函").Copy After:=Sheets(Sheets.Count)

    ActiveSheet.Name = .Cells(x, 2)

    [b8] = .Cells(x, 4)

    [c8] = .Cells(x, 3)

    [d8] = .Cells(x, 2)

  Next

  .Select

End With

Application.DisplayAlerts = True

Application.ScreenUpdating = True

End Sub

Step 02 插入任意图片，右键指定宏就可以了。

作者：卢子，清华畅销书作者；个人公众号：Excel不加班（ID：Excelbujiaban）