К списку форумов К списку тем
Регистрация    Правила    Главная форума    Поиск   
Имя: Пароль:
Рекомендовать в новости

Нужно создать макрос на VBA. Отблагодарю!

Гость
0 - 17.03.2015 - 17:22
Экселисты! Нужно создать макрос, который будет делать поиск данных из определенного столбца ячей-ки и вставлять эти данные в соседний столбец без мат. операций (числа, текст).
Отблагодарю по договоренности. Контакт на asda23@mail.ru.



Гость
1 - 17.03.2015 - 19:32
Да излагайте уж здесь задачу, поможем бесплатно...
Гость
2 - 18.03.2015 - 10:15
Гость
3 - 18.03.2015 - 10:18


Всем привет!
В общем, имеется набор массива «code» с текст. записями «ADDRESS» (синий цвет).
Требуется создать макрос, который будет делать поиск по данным «code» (п. 1,2,3… синего столбца) из массива зеленого столбца по данным «code» и копировать результат в красные столбцы «code» с запи-сью «address».

Т.е., получаем:

по п.1:
результат 1: данным «code»=48397574 соотв. найденный «code»=48397574 с записью «address» Y21;
результат 2: данным «code»=48397574 соотв. найденный «code»=48397574 с записью «address» Y8;
результат 3: данным «code»=48397574 соотв. найденный «code»=48397574 с записью «address» Y12;

по п.2:
результат 1: данным «code»= 48397577 соотв. найденный «code»= 48397577 с записью «address» Y15;

по п.3:
результатов нет

и т.д.
Гость
4 - 18.03.2015 - 10:19
[img][/img]
Гость
5 - 18.03.2015 - 14:03
Короче, нужно отловить ВСЕ совпадений code1 и code2 и вернуть соседний справа столбец, вытянув все результаты в строку.

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

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

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

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


К списку вопросов






Copyright ©, Все права защищены