エクセル|テストデータ作成

1から10,000のランダムな数値をセルA1:A10,000に表示します。数値は重複しています。
テストデータがほしい時によく使用しています。
Sub Test()

Dim myRng As Variant
Dim f As Long
Dim buf(1 To 10000, 1 To 1) As Variant

Randomize
For f = 1 To 10000
  buf(f, 1) = Int(10000 * Rnd + 1)
Next

With Worksheets(“Sheet1”)
  .Range(“A:A”).ClearContents
  .Range(“A1”).Resize(UBound(buf), 1).Value = buf
End With

End Sub