如何用VBA制作工资条

使用宏与编写VBA代码的方法也可轻松实现工资条的制作，将宏指定到按钮上，每次只要轻点按钮即可实现工资条的制作。

Sub 工资条()

Dim x AsInteger

Range("A1").Select

For x = 1 ToRange("a1048576").End(xlUp).Row - 2

ActiveCell.Rows("1:1").EntireRow.Select

Selection.Copy

ActiveCell.Offset(2,0).Rows("1:1").EntireRow.Select

Selection.InsertShift:=xlDown

ActiveCell.Select

Next x

End Sub