VBA在工作中的应用-批量添加工资条表头的VBA代码

鄙人曾经使用VBA做了一个用科目余额表自动生成财务报表的小工具（模板），对工作效率的提高那是杠杠的，今天有个前同事突然问了个问题，给几百个员工的工资条添加表头。

代码

批量添加工资条表头的VBA代码如下：

Sub 工资条()
Dim i As Long
For i = 2 To 400
    ActiveCell.Rows("1:1").EntireRow.Select
    Selection.Copy
    ActiveCell.Offset(2, 0).Rows("1:1").EntireRow.Select
    Selection.Insert Shift:=xlDown
    Next
End Sub
 

正如截图中所述，用的时候先激活A1单元格，因为这段代码使用了相对引用。