两个总数

[Smile_Tiger]

总数1：5356.43
总数2：18475.86
431.4
33.08
345
3582.95
341.95
107.04
450
782.64
3398.85
11081.75
3277.63
求总数1和总数2分别有哪几个数相加？？

[夜鹰]

貌似没有任何两组数字能组成总数1和总数2

Dim arr, arr1, q
Sub main()
  Dim n%, r%, s%
  Dim strTemp As String
  Dim intTemp
  intTemp = 9E+307
  n = Range("a65535").End(xlUp).Row - 1
  r = [d2]
  q = 0
  ReDim arr(1 To nx(n) / nx(r) / nx(n - r))
  ReDim arr1(1 To nx(n) / nx(r) / nx(n - r))
  cmb n, r, ""
  For l = 1 To q
    strTemp = ""
    For k = 1 To r
    strTemp = Range("a" & Split(arr(l), " ")(k - 1) + 1) & "+" & strTemp
    Next
    arr(l) = strTemp & 0
    If Abs(Evaluate(strTemp & 0) - [d1]) < intTemp Then
        intTemp = Abs(Evaluate(strTemp & 0) - [d1])
        s = l
    End If
    arr1(l) = Evaluate(strTemp & 0)
  Next
  [i2:i65536].ClearContents
  [i2].Resize([d2], 1) = Application.Transpose(Split(arr(s), "+"))
  
End Sub
Sub cmb(ByVal n As Integer, ByVal r As Integer, ByVal s As String)
  Dim i%
  If r = 1 Then
    For i = 1 To n
    q = q + 1
    arr(q) = i & " " & s
    Next i
    Exit Sub
  ElseIf n = r Then
    q = q + 1
    For i = 1 To n
      arr(q) = arr(q) & i & " "
    Next i
    arr(q) = arr(q) & s
    Exit Sub
  End If
  cmb n - 1, r, s
  cmb n - 1, r - 1, n & " " & s
End Sub
Function nx(n)
  Dim i%
  nx = 1
  For i = 2 To n
    nx = nx * i
  Next i
End Function
Sub test()
MsgBox Split("1-2-3-4-", "-")(4)
End Sub

[tanta]

两重循环解决问题。

[生命练习生123]

双层循环，塞选重复

[砸死牛顿的苹果]

每个数 选取 与 不选取 两种状态 一共 2^N种

[weixin_43191973]

这题出的跟闹着玩似的，竟然没答案