在表中生成随机数字

我想要在从第14行到第1013行，从第B行到第C行，从第E行到第QR行的表中生成随机数。 我有这个代码：

Sub GenerateRandom() Dim i As Long For i = 14 To 1013 Range("B" & i) = Rnd() Range("C" & i) = Rnd() Range("E" & i) = Rnd() Range("F" & i) = Rnd() Range("G" & i) = Rnd() Range("H" & i) = Rnd() Next i Randomize End Sub 

我将不得不每次写Range(" " & i)=RND()直到行QR。 我想知道一个快速简单的方法来做到这一点。

Answer 1

干得好：

 Sub Mariana() RandomValues [b14:c1013] RandomValues [e14:qr1013] End Sub Sub RandomValues(r As Range) r.Formula = "=rand()" r.Value = r.Value End Sub 

注意：没有循环和不复制。