Question

将50个不重复数字选取6个进行求和，列出等于特定值（如20或50）所有组合，用电子表格的VBA解决

有时可能有重复数字，所以要把这些输入的数字从新赋值给数组，再求解！我这里有一个样本但不完善，求大神帮助！

Answer 1

Sub sum20()
    m = 1
    For i = 1 To 20
        For j = i + 1 To 20
            For k = j + 1 To 20
                If i + j + k = 22 Then
                    Cells(m, 1) = i & "," & j & "," & k
                    m = m + 1
                End If
            Next
        Next
    Next
End Sub

我这里以20个数字取3个求和为22为例.20个数字设定为1-20.

不知道能满足你要求么

追问

数字可能重复，所以要把输入的数字重新赋值给一个数组才行，列入输入的10个数字分别为1、2、3、4、1，2，5，8，9，1，6分别赋值给A1到A10，再从A1到A5中选取3个逐一求和，将满足条件的输出，并计算总共有多少中组合，谢谢！