Вопрос : Алгоритм потребности: Подсчитайте число времен многократной цепи рядков

Hey ванты,

I имеют вообще программируя принципиальную схему которую я не могу решать очень наилучшим образом.

So мне имею колонку номеров (только 0s и 1s) и нужно показать старт и остановить положение для всего 1s. Например

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

would вывело наружу:
1-3, 6-7, 9-12, 14

I создавало по-разному петли и имело немного идей, но не может схватить эту идею вполне справедливо теперь.  Оно может быть потому что будет пятницей или то в развитии мне задерживают. Одно из 2.  Если любое smogло помочь, то это было бы больш appreciated.

Thanks!
Rob class=

Ответ : Алгоритм потребности: Подсчитайте число времен многократной цепи рядков

Бедный человек iий испытал другие предложения, так мои извинения если я предлагаю что-то, то которое уже судимо:)

Это работает как функция.  Так, если вы имеете ваши 1s и 0s внутри, то скажите, A1: A50, после этого в другой клетке вы использовали бы:

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

Функция MakeTheList (ArrayIn как вариант) Тусклый x как вариант Тусклое StartAt как длиной, EndAt как длиной Тусклый счетчик как длиной Разграничитель Const как шнур = «,» Для каждого x в ArrayIn Счетчик = встречное + 1 Если x <> 0 после этого EndAt = встречно Если StartAt = 0 после этого StartAt = встречно Еще Если EndAt <> 0 после этого Если StartAt <> EndAt после этого MakeTheList = MakeTheList & разграничитель & StartAt & «-» & EndAt Еще MakeTheList = MakeTheList & разграничитель & StartAt Закончитесь если StartAt = 0 EndAt = 0 Закончитесь если Закончитесь если Затем Если StartAt <> 0 после этого Если StartAt <> EndAt после этого MakeTheList = MakeTheList & разграничитель & StartAt & «-» & EndAt Еще MakeTheList = MakeTheList & разграничитель & StartAt Закончитесь если Закончитесь если MakeTheList = средний (MakeTheList, Len (разграничитель)) Функция конца