在Sheet1做工资表，在Sheet2中自动生成工资条，
在Sheet1做工资表，在Sheet2中自动生成工资条，Sheet1中的第1行为＊＊月薪资，第2、3行为类别Sub 工资()
Dim ws As Integer
For ws = 1 To (Sheets(1).Range("a65536").End(xlUp).Row - 3) * 4 Step 4
Sheets(1).Select
Range("2:3").Select
Selection.Copy
Sheets(2).Select
Range("A" & ws).Select
ActiveSheet.Paste
Next ws
fff
End Sub
Sub fff()
Dim rng As Integer
For rng = 4 To Sheets(1).Range("a65536").End(xlUp).Row
Sheets(1).Select
Rows(rng).Select
Selection.Copy
Sheets(2).Select
Range("a" & rng * 4 - 13).Select
ActiveSheet.Paste
Next
End Sub
页:
[1]