亲爱的财务工作者们，您是否常常要制作工资条？网络上疯传的制作方法，既有图解，又有视频解说，各式各样。尽管方法众多，但每次都要重新编写，是不是有些烦恼呢？没关系，让我告诉您，有一种神器，一键生成，您只需轻点鼠标。
最近，我正在学习vba，借此机会，为大家编写了一个小工具，只要轻轻一点，工资条就能瞬间生成。具体的操作步骤如下：
首先，有必要获取表头范围和最后一行的行号。您需要在当前激活的工作表中完成这两步操作。这样，通过下面的代码，我们就可以一次性添加空行并复制表头了。
Sub 插入空行并复制表头()
Dim i As Long
Dim lastRow As Long
Dim headerRange As Range
' 获取表头范围（假设表头在第1行）
Set headerRange = Rows(1)
' 获取最后一行的行号
lastRow = ActiveSheet.Cells(Rows.Count, 1).End(xlUp).Row
' 循环插入空行并复制表头
For i = lastRow To 3 Step -1
Rows(i).Insert
headerRange.Copy Rows(i)
Next i
End Sub
其次，在您的表格中，找到“开发工具”，点击“Visual Basic”，启动vb编辑器。之后，在左侧菜单中点击右键，选择“插入模块”。将上面的代码复制进去。
接着，确保当前表格处于激活状态，点击F5运行代码。最后，为了方便日常使用，请将此表格保存为xlsm格式。
希望这个小工具能对您有所帮助。以后只要将需要制作工资条的表格复制过来，在“开发工具”中找到“宏”，点击“打开”，运行这段代码即可轻松完成制作。不用再为每一次的重复编写而烦恼了，是不是感觉轻松不少呢？