Перенос данных с ячейки в ячейку по условию

[gling]

Hugo121 Классно получилось. Считает, на мой взгляд, тоже правильно. Дождемся автора, что скажет. Придумывать, что то другое, даже и желания нет.

[Hugo121]

Перемещения тоже теоретически можно дописать в этот код. Но нужно видеть пример в файле, ну и посидеть, подумать... Что мне лично делать нет желания - когда захочется поработать, есть другая работа.

[Djeki]

Уважаемый Hugo121.
Поясните пожалуста следующие строки:

t = a(i, 1) & "|" & a(i, 2)
If Not .exists(t) Then .Add t, New Collection
.Item(t).Add a(i, 3)

Первая строка понятна - ФИО & Вход или выход.
А вот вторая - зачем в Словать добавлять Коллекцию ??
И третья строка - ???

[Hugo121]

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

Уважаемый Hugo121.
Поясните пожалуста следующие строки:

зачем в Словать добавлять Коллекцию ??
И третья строка - ???

Затем что я так придумал путь решения задачи.
А третья - в эту коллекцию добавляется значение из a(i, 3) - что там я уже не помню, извините, смотреть думаю смысла нет, какая разница что там... Кажется там было время события.