工资发放表（Excel一键生成2020年保密工资签收清单）

VIP学员的问题，要根据原始数据，按照最终形式这个模板，批量生成每个人1-10月的总工资，一个人一个工作表。

原始数据

最终形式，只引用姓名、1-10月保密工资两个内容。

对于这种可以使用Word邮件合并，也可以使用VBA一键生成。

点按钮保密工资批量生成，经过几秒钟就全部生成完毕。

Sub 保密工资批量生成()

Dim i As Integer

For i = 1 To Sheets("原始数据").Range("a60000").End(xlUp).Row - 1

Sheets("最终形式").Select

Sheets("最终形式").Copy After:=Sheets(Sheets.Count)

Sheets(Sheets.Count).Name = Sheets("原始数据").Range("A" & i + 1)

Sheets(Sheets.Count).Range("A8") = Sheets("原始数据").Range("A" & i + 1)

Sheets(Sheets.Count).Range("C8") = Sheets("原始数据").Range("L" & i + 1)

Next

End Sub

财务工作中，你是否遇到焦头烂额不知如何解决的问题呢？

本来到这里就可以了，后来我一想，后面学员可能需要将生成的工作表删除，于是我又增加了一段代码。

Sub 删除保密工资()

Dim i As Integer

Application.DisplayAlerts = False

For i = Sheets.Count To 3 Step -1

Sheets(i).Delete

Next

Application.DisplayAlerts = True

End Sub

其实，不管生成或者删除，都是用到For Next循环，这个真的很好用，我经常用这个循环。

生成工作表的，就是简单的某个表的某个单元格=另外一个表的另外一个单元格，只要你懂的单元格怎么写就行。

删除工作表的时候，记得从后面开始删，不能从前面往后面删，要不然循环的时候会出错。For i = Sheets.Count To 3 Step -1 这个就是从最后一个表到第3个表，步长为-1。

删除工作表的时候，正常会弹出警告对话框，Application.DisplayAlerts = False 这个就是关闭警告对话框，这样就可以一次性删除，删除后再开启警告对话框Application.DisplayAlerts = True。

来源：Excel不加班

通知获取

1、下方评论区：领取，并转发收藏；

2、然后点击小编头像，找到私信功能、私我回复：【学习】，即可免费领取