могомерные массивы

[SAS888]

1. Строка a = .Range(.[B2], .Cells(i, "F")).Value означает: создать массив a из значений диапазона от "B2" до ячейки строки i столбца "F". В результате получим двумерный массив размерностью (i-1) X 5.
2. "a-subscript out of range" скорее всего, означает, что элемент массива a(j, 5) "не в диапазоне", т.е. либо, по какой-то причине, вторая размерность оказалась меньше, чем 5, либо переменная j превышает 1-ю размерность (но т.к. j - это счетчик цикла по элементам 1-й размерности массива, то это исключено). Проверьте, правильно ли Вы задаете массив a (должно быть 5 столбцов; в примере, это с "B" по "F" включительно).
В принципе, можно сэкономить на том, что нам не нужны все столбцы "B:F". Можно вместо одного массива в 5 столбцов, создать два массива по 1 столбцу. "B" и "F". Но, быстрее от этого макрос работать не будет.
Короче, проверьте как формируется массив a.

[Vik-00]

В живом файле несколько иначе столбцы соседние H i I и значения в них распологаються наоборот чем в примере H - это код, I - это цена. Сейчас попробую разобраться.

Изменил значение на 2, в массиве, что то было, по крайней мере, 1-е значение, запустил выполняться и повис. Как посмотреть что в массиве? и как прерывать выполнение, если вдруг процесс зациклился?

P.S. Да значения присваиваються наоборот, пытаюсь разобраться.

[Vik-00]

Все я разобралься перевернул, проверил работает. Старый макрос (мною написанный) максимално делал это за 30 минут (в одном фаиле 3000 записей в другом 4000). Этот уложился за 8 почти в 4 раза. Если учитывать что всего у меня 4 таких процедуры, то выигрыш по времени приличный. Спасибо, готов проставиться.

А вообще в моем макросе есть еще одно место которое можно ускорить, но это чуть позже

[EducatedFool]

У Вас что, выполнение макроса занимает 8 минут?
Файлы-то у вас совсем небольшие... 4000 строк - это совсем немного.
За это время вполне реально обработать сотню-другую таких файлов.

А вообще в моем макросе есть еще одно место которое можно ускорить

Похоже, что не одно...
Выложите код своего макроса (лучше вместе с файлом из 4000 строк)
Посмотрим, что можно сделать.

[Vik-00]

Я подготовлю, это коммерческая информация, поэтому в открытую выложить не могу.

[Vik-00]

А не кинети ли вы мне в личку ваш емайл, я отправлю вам файлы и макрос. Пути переписал, но на скорую руку и не проверил.

[SAS888]

Мой e-mail есть в профиле. Если вопрос выпаолнения процедуры актуален - давайте Ваши большие файлы. Разберемся. Конфиденциальность Вашей информации гарантирую. EducatedFool абсолютно прав. На правильную обработку файла нужно максимум несколько секунд.

[Vik-00]

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

Мой e-mail есть в профиле. Если вопрос выпаолнения процедуры актуален - давайте Ваши большие файлы. Разберемся. Конфиденциальность Вашей информации гарантирую. EducatedFool абсолютно прав. На правильную обработку файла нужно максимум несколько секунд.

Добрый день

Извиняюсь, или я пользоваться форумом не умею или что то не так. Я не могу там положить файлы, то ли это там не предусмотренно то ли еще что.

[SAS888]

Либо пришлите файл по адресу SAS888@mail.ru, либо "закиньте" в любой файлообменник, например, в Этот, а ссылку и пароль на скачивание сообщите мне в "личку".

[Vik-00]

Отправил по эмайлу.