VBA 设置单元格内容

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