生成工资条

zqhsky

Dim f As Integer
f = Cells(65536, 1).End(xlUp).Row
  i = 1
   For m = 1 To f
   Range("A1:ai1").Copy Destination:=Range("an" & i & ":bv" & i)
   i = i + 1
    Range("A" & m + 2 & ":ai" & m + 2).Copy Destination:=Range("an" & i & ":bv" & i)
    i = i + 2
Next