Excel VBA生成固定总和的随机小数问题求助

原代码无法生成小数的核心原因是WorksheetFunction.RandBetween仅支持生成整数随机数。要实现生成1.5-2.2之间、总和固定为30的20个随机小数，需要改用Rnd()函数生成小数，并调整逻辑确保最后一个数也落在指定区间内。

修改后的完整代码如下：

Private Sub RandGen()
    Dim totalTarget As Double
    Dim numCells As Integer
    Dim minValue As Double
    Dim maxValue As Double
    Dim rng As Range
    Dim cell As Range
    Dim i As Integer
    Dim currentSum As Double
    Dim remainingTotal As Double
    Dim isValid As Boolean

    ' 定义核心参数
    totalTarget = 30
    numCells = 20
    minValue = 1.5
    maxValue = 2.2

    Set rng = ActiveSheet.Range("A3:A" & numCells + 2)
    rng.ClearContents

    Do
        isValid = True
        currentSum = 0
        Randomize ' 初始化随机数生成器，确保每次运行结果不同

        ' 生成前19个随机小数
        For i = 1 To numCells - 1
            Set cell = rng.Cells(i, 1)
            ' 公式生成[minValue, maxValue]区间内的随机小数
            cell.Value = minValue + (maxValue - minValue) * Rnd()
            currentSum = currentSum + cell.Value
        Next i

        ' 计算最后一个数，确保总和达标
        remainingTotal = totalTarget - currentSum
        ' 验证最后一个数是否在指定范围内
        If remainingTotal < minValue Or remainingTotal > maxValue Then
            isValid = False
            rng.ClearContents ' 不符合则清空重生成
        End If
    Loop Until isValid

    ' 写入符合要求的最后一个数
    rng.Cells(numCells, 1).Value = remainingTotal
End Sub

关键修改说明： #

• 替换随机数生成方式：用minValue + (maxValue - minValue) * Rnd()替代RandBetween，Rnd()返回0到1之间的随机数，通过线性映射转换为目标区间内的小数。
• 增加有效性校验：直接生成前19个数可能导致最后一个数超出1.5-2.2的范围，加入循环校验直到所有数都符合区间要求。
• 变量名优化：将原total改为totalTarget，明确表示固定目标总和，避免与剩余值混淆。

内容的提问来源于stack exchange，提问作者Prabhat Vishwas