Переместить повторяющиеся значения

[Lekcey]

Помогите, пожалуйста! Нужно у повторяющегося значения 1го столбца таблицы, значения 3го столбца вывести в одну строку. Думаю во вложении всё будет понятно.

[Hugo121]

Если можно собирать эти коды в одну ячейку - то есть несколько готовых UDF, например моя VLOOKUPCOUPLE() (где-то тут на форуме несколько раз был уже код, поищите).
Как создать столбцы "№ телефона" и "Фамилия" - это другой вопрос, можно формулами или вручную, удалив дубликаты. А может он уже есть, как часто бывает.
Только формулы ничего не перемещают - они только копируют!

Если же есть один файл, и нужно из него сделать второй вот точно как в прмере - то нужно писать макрос, ну или может спецы сводных что-то предложат?

[Lekcey]

Вот вот, в макросе как раз и проблема, может есть у кого нибудь что то похожее?

[Hugo121]

Что-то похожее делал, и не раз - но ктож теперь эти коды найдёт... Сам не использую.
Тут подойдёт словарь с коллекциями. Но сейчас писать недосуг...

[kalbasiatka]

Создаём файл в той же папке (естественно всё можно менять)

[Lekcey]

Сообщение от kalbasiatka

Создаём файл в той же папке (естественно всё можно менять)

Спасибо огромнейшее, всё работает!

[Hugo121]

У меня не работает

With .Sheets("Лист1")

Почему бы не сделать универсально -

With .Sheets(1)

[kalbasiatka]

Я специально не пишу индексов, чтобы было понятно, что можно изменить название. Может не понадобится создавать книгу или ещё чего человек придумает.

[IgorGO]

У меня не работает
With .Sheets("Лист1")

и как тут не вспомнить:

Одесса, бракоразводный процесс.
Судья:
-- Почему Вы решили разводиться?
Истец:
-- Она меня не удовлетворяет!
Реплика из зала суда:
-- Ты посмотри какой нашелся... пол Одессы она удовлетворяет, а его - не удовлетворяет!

Игорь, установи "нормальный" офис - заработает))) и вообще, главное - у автора вопроса все заработало.

[Hugo121]

Тёзка, а который из двух моих офисов нормальный? Тот что дома, или тот что на работе?
И какой офис считается нормальным например на Украине? Неужели с "Лист1"?