Pytanie : Potrzeba Algorytm: Liczyć The Liczba Rząd Wielokrotność Czas

Hej facet,

I mieć ogólny programowanie pojęcie który I móc bardzo dobrze.

So I mieć kolumna liczba (tylko 0s i 1s) i potrzebować the początek i pozycja dla ( the 1s. Dla example

1
1
1
0
0
1
1
0
1
1
1
1
0
1
0

would przesyłać:
1-3, 6-7, 9-12, 14

I tworzyć różny pętla i miewać różny pomysł, ale móc ten pomysł całkowicie teraz.  Ono móc ponieważ ono być Piątek lub i I uwsteczniać. Jeden the dwa.  Jeżeli/>Thanks móc, ono być ogromnie appreciated.

Thanks!
Rob

Odpowiedź : Potrzeba Algorytm: Liczyć The Liczba Rząd Wielokrotność Czas

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