Oбъединение ячеек по условию

Старая форма входа

Страница 1 из 1 1
Модератор форума: китин, _Boroda_

Мир MS Excel » Вопросы и решения » Вопросы по VBA » Oбъединение ячеек по условию (Макросы/Sub)

Govard88

Дата: Среда, 01.07.2015, 14:40 | Сообщение № 1

Группа: Пользователи

Ранг: Прохожий

Сообщений: 7

Репутация: 0 ±

Замечаний: 0% ±

Excel 2013

Добрый день!
Абсолютно не умею работать в VBA, свалилась задача которую руками делать очень долго, а формулу написать не получиться.
Суть задачи :
Если № повторяется несколько раз, то адреса с данным номером прописываются в 1 ячейку через ;
К примеру как видим на скрине, номер 2609 повторяется 3 раза, значит макрос должен отработать так : 1 ячейка = 2609, а рядом с ней ячейка Каширское шоссе 78 к.2;Каширское шоссе 78 к.3;Каширское шоссе 78 к.4
И так на все 31к строк, повторение № встречается от 2 до 40 раз, так же есть и уникальные №

Помогите пожалуйста!
[moder]Приложите файл-пример в соответствии с Правилами форума![/moder]

К сообщению приложен файл: 9379967.xlsx (9.5 Kb)

Сообщение отредактировал Govard88 - Среда, 01.07.2015, 14:52

Ответить

Макрописец

Дата: Среда, 01.07.2015, 14:50 | Сообщение № 2

Группа: Заблокированные

Ранг: Форумчанин

Сообщений: 128

Репутация: 7 ±

Замечаний: 100% ±

Excel 2010

А ответ Вам нарисовать на картинке?

ТЕРПЕНИЕ И ТРУД - ВСЁ ПЕРЕТРУТ!

Ответить

Govard88

Дата: Среда, 01.07.2015, 14:54 | Сообщение № 3

Группа: Пользователи

Ранг: Прохожий

Сообщений: 7

Репутация: 0 ±

Замечаний: 0% ±

Excel 2013

Прошу прощения, файл добавил.
Всего строк около 31к, надеюсь суть в файле-примере донести смог.

Ответить

Макрописец

Дата: Среда, 01.07.2015, 14:57 | Сообщение № 4

Группа: Заблокированные

Ранг: Форумчанин

Сообщений: 128

Репутация: 7 ±

Замечаний: 100% ±

Excel 2010

Цитата Govard88, 01.07.2015 в 14:54, в сообщении № 3

надеюсь суть в файле

Ну по сути я, например, и без файла вроде понял, но нарисовать не смог.

ТЕРПЕНИЕ И ТРУД - ВСЁ ПЕРЕТРУТ!

Ответить

Pelena

Дата: Среда, 01.07.2015, 14:57 | Сообщение № 5

Группа: Админы

Ранг: Местный житель

Сообщений: 19188

Репутация: 4421 ±

Замечаний: ±

Excel 365 & Mac Excel

Govard88, посмотрите готовое решение здесь

"Черт возьми, Холмс! Но как??!!"
Ю-money 41001765434816

Ответить

ikki

Дата: Среда, 01.07.2015, 15:01 | Сообщение № 6

Группа: Друзья

Ранг: Старожил

Сообщений: 1906

Репутация: 504 ±

Замечаний: 0% ±

Excel 2003, 2010

Цитата Govard88, 01.07.2015 в 14:40, в сообщении № 1

формулу написать не получиться.

чё эт "не получиться"? просто лень можть?

К сообщению приложен файл: union.xlsx (10.4 Kb)

помощь по Excel и VBA
ikki@fxmail.ru, icq 592842413, skype alex.ikki

Ответить

Govard88

Дата: Среда, 01.07.2015, 15:11 | Сообщение № 7

Группа: Пользователи

Ранг: Прохожий

Сообщений: 7

Репутация: 0 ±

Замечаний: 0% ±

Excel 2013

ikki, не получиться написать с моими знаниями, с Вашими может быть.

Ответить

Макрописец

Дата: Среда, 01.07.2015, 15:16 | Сообщение № 8

Группа: Заблокированные

Ранг: Форумчанин

Сообщений: 128

Репутация: 7 ±

Замечаний: 100% ±

Excel 2010

Govard88,
Икки написал Вам формулы -смотри файл в его посте.

ТЕРПЕНИЕ И ТРУД - ВСЁ ПЕРЕТРУТ!

Ответить

Govard88

Дата: Среда, 01.07.2015, 15:58 | Сообщение № 9

Группа: Пользователи

Ранг: Прохожий

Сообщений: 7

Репутация: 0 ±

Замечаний: 0% ±

Excel 2013

Макрописец,
Да, я так же пробовал через данную формулу, но при проверки "глазами" обнаружил, что есть № к которому относится 40 адресов, а по этой формуле он записал только 7.
Сортировка была соблюдена.