在表中生成隨機數

Question

我想在從第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 

而且我不得不每次直到排QR寫Range(" " & i)=RND()。我想知道一個快速簡便的方法來做到這些。

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 

注：沒有循環，沒有複製。