Excel VBA 宏：在特定列中添加数据并使用随机数

Private Sub CommandButton1_Click() Dim i As Double, j As Double, k As Double, l As Double, m As Double, n As Double Dim lastRow As Long i = 0.031 k = 2331.66 / 31.6 j = i * k l = 0 m = 0.005 + WorksheetFunction.RandBetween(1, 9) / 10000 + WorksheetFunction.RandBetween(1, 9) / 100000 + WorksheetFunction.RandBetween(1, 9) / 100000 n = m lastRow = Range('A' & Rows.Count).End(xlUp).Row While i <= 31.6 And j <= 2331.66 l = l + 1 Range('A' & lastRow + l).Value = l Range('B' & lastRow + l).Value = 1008 Range('C' & lastRow + l).Value = i Range('D' & lastRow + l).Value = j Range('E' & lastRow + l).Value = n i = i + 0.031 + WorksheetFunction.RandBetween(1, 4) / 1000 j = i * k n = m + n Wend Range('A' & lastRow + l).Value = l Range('B' & lastRow + l).Value = 1008 Range('C' & lastRow + l).Value = 31.57 Range('D' & lastRow + l).Value = 2331.66 Range('E' & lastRow + l).Value = n + m End Sub