Выбор повторяющихся данных в одну ячейку

[cerberochek]

Здравствуйте Уважаемые!

Вот такой вопрос:

Есть таблица (см. пример) в которой в одном столбце идут фамилии студентов, а во втором предметы, которые они изучают. Фамилии повторяются для каждого предмета, например, Иванов->Математика, Иванов->Физика. Нужно пройти по всему столбцу и сделать чтоб для одной фамилии все предметы выводились в ячейку, т.е. Иванов->Математика;Физика.

Подскажите пожалуйста как написать макрос, реализующий выщепредставленную задачу.

[The_Prist]

Здравствуйте.
Посмотрите здесь

[Serge_Bliznykov]

ну и я добавлю свой вариант...

не в целях посоперничать, просто коллекции для...

[Skif-F]

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

ну и я добавлю свой вариант...

не в целях посоперничать, просто коллекции для...

Извини, но строчка

  Dim i, iRow, RowFirst, rowLast, RowItogFirst As Long

должна выглядеть так:

  Dim i As Long, iRow As Long, RowFirst As Long, rowLast As Long, RowItogFirst As Long

Иначе переменные i, iRow, RowFirst, rowLast будут Variant
(что поделать, это VBA, а не ...)

[Serge_Bliznykov]

Извини, но строчка

да за что ж извиняться то?!
Вы правы! Это 100% так!

Это я просто использовал в качестве основы свой древний макрос, где было написано неверно. (я тогда ещё не знал про этот "прикол" VBA... )

и, самое смешное, что сам обнаружил это, но уже после того как запаковал и выложил файл. Потом поленился переделывать... Ошибки то не будет... Хотя я полностью с Вами согласен, типы переменных надо указывать явно!

[cerberochek]

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

Здравствуйте.
Посмотрите здесь

Конечно хорошая функция, но она просто зависает excel при выборе диапазона ячеек в которых выбирать значения для скрепления.

Спасибо большое Serge_Bliznykov, супер код, мне очень нравится!

[SAS888]

+1. Код от Serge_Bliznykov действительно хорош. Но могу предложить еще один вариант, преимуществом которого считаю:
1. Используется всего 1 цикл.
2. Использование массивов позволяет существенно повысить скорость выполнения процедуры, что при больших объемах данных весьма ощутимо.
3. При использовании словаря, при больших объемах данных, возможна ошибка Excel "Out of memory". Для сравнения, попробуйте, например, выполнить предложенные процедуры 1000 раз в цикле.

[Skif-F]

Объясните мне бестолковому, почему все так любят выражение Rows.Count? Вообще-то там лежит число 65536! И когда мы берём диапазон Range([A1],Cells(Rows.Count,N), то работаем, соответственно, с 65536 строками!
И при этом мы хотим, чтобы работало быстро...

[SAS888]

Вообще-то там лежит число 65536...
И при этом мы хотим, чтобы работало быстро...

Кто Вам это сказал? Константа Rows.Count хранится в модуле класса (никто строки не считает, поэтому работает быстро) и ее значение зависит от версии Excel.
Именно с выходом в свет Excel 2007 (с большим количеством строк, нежели 2003), во избежании недоразумений, правильно использовать именно Rows.Count.

[Skif-F]

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

Кто Вам это сказал? Константа Rows.Count хранится в модуле класса (никто строки не считает, поэтому работает быстро) и ее значение зависит от версии Excel.
Именно с выходом в свет Excel 2007 (с большим количеством строк, нежели 2003), во избежании недоразумений, правильно использовать именно Rows.Count.

ну да, 65536 - это для Excel 2003. Для Excel 2007 там лежит 1048576.
Так на какой объём будет ссылаться следующее выражение: Range([A1],Cells(Rows.Count,N).Value, если мы работаем в Excel 2007?