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

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

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 NextEnd Sub

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