Pytanie : INDEX/MATCH formuła który utożsamiać wieloskładnikowy dopasowanie

Zadawalać brać spojrzenie przy the dołączać workbook. I próbować the 10 zły wykonawca w stół, i trzy mieć the ten sam odsetek. Toget być the prosty sposób toget wszystkie trzy wymieniony?
I mieć odpowiedź aprevious pytanie który rozwiązywać the problem dla the 10 najlepszy wykonawca ale i móc najlepszy dlaczego ono dla the dziesięć zły, i ono być ładny jeżeli tam  być prosty rozwiązanie anyway.

Thanks,
John
Attachments:
EEQ22.xls (505 KB) (Kartoteka Typ Szczegół)
Multiple Matches

Odpowiedź : INDEX/MATCH formuła który utożsamiać wieloskładnikowy dopasowanie

I biedak badać the inny propozycja, w ten sposób mój przeprosiny jeżeli I być ofiara, który już próbować:)

Funkcja pracować jako funkcja.  W Ten Sposób, jeżeli ty mieć twój 1s i 0s wewnątrz, mówić, A1: A50, wtedy w inny komórka ty używać:

=MakeTheList (A1: A50)
(1):
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:

Funkcja MakeTheList (ArrayIn Jako Wariant)
    
    Ciemnawy x Jako Wariant
    Ciemnawy StartAt Długo, EndAt Długo
    Ciemnawy Kontuar Długo
    
    Const Delimiter Jako Sznurek = ","
    
    Dla ArrayIn x W ArrayIn
        Kontuar = Kontuar + (1)
        Jeżeli x <> (0) Wtedy
            EndAt = Kontuar
            Jeżeli StartAt = (0) Wtedy StartAt = Kontuar
        Inny
            Jeżeli EndAt <> (0) Wtedy
                Jeżeli StartAt <> EndAt Wtedy
                    MakeTheList = MakeTheList & Delimiter & StartAt & "-" & EndAt
                Inny
                    MakeTheList = MakeTheList & Delimiter & StartAt
                Kończyć Jeżeli
                StartAt = (0)
                EndAt = (0)
            Kończyć Jeżeli
        Kończyć Jeżeli
    Następnie
    
    Jeżeli StartAt <> (0) Wtedy
        Jeżeli StartAt <> EndAt Wtedy
            MakeTheList = MakeTheList & Delimiter & StartAt & "-" & EndAt
        Inny
            MakeTheList = MakeTheList & Delimiter & StartAt
        Kończyć Jeżeli
    Kończyć Jeżeli
    
    MakeTheList = W połowie (MakeTheList, Len (Delimiter))
    
Końcówka Funkcja
Inne rozwiązania  
 
programming4us programming4us