VBA: 生成随机递增序列，从 0.031 开始，增量 0.031-0.038，至 31.6 结束

Sub random_increase() Dim i As Double For i = 0.031 To 31.6 Step Application.WorksheetFunction.RandBetween(31, 38) / 1000 Range('C' & Rows.Count).End(xlUp).Offset(1, 0).Value = i Next i End Sub