2023-12-24 21:41
admin你看一下这样用得上不？
Sub t()
Dim a, As Integer
For a = 9 To 10000
Range(Cells(a, 8), Cells(a + 5, 8)).Select
Selection.FillDown
a = a + 6
Next
End Sub
顶一下
(0)
0%
踩一下
(0)
0%
- 相关评论
- 我要评论
-
上一篇：返回栏目
你看一下这样用得上不？
Sub t()
Dim a, As Integer
For a = 9 To 10000
Range(Cells(a, 8), Cells(a + 5, 8)).Select
Selection.FillDown
a = a + 6
Next
End Sub
300
300
299
299
299
298
298
298
298
298