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 设置单元格内容
猜你喜欢
转载自blog.csdn.net/osummertime/article/details/73499607
今日推荐
周排行