优化代码： Dim zsy1 As Range zsy2 As Range zsy3 As Range zjy1 As Range zjy2 As Range zjy3 As Range Set zsy1 = RangeF10K10 要分配值的区域 Set zsy2 = RangeL10Q10 Set zsy3 = RangeR10W10 Set zjy1 = Ran

优化后代码： Dim ranges(1 To 6) As Range '将要分配值的区域存储在数组中 Dim i As Integer For i = 1 To 6 Set ranges(i) = Range(Cells(10, (i - 1) * 6 + 6), Cells(10, (i - 1) * 6 + 11)) Next i Dim value As Double, addvalue As Double value = Int(((300 - 250 + 10) * Rnd) + 250) / 10 '从26.5开始递增 addvalue = Int(((210 - 150 + 10) * Rnd) + 150) / 10 For i = 1 To 6 Dim cell As Range For Each cell In ranges(i) '循环遍历区域中的每个单元格，将值分配给它们 cell.Value = value value = value + addvalue '递增值 Next cell Next