Question

excel中A1为固定数字，如何根据设定的数值范围随机分到A2-A100表格中。

excel中A1为固定数字，如何根据设定的数值范围随机分到A2-A100表格中，A2-A100数值总和等于A1值。

Answer 1

如果A1为1000，需要分配到A2:A100单元格中，生成7以上的随机数，那么选择B2:B100单元格，输入=RAND() 按Ctrl+Enter组合键结束；
然后选择A2:A100单元格，输入=7+(A$1-99*7)*B2/SUM(B$2:B$100) 按Ctrl+Enter组合键结束。

Answer 2

生成的数是整数还是小数？如果是小数，那要保留几位小数？

给你写段VBA，如下：

Public Sub 按总和生成随机数()
Dim InRng As Range, OutRng As Range, DotPos As Long, NumCount As Long, Arr() As Double, ToTalTemp As Double, TotalTemp2 As Double, i As Long
Set InRng = Application.InputBox("请选择或输入总和所在的单元格(例如A1):", "请选择表示总和的单元格", , , , , , 8)
Set OutRng = Application.InputBox("请选择或输入生成随机数的区域(例如A2:A100):", "请选择随机数生成区域", , , , , , 8)
DotPos = Application.InputBox("请输入随机数的小数位数（整数为0，两位小数为2等）", "输入随机数小数的位数", , , , , , 1)
OutRng.NumberFormatLocal = "G/通用格式"
NumCount = OutRng.Cells.Count
ToTalTemp = 0
TotalTemp2 = 0
ReDim Arr(NumCount - 1)
Randomize
Do
    For i = 0 To NumCount - 1
        Arr(i) = Rnd()
        ToTalTemp = ToTalTemp + Arr(i)
    Next
    For i = 1 To NumCount - 1
        OutRng.Cells(i) = Round(InRng.Value * Arr(i - 1) / ToTalTemp, DotPos)
        TotalTemp2 = TotalTemp2 + OutRng.Cells(i)
    Next
    OutRng.Cells(i) = InRng.Value - TotalTemp2
Loop While OutRng.Cells(i) < 0
End Sub

追问

整数

追答

我上面的代码生成整数和小数都可以的，运行时会让你输入“保留的小数位数”的，此时你输入保留小数位数为0即为整数了