1、打开excel,打开公司员工情况流水表格

2、点击开发工具,选择插入---按钮。右键点击按钮,选择指定宏。


3、创建宏,输入如图中的代码,
Sub 开始()
Dim i As Long
For i = 2 To 1000
ActiveCell.Rows("1:1").EntireRow.Select
Selection.Copy
ActiveCell.Offset(2, 0).Rows("1:1").EntireRow.Select
Selection.Insert shift:=xlDown
ActiveCell.Select
Next
End Sub
保存宏文件

4、鼠标定位在A1单元格,点击按钮,工资条就做好了。

