救命啊 我真的非常需要这个方法

右边相加的ABCD等数值是随机的

看了你的回答，发现你根本没描述清楚，最关键的是你希望几个随机数加起来等于左边

10=2+8 ，10=1+3+6 ，10=2+2+2+4，原则是什么，最少的数字相加？候选数能不能重复使用？如果候选数怎么组合都得不出结果怎么办？所有的都要描述清楚。

这样？
Sub 随机凑数()
Dim targetValue As Double
Dim currentSum As Double
Dim addend As Integer
Dim resultString As Strin
' 从A1单元格获取目标值
targetValue = Range("A1").Valu
' 初始化当前和与结果字符串
currentSum = 0
resultString = "
' 循环生成随机数直到达到或超过目标值
Do While currentSum < targetValue
' 生成一个介于1到(targetValue - currentSum)之间的随机数
addend = Application.WorksheetFunction.RandBetween(1, targetValue - currentSum)
currentSum = currentSum + addend
If resultString = "" Then
resultString = CStr(addend)
Else
resultString = resultString & "+" & CStr(addend)
End If
Loop
' 将结果字符串写入B1单元格
Cells(1, 2).Value = resultString
' 显示完成消息
MsgBox "加法表达式已生成并写入B1单元格"
End Sub

Function 随机凑数(targetValue As Double) As String
Dim currentSum As Double
Dim addend As Integer
Dim resultString As String
' 初始化当前和与结果字符串
currentSum = 0
resultString = ""
' 循环生成随机数直到达到或超过目标值
Do While currentSum < targetValue
' 生成一个介于1到(targetValue - currentSum)之间的随机数
addend = Application.WorksheetFunction.RandBetween(1, Int(targetValue - currentSum))
currentSum = currentSum + addend
' 构建结果字符串
If resultString = "" Then
resultString = CStr(addend)
Else
resultString = resultString & "+" & CStr(addend)
End If
Loop
' 返回结果字符串
随机凑数 = resultString
End Function