113
2023-12-24 21:41你看一下这样用得上不？
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%
- 相关评论
- 我要评论
-