Форум на Kuban.ru (http://forums.kuban.ru/)
-   Разработка программ (http://forums.kuban.ru/f1024/)
-   -   Нужно создать макрос на VBA. Отблагодарю! (http://forums.kuban.ru/f1024/nuzhno_sozdat-_makros_na_vba_otblagodaryu-6614418.html)

77 17.03.2015 17:22

Нужно создать макрос на VBA. Отблагодарю!
 
Экселисты! Нужно создать макрос, который будет делать поиск данных из определенного столбца ячей-ки и вставлять эти данные в соседний столбец без мат. операций (числа, текст).
Отблагодарю по договоренности. Контакт на [email]asda23@mail.ru[/email].

economist 17.03.2015 19:32

Да излагайте уж здесь задачу, поможем бесплатно...

77 18.03.2015 10:15

[URL=http://fastpic.ru/view/60/2015/0318/1e94172c3d35fe471d9c2066b1b3ba06.jpg.html][IMG]http://i60.fastpic.ru/thumb/2015/0318/06/1e94172c3d35fe471d9c2066b1b3ba06.jpeg[/IMG][/URL]

77 18.03.2015 10:18

[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]

77 18.03.2015 10:19

[img][URL=http://fastpic.ru/][IMG]http://i60.fastpic.ru/big/2015/0318/06/1e94172c3d35fe471d9c2066b1b3ba06.jpg[/IMG][/URL][/img]

economist 18.03.2015 14:03

Короче, нужно отловить ВСЕ совпадений code1 и code2 и вернуть соседний справа столбец, вытянув все результаты в строку.

Колхозить =ВПР и =ПОИСК и =ИНДЕКС здесь неуместно, проще, действительно, макрос написать. Он будет содержать 2 вложенных цикла и на 2 тысячах строк будет работать около 20 секунд.

Файлик этот выложите куда-нить, в нем и сделаю.

PS: Ваша задача решаема только если столбец B содержит [u]уникальные неповторяющиеся[/u] значения.

Если там числа - можно написать формулу =МОДА(B2:B65000) - если она вернет ошибку - все ОК, дубликатов-чисел нет. Если же там текст, то придется сортировать столбец и проверять "соседей" на равенство уже в макросе.


Текущее время: 06:35. Часовой пояс GMT +3.