5个宏如何并为1个宏~？求教

a88259295

代码如下：
C至K列产生随机数字··L列为C至K列各项的和，满足A列的要求就ok
现在5个宏如何能并为一个呢？
求教大家了

Sub range_1()
    Do
    [C3] = Int(Rnd * 2): [D3] = Int(Rnd * 2): [E3] = Int(Rnd * 3): [F3] = Int(Rnd * 2): [G3] = Int(Rnd * 2): [H3] = Int(Rnd * 2): [I3] = Int(Rnd * 2): [J3] = Int(Rnd * 2): [K3] = Int(Rnd * 2)
    [M3] = 5 - Application.Sum([C3:K3])
    Loop While [M3] < 0 Or [M3] > 0
End Sub
Sub range_2()
    Do
    [C4] = Int(Rnd * 2): [D4] = Int(Rnd * 1): [E4] = Int(Rnd * 3): [F4] = Int(Rnd * 2): [G4] = Int(Rnd * 1): [H4] = Int(Rnd * 3): [I4] = Int(Rnd * 2): [J4] = Int(Rnd * 1): [K4] = Int(Rnd * 3)
    [M4] = [B4] - Application.Sum([C4:K4])
    Loop While [M4] < 0 Or [M4] > 0
End Sub
Sub range_3()
    Do
    [C5] = Int(Rnd * 3): [D5] = Int(Rnd * 2): [E5] = Int(Rnd * 4): [F5] = Int(Rnd * 3): [G5] = Int(Rnd * 2): [H5] = Int(Rnd * 4): [I5] = Int(Rnd * 3): [J5] = Int(Rnd * 2): [K5] = Int(Rnd * 4)
    [M5] = [B5] - Application.Sum([C5:K5])
    Loop While [M5] < 0 Or [M5] > 0
End Sub
Sub range_4()
    Do
    [C6] = Int(Rnd * 3): [D6] = Int(Rnd * 3): [E6] = Int(Rnd * 6): [F6] = Int(Rnd * 3): [G6] = Int(Rnd * 3): [H6] = Int(Rnd * 6): [I6] = Int(Rnd * 3): [J6] = Int(Rnd * 3): [K6] = Int(Rnd * 6)
    [M6] = [B6] - Application.Sum([C6:K6])
    Loop While [M6] < 0 Or [M6] > 0
End Sub
Sub range_5()
    Do
    [C7] = Int(Rnd * 5): [D7] = Int(Rnd * 4): [E7] = Int(Rnd * 10): [F7] = Int(Rnd * 5): [G7] = Int(Rnd * 4): [H7] = Int(Rnd * 10): [I7] = Int(Rnd * 5): [J7] = Int(Rnd * 4): [K7] = Int(Rnd * 10)
    [M7] = [B7] - Application.Sum([C7:K7])
    Loop While [M7] < 0 Or [M7] > 0
End Sub

LAOMALIN

for i=3 to 7
Do
cells(i,"c")= Int(Rnd * 2): eells(i,"d") = Int.....
...
next i
类似的改一下

[ 本帖最后由 LAOMALIN 于 2009-6-27 14:54 编辑 ]

a88259295

原帖由 LAOMALIN 于 2009-6-27 14:52 发表
for i=3 to 7
cells(i,"c")=
...
next i
类似的改一下

能具体点吗··？

a88259295

a88259295

求解~~~~~~~~