ML089

¦^´_ 9# chou1203

P6Äæ¦ì¤½¦¡:  [ =IF(AND(O6=O7,SUM((0&B6:M6)^7)=SUM((0&B$1:M$1)^7)),"¡B"&A6,)&P7  ]°}¦C

SUM((0&B6:M6)^7)   ¥Î0ªº·N¸q¬O?    ^7³o­Ó¦b¤½¦¡¸Ìªºªº·N¸q¬°¦ó©O¡H
-----------------------------------------------------------------------------------
0ªº·N¸q?
·íªÅ®æ®ÉµLªk­pºâ 0&ªÅ®æ¬° "0"¥i¥H­pºâ¡A·í¦³¼Æ¦r®É  0&99 = "099" ¥i¥H­pºâ¤]¬O¬° 99
   
^7³o­Ó¦b¤½¦¡¸Ìªºªº·N¸q¬°¦ó©O¡H
·íÀx¦s­Ó¤º¬O¤£­«½Æ¼Æ¦r®É¡ASUM( 5^7,10^7,15^7,20^7,25^7)  =  SUM( 5^7,20^7,25^7,10^7,15^7) ÁöµM±¼´«¦ì¸m¦ý¥[Á`«á¼Æ¦r·|¤@¼Ë¡A^7¬O±N¼Æ¦r¿±µÈ©Ô¤j¶ZÂ÷¡AÁקK²Õ©M¼Æ¦r¥[Á`¦³¦P¼Æ©Ê¡C
¨Ò¦p
ª½±µ¥[Á`µLªk¤À¿ë¤£¦P¼Æ¦r
       1+3+5 = 1+2+6 ³£¬°9¡A¦ý¼Æ¦r¤£¦P
      
­Y ^7 ¥[Á`«á®e©ö¤À¿ë¤£¦P¼Æ¦r
       1^7+3^7+5^7 = 80313       
       1^7+2^7+6^7 = 280065

chou1203

¦^´_ 11# ML089

·PÁ«e½ú«ü¾É»¡©ú¡A§Ú·|¦A¨Ó¬ã¨s¾Ç²ß¡AÁÂÁÂ

handmuch

°Ñ¦Ò°Ñ¦Ò

¤U¸ü (175.29 KB)

2019-1-9 20:02

E2: {=IF(C2<>"",AND(OFFSET(D2,,,COUNTA($A$2:$A$13),)=OFFSET($A$2,,,COUNTA($A$2:$A$13),)),"")}

F2: {=IF(C2<>"",SUM(COUNTIF(OFFSET(D2,,,COUNTA($A$2:$A$13),),OFFSET($A$2,,,COUNTA($A$2:$A$13),))),"")}

G2: =IF(C2<>"",AND(E2=FALSE,F2=COUNTA($A$2:$A$13)),"")

J2: {=IFERROR(INDEX($C$2:$C$146,SMALL(IF($E$2:$E$146=TRUE,ROW($C$1:$C$145),""),ROW(A1))),"")}

k2: {=IFERROR(INDEX($C$2:$C$146,SMALL(IF($G$2:$G$146=TRUE,ROW($C$1:$C$145),""),ROW(A1))),"")}

chou1203

¦^´_ 13# handmuch


    «e½ú¡@«D±`·PÁ±zªº¤½¦¡¡A·|ªá®É¶¡¨Ó¤F¸Ñ¡A·PÁ±z

­ã´£³¡ªL

Sub TEST()
Dim Arr, A, i&, xD, C%, V%, N%, T$(2), s%, ST$(2)
Set xD = CreateObject("Scripting.Dictionary")
For Each A In [A2:A13].Value
    If A <> "" Then xD(A & "") = 1: T(0) = T(0) & A & "_": C = C + 1
Next

Arr = Range([C2], [D65536].End(xlUp)(2))
For i = 1 To UBound(Arr) - 1
    If Arr(i, 1) <> "" Then T(1) = Arr(i, 1): T(2) = ""
    T(2) = T(2) & Arr(i, 2) & "_"
    V = V + xD(Arr(i, 2) & ""): N = N + 1
    If Arr(i + 1, 1) <> "" Or i = UBound(Arr) Then
       If V = C Then s = 2
       If T(2) = T(0) Then s = 1
       If N <> C Then s = 0
       ST(s) = ST(s) & "¡B" & T(1): V = 0: N = 0
    End If
101: Next i

[I2] = Mid(ST(1), 2)
[I3] = Mid(ST(2), 2)
End Sub