关于exxel的。最佳答案奖励20块红包。excel，给出头尾两个数，中间有十个空格。把这两个数的

关于exxel的。最佳答案奖励20块红包。excel，给出头尾两个数，中间有十个空格。把这两个数的

=$A$1-INT(($A$1-$L$1)/11*COLUMN(A1))+MIN(20,INT(RAND()*(10-($A$1-$L$1)/22)))*(2*(RAND()>0.5)-1)

追问：刚看到呢。晚点我试试看

Function J均分(iStart#, iEnd#, n%)
 Dim cha#(), U输出#(), i%, bs#, s#
 ReDim cha#(1 To n), U输出#(1 To n)
 s = Rnd(): For i = 1 To n: cha(i) = Rnd(): s = s + cha(i): Next i
 bs = (iStart - iEnd) / s: U输出(1) = iStart - Int(bs * cha(1))
 For i = 2 To n: U输出(i) = U输出(i - 1) - Int(bs * cha(i)): Next i
 J均分 = Application.WorksheetFunction.Transpose(U输出)
End Function
给个代码的。

追问：直接表格里=这样的函数，还是外部调用这样的编程
追答：
自己看。三键输入。