鄙人曾经使用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单元格,因为这段代码使用了相对引用。