函数，排列组合求最大

cinlo

jivy1212 发表于 2021-5-25 13:44
知识远远不够，只够想到15个位置放四个不同数的所有组合，要这样的内存数组。

一点思路没有啊。。。。。期待大神神作。。。我的想法是，求出每列前4大的值（因为第5大及更小的值肯定用不上了），然后就变成了4*4*4*4=256种组合了，运算量大大降低，但怎么得到这256种组合呢？

魚。。

WsnowNIU 发表于 2021-5-25 13:33
这道题不适合用函数做，还是VBA吧。
本来是想写写的，两两列矩积，再把两个矩积，转换成一行，一列，再矩 ...

黑黑，只会循环和判断：

1. Sub Fish()
   
2.     Dim aa, bb() As Long
   
3.     Dim i&, j&, k&, l&, n&
   
4.     aa = [a2:d16]
   
5.     ReDim bb(1 To UBound(aa) ^ UBound(aa, 2))
   
6.         For i = 1 To UBound(aa)
   
7.             For j = 1 To UBound(aa)
   
8.                 For k = 1 To UBound(aa)
   
9.                     For l = 1 To UBound(aa)
   
10.                         If i <> j And i <> k And i <> l And j <> k And j <> l And k <> l Then
    
11.                             n = n + 1
    
12.                             bb(n) = aa(i, 1) * aa(j, 2) * aa(k, 3) * aa(l, 4)
    
13.                         End If
    
14.                     Next l
    
15.                 Next k
    
16.             Next j
    
17.         Next i
    
18.     MsgBox WorksheetFunction.Max(bb)
    
19. End Sub

复制代码

yibao2

其实题目说的很清楚了，如果配图不用随机可能更好解理。可是不用随机又不能体现数据的多元化。

袁勇

yibao2

袁勇 发表于 2021-5-25 10:48
？？

=PRODUCT(LARGE(SUBTOTAL(4,OFFSET(A1:D1,ROW(1:15),)),{1;2;3;4}))

按我理解的题意，袁老师这个是对的。

袁勇

yibao2 发表于 2021-5-25 16:46
按我理解的题意，袁老师这个是对的。

不符合题意。

要求不同行不同列！！

yibao2

袁勇 发表于 2021-5-25 16:49
不符合题意。

要求不同行不同列！！

哦，你的有同列了。

袁勇

yibao2 发表于 2021-5-25 16:46
按我理解的题意，袁老师这个是对的。

当行里的前4大值中有1个以上在同一列时。

jivy1212

cinlo 发表于 2021-5-25 14:53
一点思路没有啊。。。。。期待大神神作。。。我的想法是，求出每列前4大的值（因为第5大及更小的值肯定用 ...

1. COUNTIF(OFFSET(A:A,,{0,1,2,3}),">"&A2:D16)+1<5

复制代码

加类似这段？组合才是关键吧。

象山海鲜

jivy1212 发表于 2021-5-25 16:52
加类似这段？组合才是关键吧。

他的思路很好，每列各取4个最大值，实现起来很麻烦，要判断全部不同行才行。