![]() |
Нужно создать макрос на VBA. Отблагодарю! Экселисты! Нужно создать макрос, который будет делать поиск данных из определенного столбца ячей-ки и вставлять эти данные в соседний столбец без мат. операций (числа, текст). Отблагодарю по договоренности. Контакт на [email]asda23@mail.ru[/email]. |
Да излагайте уж здесь задачу, поможем бесплатно... |
[URL=http://fastpic.ru/view/60/2015/0318/1e94172c3d35fe471d9c2066b1b3ba06.jpg.html][IMG]http://i60.fastpic.ru/thumb/2015/0318/06/1e94172c3d35fe471d9c2066b1b3ba06.jpeg[/IMG][/URL] |
[URL=http://fastpic.ru/][IMG]http://i60.fastpic.ru/big/2015/0318/06/1e94172c3d35fe471d9c2066b1b3ba06.jpg[/IMG][/URL] [b]Всем привет![/b] В общем, имеется набор массива «code» с текст. записями «ADDRESS» (синий цвет). Требуется создать макрос, который будет делать поиск по данным «code» (п. 1,2,3… синего столбца) из массива зеленого столбца по данным «code» и копировать результат в красные столбцы «code» с запи-сью «address». [b]Т.е., получаем:[/b] [b]по п.1: [/b] результат 1: данным «code»=48397574 соотв. найденный «code»=48397574 с записью «address» Y21; [b]результат 2:[/b] данным «code»=48397574 соотв. найденный «code»=48397574 с записью «address» Y8; [b]результат 3: [/b]данным «code»=48397574 соотв. найденный «code»=48397574 с записью «address» Y12; [b]по п.2:[/b] [b]результат 1:[/b] данным «code»= 48397577 соотв. найденный «code»= 48397577 с записью «address» Y15; [b]по п.3:[/b] результатов нет и т.д. [b][/b] |
[img][URL=http://fastpic.ru/][IMG]http://i60.fastpic.ru/big/2015/0318/06/1e94172c3d35fe471d9c2066b1b3ba06.jpg[/IMG][/URL][/img] |
Короче, нужно отловить ВСЕ совпадений code1 и code2 и вернуть соседний справа столбец, вытянув все результаты в строку. Колхозить =ВПР и =ПОИСК и =ИНДЕКС здесь неуместно, проще, действительно, макрос написать. Он будет содержать 2 вложенных цикла и на 2 тысячах строк будет работать около 20 секунд. Файлик этот выложите куда-нить, в нем и сделаю. PS: Ваша задача решаема только если столбец B содержит [u]уникальные неповторяющиеся[/u] значения. Если там числа - можно написать формулу =МОДА(B2:B65000) - если она вернет ошибку - все ОК, дубликатов-чисел нет. Если же там текст, то придется сортировать столбец и проверять "соседей" на равенство уже в макросе. |
Текущее время: 01:42. Часовой пояс GMT +3. |