EXCEL随机拆分几个数值?

A1列:564(
如何在B1(或者A2)随机生成126,25,223,15,175
最后这个数值175其实是到算出来的175=564-126-25-223-15-1.

VBA 插入模块，把下列代码贴上，
使用方法, 在B1输入自定义的公式(第一个参数是要分解的单元格，第二个参数是分解的个数）
=FJ(a1,4)

Private Function FJ(mRng As Range, i%)
Dim mSr%, k%, mArr(), Tem%
ReDim mArr(1 To i)
mSr = mRng.Value
For k = 1 To i - 1
Randomize
Tem = Int(Rnd * mSr / i * 2 + 1)
Do While WorksheetFunction.Sum(mArr) > mSr
Tem = Int(Rnd * mSr / i * 2 + 1)
DoEvents
Loop
mArr(k) = Tem
Next k
mArr(i) = mSr - WorksheetFunction.Sum(mArr)
FJ = Join(mArr, ", ")
End Function

追加：
最后一个数需要额外减1吗？如果需要修改，留言。