这个该怎么优化

neverzh

Range("s10") = Round(Rnd() * (Range("s8") - Range("s7") - 5) + (Range("s7") + 4), 0)
        Range("t10") = Round(Rnd() * (Range("s8") - Range("s7") - 5) + (Range("s7") + 4), 0)
        Range("u10") = Round(Rnd() * (Range("s8") - Range("s7") - 5) + (Range("s7") + 4), 0)
        Range("v10") = Round(Rnd() * (Range("s8") - Range("s7") - 5) + (Range("s7") + 4), 0)
        Range("w10") = Round(Rnd() * (Range("s8") - Range("s7") - 5) + (Range("s7") + 4), 0)
        Range("x10") = Round(Rnd() * (Range("s8") - Range("s7") - 5) + (Range("s7") + 4), 0)
        Range("s11") = Round(Rnd() * (Range("s8") - Range("s7") - 5) + (Range("s7") + 4), 0)
        Range("t11") = Round(Rnd() * (Range("s8") - Range("s7") - 5) + (Range("s7") + 4), 0)
        Range("u11") = Round(Rnd() * (Range("s8") - Range("s7") - 5) + (Range("s7") + 4), 0)
        Range("v11") = Round(Rnd() * (Range("s8") - Range("s7") - 5) + (Range("s7") + 4), 0)
        Range("w11") = Round(Rnd() * (Range("s8") - Range("s7") - 5) + (Range("s7") + 4), 0)
        Range("x11") = Round(Rnd() * (Range("s8") - Range("s7") - 5) + (Range("s7") + 4), 0)
        Range("s12") = Round(Rnd() * (Range("s8") - Range("s7") - 5) + (Range("s7") + 4), 0)
        Range("t12") = Round(Rnd() * (Range("s8") - Range("s7") - 5) + (Range("s7") + 4), 0)
        Range("u12") = Round(Rnd() * (Range("s8") - Range("s7") - 5) + (Range("s7") + 4), 0)
        Range("v12") = Round(Rnd() * (Range("s8") - Range("s7") - 5) + (Range("s7") + 4), 0)
        Range("w12") = Round(Rnd() * (Range("s8") - Range("s7") - 5) + (Range("s7") + 4), 0)
        Range("x12") = Round(Rnd() * (Range("s8") - Range("s7") - 5) + (Range("s7") + 4), 0)

nb446835

这谁写的，看着不头晕么

neverzh

nb446835 发表于 2017-7-23 16:45
这谁写的，看着不头晕么

就是有点头晕，所以想优化一下啊

香川群子

neverzh 发表于 2017-7-23 16:52
就是有点头晕，所以想优化一下啊

还不知道For循环命令语句吗？

这样循环就可以了。

1. Sub test()
   
2.     t1 = Range("s7"): t2 = Range("s8")
   
3.     t2 = t2 - t1 - 5: t1 = t1 + 4
   
4.     For i = 10 To 12
   
5.         For j = 19 To 24 's to x
   
6.             Cells(i, j) = Round(Rnd * t2 + t1, 0)
   
7.         Next
   
8.     Next
   
9. End Sub

复制代码

香川群子

还可以这样子：

在需要的s10:x12区域中直接输入Rand随机计算公式，
然后把随机公式结果转为值。

1. Sub test2()
   
2.     t1 = Range("s7"): t2 = Range("s8")
   
3.     t2 = t2 - t1 - 5: t1 = t1 + 4
   
4.     Range("s10:x12").Formula = "=round(rand()*" & t2 & "+" & t1 & ",0)"
   
5.     Range("s10:x12") = Range("s10:x12").Value '随机公式结果转为值
   
6. End Sub

复制代码

neverzh

香川群子 发表于 2017-7-23 17:42
还可以这样子：

在需要的s10:x12区域中直接输入Rand随机计算公式，

谢谢，真的很有用