Sub handle(k, h, g, l)
For i = g To l Step 1
For j = 0 To h - 1 Step 1
Sheet2.range("a" & (k) + j) = i
Next
k = k + h
Next
End Sub
Sub Macro1()
Call handle(3, 3, 1, 10)
Call handle(33, 4, 11, 20)
Call handle(73, 5, 21, 30)
Call handle(123, 6, 31, 40)
Call handle(183, 7, 41, 50)
End Sub
VBA 设置单元格内容
最新推荐文章于 2023-06-24 13:30:50 发布