Поиск по маске данных в ячейках Excel

[doober]

Копирует все,раньше пустые строки затирались

[Milo4ka_Lucy]

Класс! Честно говоря я и не подумала, что поиск вверх и вниз можно разделить на 2 цикла.
В общем, спасибо второй раз огромное. Опять Вы меня выручили.
Не объясните, из-за чего пустые строки удалялись раньше? вроде же почти ничего не поменялось, только сразу выходим из первого цикла.

[doober]

На примере

 mnn = Worksheets("ММП-1").UsedRange.Rows.Count + 1

считаем все ячейки.
Раньше только по нижней заполненной было

[Milo4ka_Lucy]

Аааа, так вот в чем дело. Не хватает мне пока еще знаний. Все поняла. Спасибо за помощь и объяснение.

[Hugo121]

Я тут пытался просто раскидать по 8-и другим текстовым файлам этот один общий, правда надо похоже с кодировой бороться, так и недоделал... Если вдруг надо такое, можно продолжить.

[Hugo121]

Вот, было интересно, сделал. Без Экселя. Только поправьте блокнотом путь к файлам на свой. Запускать даблкликом.
Если нужны заголовки, то можно в начало каждого файла добавить 10-ю строку исходного файла.

[Milo4ka_Lucy]

Hugo121, спасибо, что заинтересовались и предложили другой интересный способ решения задачи. Скачала файл, обязательно посмотрю, потому что любопытно.
Другое дело, что для меня пока импортирование txt в Excel проще, поскольку, с кодировкой там и правда что-то творится, а что конкретно, в этом даже разбираться не стала, так как делать надо было изначально срочно.

[Hugo121]

Раз есть интерес, подготовил скрипт с комментариями. Попутно немного изменил/сократил код, исправил один косячок , добавил запись заглавия колонок в файлы.
В принципе, можно попутно сразу подсчитать суммы по файлам или отдельно по каждому счёту в каждом файле, и дописать это внизу файла.
Но это муторная работа, надо завести кучу переменных (на каждый счёт свою), анализировать первую строку каждой группы на номер счёта и собирать в переменные суммы соотв. найденного счёта.
Можно не раскладывать по файлам, а сразу в общем файле считать суммы по счетам и выводить результат в отдельный файл, или как я делал - месиджбокс и в буфер. Затем вставляю куда надо, хоть в Эксель.
Хотя буфер был в скрипте AutoIt...
Можно таким же образом перекидывать найденное в Эксель, вместо тхт, как сейчас.
В общем, для каждой задачи есть куча решений, и не обязательно только Эксель. Еще есть SQL... но там спрашивайте не меня...
Да, этот скрипт будет дописывать в уже существующие файлы, учтите.
Но это конечно можно изменить.