Ускорить обработку строки, с использованием InStr

[motorway]

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

В связи с этим, вопросы автору темы:
1. Какой максимально возможный диапазон рабочего листа может быть использован (макс. № строки и столбца)?
2. Могут ли адреса ячеек в строке следовать не по порядку, либо не подряд? Например:
"...Лист1~B2|11`M123|16`C2|22.. ."
или
"...Лист1~B2|11`E2|16`H2|22..."
Т.е. есть ли какая-либо закономерность в очереди адресов ячеек текстовой строки для каждого листа?
3. Данные из текстовой строки вставляются на пустой лист? Т.е. можно ли очищать уже имеющиеся на листе значения ячеек, отсутствующих в текстовой строке?

1. Вообще говоря, делалось всё так, чтобы ограничений не было, на практике может быть около 700 строк и 35 столбцов, но кто знает, может, нужно будет и это увеличить в несколько раз в обе стороны.
2. У меня несколько процедур - для отправки таких строк на сервер и получения ответа, а также других. Все они достаточно тормозят. В в разбираемом случае там идет цикл по диапазону ячеек, так что должна быть закономерность (как видно по файлу), а в другом - сортировка - сначала буква, потом число (B2, B22 и т.п.).
Но всё это может в скором времени исчезнуть, если я начну использовать для обработки только изменившиеся ячейки, тогда закономерности не будет, и на нее не стоит полагаться.
3. Лист не полностью пуст (точнее, может быть достаточно заполнен), там будут какие-то значения, которые изменять не надо. Но в данном случае ячейки с вставляемым текстом можно очищать.

В общем, прихожу пока что к выводу, что вроде бы не получается сильно ускорить всё. Даже если в конкретном этом случае можно что-то сделать, то у меня похожих процедур много, и в случае большой таблицы они могут все тормозить. Пока что выход (наполовину) в сокращении длины строки - нужно обрабатывать только изменившиеся ячейки. Но в некоторых процедурах все-таки требуется работать со всей таблицей, и там ситуация печальная.

[motorway]

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

Да, спецы правы, в таком варианте все тормозит запись на лист!
Несколько изменил макрос - вначале формирую полный массив данных, потом уже запись его на лист, процесс разделил месиджами. Все хорошо видно (заодно и сбои с пустыми данными убрал)

Ваш вариант у меня работает немного больше 2 минут, что много.

[valerij]

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

Ваш вариант у меня работает немного больше 2 минут, что много.

У меня работает 3 сек.

[SAS888]

Вариант, предложенный alvazor не плохой, и не "трогает" ячейки, которых нет в обрабатываемой строке. Но так, или иначе, в коде все равно присутствует цикл непосредственного обращения к ячейкам рабочего листа .Range(data(z)) = data(z + 1). Что есть очень медленно. Предлагаю другой вариант (быстрый). Адреса ячеек в текстовой строке могут располагаться произвольно. Макрос определяет максимальные номера используемых строки и столбца. Затем, формирует массив из значений текущего листа в этом диапазоне (одной командой). Дополняет (заменяет) данными, полученными из текстовой строки. Затем, также одной командой помещает значения массива на рабочий лист. Таким образом, обращение к ячейкам листа сведено к минимуму.
Замечание: Если в текстовой строке имеется адрес с любым значением, то это значение будет помещено в указанную ячейку, даже если оно пустое. Если этого делать не нужно, то понадобится добавить проверку значения на пустоту.
Посмотрите и проверьте. Что не устраивает?

[alex77755]

Вообще-то напрашиватся вопрос: какая необходимость записывать поячеечно в текстовой файл?
Тогда уж лучше записать массивом значений. Массивом и вставлять

[SAS888]

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

Вообще-то напрашиватся вопрос: какая необходимость записывать поячеечно в текстовой файл?
Тогда уж лучше записать массивом значений. Массивом и вставлять

Ну, это не нам с Вами решать. А потом, даже если будет массив, состоящий не из непрерывного диапазона а различных адресов и данных, то вставить такие данные в рабочий лист не затирая имеющихся выльется в подобную задачу.

[valerij]

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

Посмотрите и проверьте.

Да, ваще мгновенно работает, !!!!!!!!!!!!!!

[alvazor]

для SAS888
классная задумка, на исходном txt все просто свистело!
Но вставит в текстовый файл A1=01 и IV=65536 в лист1 - и приехали...
Ошибки в размерностях поправил (в тексте макроса - комментарии), теперь массив формируется без проблем, хотя и чуть дольше, но обратно на лист массив не пишется - run-time error 7 (нет памяти)??
Перед записью на лист вставил проверку первой и последней ячеек, все видно. А вот что далее делать...

[alvazor]

ошибся, ячейка A1=01 (первая в txt) и ячейка IV65536=65536 (последняя в txt), т.е. весь диапазон листа в версии 2003

[alvazor]

Для любопытствующих
Во вложении - копирование всего диапазона листа1 в массив вариант, внесение в массив значений первой и последней ячеек и обратное занесение в лист.
Только терпения наберитесь - один из самых быстрых способов копирования диапазонов потребует несколько минут! Но ошибки по памяти не происходит!?