VBA代码：一键生成工资条和工资表

代码如下：

Sub gongzitiao()

Dim i As Integer

Dim n As Integer

n = Cells(Rows.Count, 1).End(xlUp).Row - 2

ActiveSheet.Rows("1:1").Select

For i = 1 To n '这里写上

    Selection.Copy '复制第一行

        ActiveCell.Offset(2, 0).EntireRow.Select

        Selection.Insert shift:=xlDown

    Next i

End Sub

Sub gongzibiao()

Dim i As Integer

Dim n As Integer

n = Cells(Rows.Count, 1).End(xlUp).Row / 2 - 1

ActiveSheet.Rows("3:3").Select

For i = 1 To n

    Selection.Delete shift:=xlDown

    ActiveCell.Offset(1, 0).EntireRow.Select

Next i

End Sub