怎样使用excel vba快速制作工资条

1、打开需要制作的excel文档

2、使用 “Alt + F11” ，打开vba；双击 “Sheet1(Sheet1)”

3、输入如下代码 ：

Sub 工资条()

    Dim i As Long

    For i = 1 To 20

    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”，然后返回vba，“运行”——“运行子过程”

5、返回文档，即可看到结果，完成。