VBA 生成随机数序列：从 0.031 开始，步长 0.031-0.038，上限 31.6

Sub RandomNumber() Dim i As Integer Dim num As Double num = 0.031

For i = 1 To 1000
    Range('C' & i).Value = num
    num = num + WorksheetFunction.RandBetween(1, 8) / 1000
    If num >= 31.6 Then Exit For
Next i

End Sub