怎样使用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 NextEnd Sub

4、返回文档，将活动单元格停在“A1”，然后返回vba，“运行”——“运行子过程”

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