如何找到哪个值创建最大组合 - Excel VBA答案

【问题标题】：How to find which value creates maximum combination - Excel VBA如何找到哪个值创建最大组合 - Excel VBA
【发布时间】：2013-09-17 05:17:45
【问题描述】：

我需要找出在 Excel Vba 中创建如下所示的最大组合的值

假设，我有这样的组合

a   a+b a+b+c   1   1+2 1+2+1   3   4
b   a+c a+b+d   2   1+1 1+2+3   2   6
c   a+d a+b+e   1   1+3 1+2+2   4   5
d   a+e a+c+d   3   1+2 1+1+3   3   5
e   b+c a+c+e   2   2+1 1+1+2   3   4
    b+d a+d+e       2+3 1+3+2   5   6
    b+e b+c+d       2+2 2+1+3   4   6
    c+d b+c+e       1+3 2+1+2   4   5
    c+e b+d+e       1+2 2+3+2   3   7
    d+e c+d+e       3+2 1+3+2   5   6

我需要找出哪些组合创造了最大值，在这种情况下，值“7”是由 2、3、2 创建的最大值。因此，我希望这些值作为唯一单元格中的输出。我可能有数千种组合，因此我希望自动找到这些组合并自动在唯一的单元格中输出并进一步运行程序。请帮忙。

谢谢巴拉吉

【问题讨论】：

你尝试=CountIf()了吗？
output b, c, d, to other cell 是什么意思？像由“b、c、d”组成的字符串还是输出到唯一单元格的每个单独的值？
标题说 - Excel VBA，帖子说公式？你在找哪一个？此外，要求代码的问题必须证明对正在解决的问题有最低限度的理解。包括尝试的解决方案、它们为什么不起作用以及预期的结果。另见：Stack Overflow question checklist
您可能希望查看 this post 以在 VBA 中列出组合。虽然，我认为这里的问题是微不足道的，只需排序即可解决。
对于这个函数，总和，答案很明显：最大的单个值将导致最大的函数结果。所以，你真正的问题是如何找到最大值。

标签： excel excel-formula combinations vba

【解决方案1】：

概念：

一组 n 中 m 个值的最大和是 m 个较大值的和。一旦值按降序排序，解决方案就很简单了。

这是一个纯 Excel 解决方案，没有 VBA。

设计与实施：

用户输入（变量名和值）在 C4:D8 中。

思路如下：

确定数据的顺序。为此，我在 B 列中使用了RANK。
然后在 G 和 H 列中使用 VLOOKUP 对数据进行排序。
然后计算最大总和是微不足道的：n 个较大数字的总和。

代码如下：

     A                      B    C     D E    F                              G                              H I         J                                                      K
1                                            
2                           User input        Sorted by rank                                                            Maximum sums        
3    Rank                   name value   Rank name                           value                                      name                                                   value
4    =RANK.EQ(C4;$C$4:$C$8) a    45      1    =VLOOKUP(E4;$A$4:$C$8;2;FALSE) =VLOOKUP(E4;$A$4:$C$8;3;FALSE)   2 numbers =CONCATENATE($F$4;"+";$F$5)                            =$G$4+$G$5
5    =RANK.EQ(C5;$C$4:$C$8) b    1       2    =VLOOKUP(E5;$A$4:$C$8;2;FALSE) =VLOOKUP(E5;$A$4:$C$8;3;FALSE)   3 numbers =CONCATENATE($F$4;"+";$F$5;"+";$F$6)                   =$G$4+$G$5+$G$6
6    =RANK.EQ(C6;$C$4:$C$8) c    2       3    =VLOOKUP(E6;$A$4:$C$8;2;FALSE) =VLOOKUP(E6;$A$4:$C$8;3;FALSE)   4 numbers =CONCATENATE($F$4;"+";$F$5;"+";$F$6;"+";$F$7)          =$G$4+$G$5+$G$6+$G$7
7    =RANK.EQ(C7;$C$4:$C$8) d    12      4    =VLOOKUP(E7;$A$4:$C$8;2;FALSE) =VLOOKUP(E7;$A$4:$C$8;3;FALSE)   5 numbers =CONCATENATE($F$4;"+";$F$5;"+";$F$6;"+";$F$7;"+";$F$8) =$G$4+$G$5+$G$6+$G$7+$G$8
8    =RANK.EQ(C8;$C$4:$C$8) e    33      5    =VLOOKUP(E8;$A$4:$C$8;2;FALSE) =VLOOKUP(E8;$A$4:$C$8;3;FALSE)

结果如下：

     A       B    C     D  E   F    G    H    I            J          K
1                                            
2            User input        Sorted by rank              Maximum sums        
3    Rank    name value   Rank name value                  name       value
4    1       a    45      1    a    45        2 numbers    a+e        78
5    5       b    1       2    e    33        3 numbers    a+e+d      90
6    4       c    2       3    d    12        4 numbers    a+e+d+c    92
7    3       d    12      4    c    2         5 numbers    a+e+d+c+b  93
8    2       e    33      5    b    1

请注意，它可以轻松扩展到更多变量。

【讨论】：

感谢您的回复。您给出的示例适用于所有单元格中的不同值。如果不同的单元格具有相同的值，这似乎不起作用。我已经改写了我的问题，所以你可以更好地理解。
我花了 30 分钟来创建答案。下次请先把你的问题完整地写出来。
确实有一个带有 LARGE() 函数的解决方案，它允许对数据进行降序排序并管理重复项。但是，关联 value->name 不是唯一的，我看不到如何正确编写字符串。 --> 可能需要使用 VBA。
很抱歉浪费了您的时间。但非常感谢您抽出宝贵时间回复。这是我的第一篇文章，因此不知道如何解释清楚。

【解决方案2】：

扩展 d-stroyer 的答案，并将其转换为 VBA：

创建 UDF：

Option Explicit

Function GetMax(RNames As Range, RVals As Range, MaxNums As Long) As String
Dim i As Long
Dim j As Long
Dim tmpName As String
Dim tmpVals As Long
Dim Names()
Dim Vals()

Names = RNames
Vals = RVals

For i = 1 To UBound(Names) - 1 'bubble sort
    For j = i + 1 To UBound(Names)
        If Vals(i, 1) < Vals(j, 1) Then 'largest first
            tmpName = Names(i, 1)
            Names(i, 1) = Names(j, 1)
            Names(j, 1) = tmpName
            tmpVals = Vals(i, 1)
            Vals(i, 1) = Vals(j, 1)
            Vals(j, 1) = tmpVals
        End If
    Next j
Next i

For i = 1 To MaxNums
    If Vals(i, 1) <= 0 Then Exit For 
    'adding zero, or negative numbers will lower the total
Next i

For j = 1 To i - 1
    GetMax = GetMax & Names(j, 1) & ","
    'now we know how many values to use (from previous loop)
    'make the string up
Next j

If Len(GetMax) > 0 Then
    GetMax = Left(GetMax, Len(GetMax) - 1)
    'remove the final comma
Else
    GetMax = "No result found"
End If

End Function

使用=getmax(A1:A5,D1:D5,3) 拨打电话结果将是 d,b,e

剩下的事情由您来检查错误情况，例如在范围内传递的列超过 1 个，或范围大小不等，或者返回的最大项目数大于范围大小

【讨论】：