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

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

首页维修大全综合更新时间:2025-04-07 17:44:04

求用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

大家还看了
也许喜欢
更多栏目

© 2021 3dmxku.com,All Rights Reserved.