Sub 指定文字列をランダム入力()
Dim arr(1 To 6) As String
Dim 行番号 As Long
arr(1) = "スターバックスラテ"
arr(2) = "カフェモカ"
arr(3) = "ホワイトモカ"
arr(4) = "ソイラテ"
arr(5) = "カプチーノ"
arr(6) = "キャラメルマキアート"
Randomize
For 行番号 = 1 To 100000
Cells(行番号, 2) = arr(Int*1
Next 行番号
End Sub
*1:Rnd * 6) + 1