Sub ランダムな日付データ作成()
Dim fstDate As Date
Dim lstDate As Date
Dim 行番号 As Long
fstDate = #4/1/2011# 'ランダムに作成する最初の日
lstDate = #9/30/2011# 'ランダムに作成する最後の日
Randomize
For 行番号 = 1 To 1000
Cells(行番号, 2) = Int((lstDate - fstDate + 1) * Rnd + fstDate)
Cells(行番号, 2).NumberFormat = "yyyy""年""mm""月""dd""日"""
Next 行番号
End Sub