在表格中生成随机数

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

每次我必须写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

注意：没有循环，也没有复制。