求用VBA编一段代码 详细如下

Option ExplicitSub test() Dim ln As Long, k As Long, i As Long k = 8 With ActiveSheet ln = .[a60000].End(3)

.Row

For i = 1 To ln Step 15 .Range("a" & i & ":a" & i + 14)

.Copy

.Range("e" & k) k = k + 37 Next i End WithEnd Sub