生成工资条和恢复工资表

　

Sub gzt()
Dim i As Integer
Rows("1:1").Select 

 ‘找到a1
For i = 1 To 10
Selection.Copy
ActiveCell.Offset(2, 0).Rows("1:1").EntireRow.Select   

’offset(行,列)  EntireRow 整行
Selection.Insert Shift:=xlDown

‘Shift:=xlDown  向下移动一行
Next
End Sub

Sub gzb()
Dim i As Integer
Sheet1.Range("a3").EntireRow.Select
For i = 1 To 10
Selection.Delete Shift:=xlUp
ActiveCell.Offset(1, 0).Rows("1:1").EntireRow.Select

’向上移动一行
Next
End Sub