优化：Private Sub CommandButton1_Click Dim i As Double j As Double k As Double l As Double m As Double n As Double i = 0031 k = 233166 316 j = i k l = 0 m = 0005 + WorksheetFunctionRa

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 Su