求助EXCEl问题

是 否 +2 论坛币

k人 参与回答

经管之家送您一份

应届毕业生专属福利!

求职就业群

赵安豆老师微信：zhaoandou666

经管之家联合CDA

送您一个全额奖学金名额~ !

立即领取

感谢您参与论坛问题回答

经管之家送您两个论坛币！

+2 论坛币

求助EXCEl问题

在一个数列中有正有负
要求找出能够相加等于0的组合
有没有办法可以编函数做到这个事情

另外：有木有人做过account recon这个东东啊～

扫码加我 拉你入群

请注明：姓名-公司-职位

以便审核进群资格，未注明则拒绝

分享0 收藏0 回帖

关键词：EXCEL exce xcel cel Account 求助 EXCEL

任意两两三三四四相加等于指定数的组合选择宏代码
Option Explicit
Dim arr1 As Variant, j%, z%
Dim dic As New Dictionary
Sub xxxx()
    j = Range("a65536").End(xlUp).Row
    arr1 = Range("a1:a" & j)
    z = InputBox("请输入要得到的结果值:", "hello!!", "75")
    zh 1, 0, ""
    If dic.Count = 0 Then
        MsgBox "无解!!!"
        GoTo aa:
    End If
    Range("b1").EntireColumn.Clear
    Range("b1:b" & dic.Count) = WorksheetFunction.Transpose(dic.Keys)
    Range("b1").EntireColumn.AutoFit
    MsgBox "共" & dic.Count & "种结果"
aa:    Set dic = Nothing
End Sub
Sub zh(i%, x%, y$)
    If x + arr1(i, 1) = z Then
        If Not dic.Exists(y & arr1(i, 1) & "=" & z) Then
            dic.Add y & arr1(i, 1) & "=" & z, ""
        End If
    End If
    If i < j And x < z Then
        If x + arr1(i, 1) < z Then zh i + 1, x + arr1(i, 1), y & arr1(i, 1) & "+"
        zh i + 1, x, y
    End If
   
        
End Sub