Вылет программы при использовании макроса

[SaLoKiN]

Попробовал, все также... ничего не изменилось. Повешал сортировку на отдельный макрос. Вижу ячейку со значением, удаляю его. тут же жму макрос сортировки и следом макрос "Очередь". Привет дебагер, жмем ЕНД, еще раз макрос Очередь и привет значение!

[SaLoKiN]

Почему, блин, после вызова сортировки(при условии что ячейка на листе НТК1 не содержит значение) все сыпеццо, а потом при следующем выполнении уже выполняет?!

[SaLoKiN]

Все переиграл, теперь другой вопрос... как из массива вывести элементы iого столбца в одну ячейку через ';'

Ыыы... все уже придумано = )

sss=""
For i = 1 To кол-во строк
For j = 1 To кол-во столбцов
sss = sss & a(i, j) & " "
Next j
sss = sss & Chr(13)
Next i
TextBox16 = sss

[Serge_Bliznykov]

как из массива вывести элементы iого столбца в одну ячейку через ';'

извините, что вмешиваюсь в ваше обсуждение, но...
имхо, только в цикле.
вида:

  s = mas[1]
  for i:=2 to N 
     s = s + ';' + mas[i]
  next
  НужнаяЯчейка  = s

[Hugo121]

Можно и без видимого цикла:

Sub tt()
    Dim a(), i&
    a = [a1:e10].Value
    i = 4
    [a30].Value = Join(Application.Transpose(Application.Index(a, 0, i)), ";")
End Sub

Но с циклом по массиву будет быстрее.

[SaLoKiN]

Спасибо, еще вопрос теперь... имеется массив, например:

1	412	1
1	413	2
1	414	3
2	606	1
3	408	1
3	409	2
3	410	3
4	607	1
4	624	2

Строку нужно склеить по 1ому столбцу, т.е.
1ая 412;413;414
2ая 606
3-я 408;409
4-ая 607;624

Массив отсортирован, думается сделать выборку уникальных значений и потом пробегая по ним двойным циклом собирать строку. Есть другие варианты?

[IgorGO]

не мудрите с двумя циклами, за один раз все собирается.
и, видимо, опечатка 3-я строка должна получится 408;409;410

[Hugo121]

Одним циклом по массиву заносим в словарь - первый столбец ключ, из второго в item сразу собираем строку.
И сортировка не обязательна.
В конце циклом по словарю извлекаем готовое.
Или не циклом, а когда нужно - сразу и берём что нужно.

[SaLoKiN]

и, видимо, опечатка 3-я строка должна получится 408;409;410

она самая =)

Одним циклом по массиву заносим в словарь - первый столбец ключ, из второго в item сразу собираем строку.
И сортировка не обязательна.
В конце циклом по словарю извлекаем готовое.
Или не циклом, а когда нужно - сразу и берём что нужно.

Прошу прощения, а кода случаем нет? Прост не до конца понимаю как собрать за один цикл словарь в массиве(для таблицы на странице знаю) и тут же склеить строку. Остальное все понятно.

[Serge_Bliznykov]

Прошу прощения, а кода случаем нет? Прост не до конца понимаю как собрать за один цикл словарь в массиве(для таблицы на странице знаю) и тут же склеить строку. Остальное все понятно.

А результат этой "склейки" Вы где хотите получить?
Если в массиве, то, имхо, проще завести новый массив и сбрасывать в него склеенные строки. Если в ячейки - то ещё проще...