一行多次复制VBA

nnsea

Sub offset应用1()
Dim i%
For i = 2 To 8 Step 2
[a1:e1].Copy [a1:e1].Offset(i)
Next i
End Sub