Добрый день, уважаемые эксперты.
Я только начал изучать VBA и попытался написать код по поиску повторяющих значений по части текста и вывода их в отдельную таблицу в виде построчных записей. К сожалению, что было многовероятно, у меня это не получилось.
Например: вводим в диалоговое окно значение S8001 и нажимаем "ОК".
Результат: в другой таблице появились 10 строк со значением "S8001", которое находится в любой части таблицы источника, т.е. поиск производился по всем столбцам и строкам.
У меня проблема в том, что макрос отрабатывает очень долго и в конце с результатом (неправильным) выдаёт ошибку. Также, при нажатии на отмену в диалоговом окне (ввода значения) макрос и Excel зависает (красится в серый и статус "Не отвечает".
Неправильный результат заключается в том, что правильное количество строк располагается неправильно в новой таблице (сдвигается на определённое количество строк влево.
Помогите, пожалуйста, разобраться где ошибка или подскажите как упростить мой код, чтобы я мог получить необходимый результат.
Заранее благодарен.
Я только начал изучать VBA и попытался написать код по поиску повторяющих значений по части текста и вывода их в отдельную таблицу в виде построчных записей. К сожалению, что было многовероятно, у меня это не получилось.
Например: вводим в диалоговое окно значение S8001 и нажимаем "ОК".
Результат: в другой таблице появились 10 строк со значением "S8001", которое находится в любой части таблицы источника, т.е. поиск производился по всем столбцам и строкам.
У меня проблема в том, что макрос отрабатывает очень долго и в конце с результатом (неправильным) выдаёт ошибку. Также, при нажатии на отмену в диалоговом окне (ввода значения) макрос и Excel зависает (красится в серый и статус "Не отвечает".
Неправильный результат заключается в том, что правильное количество строк располагается неправильно в новой таблице (сдвигается на определённое количество строк влево.
Помогите, пожалуйста, разобраться где ошибка или подскажите как упростить мой код, чтобы я мог получить необходимый результат.
Заранее благодарен.