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

Question

关于exxel的。最佳答案奖励20块红包。excel，给出头尾两个数，中间有十个空格。把这两个数的差值除以10，在这平均数左右加减1-20的情况下。不规则平摊十份。然后从给出的头数递减到给出的尾数。 打个比方。给出的数是200跟50。差值是150。平均数是15。则，200 181 161 155 136 121 105 90 81 75 60 50。
用公式能做吗。还是要用编程。要用怎样的公式或者编程。给出能做的公式奖励20块红包。

Answer 1

=$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)

追问

刚看到呢。晚点我试试看

Answer 2

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

给个代码的。

追问

直接表格里=这样的函数，还是外部调用这样的编程

追答

自己看。三键输入。

Answer 3

不信