Fråga : Behovsalgoritm: Räkna numrera av ror multipeltider

Hey grabbar,

I har ett allmänt programmera begrepp som jag inte kan tackla mycket väl.

So jag har en sifferkolumn (endast 0s och 1s) och behöver att visa starten, och att stoppa placera för alla av 1s. Till exempel

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

would tillverkar:
1-3, 6-7, 9-12, 14

I har skapat olikt kretsar och hade några idéer, men kan inte fattningsförmågan denna idé fullständigt rätt nu.  Den kan vara, därför att den är fredagen eller det den fördröjde I-förmiddagen. En av tvåna.  Om någon kunde hjälpa, den skulle är väldeliga appreciated.

Thanks!
Rob " klar "

Svar : Behovsalgoritm: Räkna numrera av ror multipeltider

Jag har inte testat de andra förslagen, så min ursäkter, om I-förmiddagen som erbjuder något som ar redan försökt:),

Detta fungerar som en fungera.  Så om du har din 1s och 0s in, något att säga, A1: A50 därefter i en annan cell du skulle bruk:

=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:

Fungera MakeTheList (ArrayIn som Variant)
    
    Dunkelt x som Variant
    Dunkla StartAt som Long, EndAt som Long
    Dunkelt kontra som Long
    
    Const Delimiter som stränger = ”,”,
    
    För varje x i ArrayIn
        Kontra = kontra + 1
        Om x <> 0 därefter
            EndAt = kontrar
            Om StartAt = 0 därefter StartAt = kontrar
        Annars
            Om EndAt <> 0 därefter
                Om StartAt <> EndAt därefter
                    MakeTheList = MakeTheList & Delimiter & StartAt & ”-” & EndAt
                Annars
                    MakeTheList = MakeTheList & Delimiter & StartAt
                Avsluta om
                StartAt = 0
                EndAt = 0
            Avsluta om
        Avsluta om
    Därefter
    
    Om StartAt <> 0 därefter
        Om StartAt <> EndAt därefter
            MakeTheList = MakeTheList & Delimiter & StartAt & ”-” & EndAt
        Annars
            MakeTheList = MakeTheList & Delimiter & StartAt
        Avsluta om
    Avsluta om
    
    MakeTheList = mitt- (MakeTheList, Len (delimiteren))
    
Avsluta fungerar
Andra lösningar  
 
programming4us programming4us