函数，排列组合求最大

静听溪流

1. =

复制代码

静听溪流

完全没有思路  长火车  暴力解题

1. =10^MAX(MMULT(LOG(INDEX(A2:D16,MMULT(MOD(LARGE(MID(BASE(FILTERXML("<a><b>"&TEXTJOIN("</b><b>",,IF(15-LEN(SUBSTITUTE(BASE(ROW(15:32767),2,15),1,""))=4,ROW(15:32767),""))&"</b></a>","//b"),2,15),COLUMN(A:O),1)*COLUMN(A:O)+ROW(1:1365)*100,ROW(1:1365)*15-{14,13,12,11}),100),N(ROW(1:4)=MOD(COLUMN(A:CR)-1,4)+1)),MID("123412431324134214231432213421432314234124132431312431423214324134123421412341324213423143124321",COLUMN(A:CR),1))),N(INT((ROW(1:96)-1)/4)+1=COLUMN(A:X))))

复制代码

@刘卓

各位老师太厉害了，只耐基础太差，给了答案也看不懂

cinlo

象山海鲜 发表于 2021-5-25 17:04
有浮点误差

明天再学习。。。

cinlo

不太会VBA，让大家见笑了：
Sub test()
    For i1 = 2 To 16
        For i2 = 2 To 16
            If i1 = i2 Then
                If i2 = 16 Then Exit For
                i2 = i2 + 1
            End If
            For i3 = 2 To 16
                If i3 = i2 Then
                    If i3 = 16 Then Exit For
                    i3 = i3 + 1
                End If
                If i3 = i1 Then
                    If i3 = 16 Then Exit For
                    i3 = i3 + 1
                End If
                For i4 = 2 To 16
                    If i4 <> i3 And i4 <> i2 And i4 <> i1 Then
                        If Cells(i1, 1) * Cells(i2, 2) * Cells(i3, 3) * Cells(i4, 4) > a Then
                            a = Cells(i1, 1) * Cells(i2, 2) * Cells(i3, 3) * Cells(i4, 4)
                            b1 = Cells(i1, 1)
                            b2 = Cells(i2, 2)
                            b3 = Cells(i3, 3)
                            b4 = Cells(i4, 4)
                        End If
                    End If
                Next i4
            Next i3
        Next i2
    Next i1
    MsgBox b1 & "*" & b2 & "*" & b3 & "*" & b4 & "=" & a

End Sub

丢丢表格

象山海鲜 发表于 2021-5-25 17:04
有浮点误差

用 BIN2DEC() 排除非2进制的值，这个方法好。

（这个题的 计算量有点大 。）
2进制最长的位数是多少 ？

丢丢表格

象山海鲜 发表于 2021-5-25 17:04
有浮点误差

15^4 =50625

怎么变成  50366 ？？

小書生

1. =10^MAX((MMULT(IFERROR(FIND(BASE(COLUMN(A:O)-1,15),BASE(ROW(1:50366),15,4)),),Z1:Z15+1)=10)*MMULT(LOG(N(OFFSET(A2,HEX2DEC(MID(BASE(ROW(1:50366),15,4),{1,2,3,4},1)),{0,1,2,3}))),Z1:Z4+1))

复制代码

1. =10^MAX((MMULT(N(LEN(SUBSTITUTE(BASE(ROW(1:50366),15,4),BASE(COLUMN(A:O)-1,15),))=3),Z1:Z15+1)=4)*MMULT(LOG(N(OFFSET(A2,HEX2DEC(MID(BASE(ROW(1:50366),15,4),{1,2,3,4},1)),{0,1,2,3}))),Z1:Z4+1))

复制代码

替李逸雪占楼

cinlo

丢丢表格 发表于 2021-5-25 21:55
15^4 =50625

怎么变成  50366 ？？

50366以后已经不符合要求了。。比如不是取4个数了。。。海鲜老师是精益求精。。

江山社稷

各位老师，不同行不同列最大我肉眼检查是最大
=PRODUCT(MOD(LARGE(IF(COUNTIF(OFFSET(A1,ROW(1:15),,,4),A2:D16)<{2,3,4,5},A2:D16+{1,2,3,4}/1%,{1,2,3,4}/1%),{1,16,31,46}),100))