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