使用宏与编写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