¦p¦ó§ä¥X²{¤G¦¸¥H¤Wªº¼Æ¦r¡H

q1a2z5

¦bÀx¦s®æ½d³ò¤º¡A¦p¦ó§ä¥X²{¤G¦¸¥H¤Wªº¼Æ¦r¡H
¨Ã¤£¬O­n²Î­p¼Æ¦r¥X²{ªº¦¸¼Æ¡D
ÁÂÁ¡I

register313

¦^´_ 1# q1a2z5

A17 B17 °}¦C¤½¦¡
A17=SMALL(IF(COUNTIF($A$1:$F$15,$A$1:$F$15)>1,$A$1:$F$15,""),COLUMN(A:A))
B17=IF(ISERROR(SMALL(IF(COUNTIF($A$1:$F$15,$A$1:$F$15)>1,$A$1:$F$15,""),1+SUM(COUNTIF($A$1:$F$15,$A$17:A17)))),"",SMALL(IF(COUNTIF($A$1:$F$15,$A$1:$F$15)>1,$A$1:$F$15,""),1+SUM(COUNTIF($A$1:$F$15,$A$17:A17))))  ¦V¥k½Æ»s

ªþ¥ó.rar (4.13 KB)

¤U¸ü¦¸¼Æ: 10

2012-2-4 12:15

Hsieh

¦^´_ 1# q1a2z5
H3°}¦C¤½¦¡
=IF(COLUMN(A1)>SUM(IF(COUNTIF($A$1:$F$15,$A$1:$F$15)>=2,1/COUNTIF($A$1:$F$15,$A$1:$F$15),0)),"",SMALL(IF(COUNTIF($G$3:G3,IF(COUNTIF($A$1:$F$15,$A$1:$F$15)>=2,$A$1:$F$15,""))=0,IF(COUNTIF($A$1:$F$15,$A$1:$F$15)>=2,$A$1:$F$15,""),""),1))

¤U¸ü (20.2 KB)

2012-2-4 15:39

q1a2z5

­n¦p¦ó§ä¥X¥|­Ó¸¹½X¬°¤@²Õ¤S´¿¸g¥X²{¤G¦¸¥H¤Wªº¼Æ¦r²Õ¦X©O¡H
¦pªþ¥ó

ÁÂÁ¡I

Hsieh

¦^´_ 4# q1a2z5
H1=B1&","&C1&","&D1&","&E1
¦V¥k¦V¤U½Æ»s
L2°}¦C¤½¦¡
=INDIRECT("R"&MOD(SMALL(IF((COUNTIF($L$1:L1,$H$1:$J$12)=0)*(COUNTIF($H$1:$J$12,$H$1:$J$12)=2),COLUMN($H$1:$J$12)*100+ROW($H$1:$J$12),""),1),100)&"C"&INT(SMALL(IF((COUNTIF($L$1:L1,$H$1:$J$12)=0)*(COUNTIF($H$1:$J$12,$H$1:$J$12)=2),COLUMN($H$1:$J$12)*100+ROW($H$1:$J$12),""),1)/100),0)

¤U¸ü (29.53 KB)

2012-2-5 22:26

q1a2z5

ÁÂÁ¤j¤jªº¦^´_
¨º¦pªG¥|­Ó¸¹½X©Ò¦bÀx¦s®æ³£¤£¬Û³sªº¸Ü¡A¥i¦³¤èªkÅã¥Ü¥X¨Ó©O

¦pªþ¥ó

ÁÂÁ¡I

Hsieh

¦^´_ 6# q1a2z5
³o¥Î¨ç¼Æ¸Ñ¤£¥X¨Ó

¤U¸ü (19.57 KB)

2012-2-10 00:10

1. Sub nn()
   
2. Dim Ay()
   
3. Set d = CreateObject("Scripting.Dictionary")
   
4. Set d1 = CreateObject("Scripting.Dictionary")
   
5. 
   
6. ar = [B1:G12].Value
   
7. For r = 1 To 12
   
8. For i = 1 To 3
   
9.    For j = i + 1 To 6
   
10.       For x = j + 1 To 6
    
11.          For y = x + 1 To 6
    
12.          mystr = Join(Array(ar(r, i), ar(r, j), ar(r, x), ar(r, y)), ",")
    
13.          d1(mystr & r) = d1(mystr & r) + 1
    
14.          If d1(mystr & r) = 1 Then d(mystr) = d(mystr) + 1
    
15.          Next
    
16.       Next
    
17.    Next
    
18. Next
    
19. Next
    
20. For Each ky In d.keys
    
21.    If d(ky) = 2 Then
    
22.    ReDim Preserve Ay(s)
    
23.    Ay(s) = ky
    
24.    s = s + 1
    
25.    End If
    
26. Next
    
27. [H4].Resize(s, 1) = Application.Transpose(Ay)
    
28. End Sub

½Æ»s¥N½X

handmuch

¦^´_ 6# q1a2z5


    ³o¹³¬O¼Æ¾ÇÃD!!  °Ñ¦Ò¤@¤U!  ¥Î¤F«Ü¦hªº»²§U¸ò¤À¶}ªº¨BÆJ  

°ò¥»ªº°µªk¬O¨â²Õ¼Æ¦r¤@ª½¤ñ¤U¥h      ¦A§ä¥X¬Û¦P¸¹­Ó¼Æ(§Y¦³¥|­Ó¸¹½X²Õ­«½Æ)=4 (¥¿½Tªº»¡¬O>=4)      ¦A±N¸¹½X§ä¥X

·í²Õ¼Æ§ó¦h ©Î§ä¥X¥X²{¤T¦¸¥H¤Wªº¼Æ¦r²Õ  ¨º´N"¦A»¡"

§Ú¤U¸üªº¬O6#ªºÀÉ    ²Ä¤»²Õªº¼Æ¦r¸ò¤§«eªºÀɤ£¤@¼Ë
¥X²{¤G¦¸¥H¤W¼Æ¦r²Õ.rar (10.26 KB)

¤U¸ü¦¸¼Æ: 8

2012-2-10 21:13