写一段vba的随机数据

Sub RandomData()

Dim i As Integer Dim j As Integer

Randomize '初始化随机数生成器

For i = 1 To 10 '生成10行数据 For j = 1 To 5 '每行生成5个随机数 Cells(i, j).Value = Int((100 - 1 + 1) * Rnd + 1) '生成1~100的随机整数 Next j Next i

End Sub