Как добавить элемент в динамический массив?

[Depressive]

Не смейтесь, но никак не могу найти в VBA встроенную функцию, добавляющую элемент в конец динамического массива.
(аналог array_push() или Arr[] в PHP или push() в Perl)
также не получается найти встроенную функцию сортировки массивов (аналог sort() в PHP и Perl)

Допустим, я объявляю динамический массив. Его конечный размер заранее неизвестен.

Dim arr() As String
Redim arr(1)

затем, мне надо в цикле просмотреть все строки одной таблицы ("Лист1"), на каждой итерации просмотреть колонку второй таблицы ("Лист2") и, если интересующие вхождения будут найдены, добавить новые элементы из ячеек "Лист1" в конец массива arr(), а по выходу из цикла, отсортировать этот массив arr() по алфавиту.

Моя конструкция

arr(UBound(arr) + 1) = tb.Cells(j, "C").Value

не срабатывает, ругается, что "Subscript out of range"

Если не трудно, подскажите, как решаются такие задачи в VBA!
Спасибо!

[doober]

Плохо искали

 ReDim Preserve arr (UBound(arr) + 1)

 arr (UBound(arr) )=tb.Cells(j, "C").Value

[IgorGO]

Не смейтесь, но никак не могу найти в VBA встроенную функцию, добавляющую элемент в конец динамического массива

смеяться тут нечего, но Вы бы порядком удивили публику, если бы нашли такую функцию)))
Doober показал Вам как переопределить размер массива.

можете еще посмотреть в сторону коллекции - это нормальный динамический массив изначально.

[Depressive]

Спасибо за ответы!
Честно говоря, несколько ошарашен отсутствие в VBA подобных встроенных функций (push, pop, shift, unshift, sort и т.д.), без них становиться совсем грустно...
Нормального справочника с примерами по VBA тоже не могу найти. Кстати, может подскажите такой?

Как же, все-таки, наиболее быстро и грамотно сортировать массивы строк?

[clever77]

Сообщение от Depressive

Спасибо за ответы!
Честно говоря, несколько ошарашен отсутствие в VBA подобных встроенных функций (push, pop, shift, unshift, sort и т.д.), без них становиться совсем грустно...
Нормального справочника с примерами по VBA тоже не могу найти. Кстати, может подскажите такой?

Как же, все-таки, наиболее быстро и грамотно сортировать массивы строк?

Одной нет, есть набор......

Как то так:
1. Исх данные столбец А, сортированные данные столбец С
Формулу поместить в столбце С
=ИНДЕКС($A$2:$A$51;НАИМЕНЬШИЙ(ЕСЛИ( СЧЁТЕСЛИ($C$1:C2;$A$2:$A$51)=0;СТРО КА($A$1:$A$50));1))

2. Или сложнее, если надо с проверкой на ошибки
Исх данные столбец А, сортированные данные столбец D

Формулу поместить в столбце D
=ЕСЛИ(ЕОШ(НАИМЕНЬШИЙ(ЕСЛИ(СЧЁТЕСЛИ( $C$1:C3;$A$2:$A$51)=0;СТРОКА($A$1:$ A$50));1));"";ИНДЕКС($A$2:$A$51;НАИ МЕНЬШИЙ(ЕСЛИ(СЧЁТЕСЛИ($C$1:C3;$A$2: $A$51)=0;СТРОКА($A$1:$A$50));1)))

Вот пример, не я придумал...... И ведь работает.....

3.
http://www.programmersforum.ru/showthread.php?t=147263
Почитай первый пост, может поможет.....
4. где то на просторах Google мне попадался готовый макрос, по поиску и подсчету уникальных имен в списке.... Поищи....