Вот может так будет понятней.
Сортитруем строки, чтобы красные числа шли по порядку.
X5X6, X9X10, X13X14, X17X18
VD1, VD2, VD3, VD4, VD5, VD6, VD8, VD12, VD14, VD18, VD20, VD24, VD26, VD10, VD11, VD16, VD17, VD22, VD23, VD28, VD29, VD0, VD9, VD7,

В соседнем столбце должно получиться:
X5X6, X9X10, X13X14, X17X18
VD0, VD1, VD2, VD3, VD4, VD5, VD6, VD7, VD8, VD9, VD10, VD11, VD12, VD14, VD16, VD17, VD18, VD20, VD22, VD23, VD24, VD26, VD28, VD29,

Отъезжал по делам - только вернулся. Вижу присланный файл. Огромное спасибо за содействие.
Не сочтите за дурацкий вопрос.
Где мне взять программу сортировки =sort_csv куда ее прописать у себя?
По поводу быстродействия - меня устроит любой вариант, лишь бы работал.

В макросах не нашел.
Разработчик - просмотр кода - тоже нет.

Правая кнопка на ярлыке листа - Посмотреть код - тоже нет. Где его найти?

Вижу у вас сортировка работает.
Прописал эту формулу к себе. Лист "Дата" Колонка АЕ. В качестве аргумента указал колонку AD. Скопировал функцию.
Но ничего не заработало.
Я понимаю, что где-то накосячил, но не пойму где, уже все перерыл.
Помогите разобраться.
Файл прилагаю.

Все сделал, все заработало.
Огромное вам спасибо.
Дальше все доделаю сам, а вот такую функцию я сам вряд ли наваял.
Еще раз куча благодарностей!

Добрый вечер!

Еще раз хочу выразить благодарность за профессионализм и готовность помочь другим людям.
Ваша программа работает безукоризненно, никаких претензий нет.
С быстродействием тоже все в норме, массивы у нас небольшие, обработка происходит быстро.
Сотрудники, получающие листы с распечаткой наборов деталей отметили значительное удобство сортированных данных.
Они просят внести еще одну коррекцию в выходные данные.
Не сочтите за наглость, если я попрошу написать еще одну маленькую программульку.
Если вы не располагаете лишним временем - скажите, я ничуть не обижусь, вы и так для нас много сделали.

В чем суть.
Выходные данные бывают достаточно большие, глазу их трудно воспринимать, желательно укоротить.
Для этого, если подряд идет более 2-х элементов с шагом 1, их желательно заменить на следующую конструкцию:
Первый элемент ... Последний элемент

Поясню на примерах:
C41, C42, C43, C44, Все номера идут подряд, заменяем на C41 ... C44
VT1, VT3, VT5, VT6, VT7 - должно получиться: VT1, VT3 VT5 ... VT7
VD1, VD2, VD3, VD4, VD5, VD6, VD8, VD10, VD11, VD12, VD14, VD16, VD17, VD18, VD20, VD22, VD23, VD24, VD26, VD28, VD29,
укорачиваем до:
VD1 ... VD6, VD8, VD10, VD11, VD12, VD14, VD16 ... VD18, VD20, VD22 ... VD24, VD26, VD28, VD29,

Если вы не сможете помочь - я сделаю это вручную.
Например для второй строки это будет =ПОДСТАВИТЬ(AF47;"VT5, VT6, VT7";"VT5 … VT7")
Проблема в том, что для каждой строки надо писать свою функцию подстановки.
Если входные данные изменятся - надо будет все функции корректировать.
Ну и не очень понятно, как в пределах одной строки эту функцию использовать несколько раз (длинная строка с элементами VD).
Ну и, конечно, эту программу можно было бы использовать в других проектах, мне таких списков надо сделать не один.
В общем, если сможете помочь - буду премного благодарен, если нет - будем выкручиваться сами.
Файл с данными прилагаю.

Буду премного благодарен, жду с нетерпением.

Это не просто прихоть монтажников.
Именно так оформляется техническая документация на сборку.
Вот первый попавшийся пример, видно, что однотипные элементы сгруппированы.

Добрый день!
Сегодня с утра увидел присланный материал. Огромное спасибо! К сожалению сразу проверить не могу - уезжаю на сутки в командировку. Завтра вернусь - и сразу буду разбираться. Только скажите, эту функцию можно добавить к тому модулю, или надо в отдельный?
Еще раз огромное спасибо!

Всем привет!

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

Хочу ответить товарищу booby на вопрос по поводу данных X5X6, X9X10, X13X14, X17X18,
Я выше уже писал об этом, но мне нетрудно пояснить еще раз.
Определяющими тут являются первая пара букв и цифр, вторая - просто хвостик X5X6, X9X10, X13X14, X17X18,
Глядя на красные элементы видно, что они идут по возрастанию, значит сортировка не требуется, и нет более 2-х элементов подряд с шагом 1, значит группировка тоже не требуется.

Ну а сейчас буду пробовать программу группировки. Вы говорили, там надо сделать маленькую доработку - как всегда жду с нетерпением и буду весьма признателен.

Всем привет!

У меня большая проблема. Трудно понять, что произошло, дело было так.

Вставил в Excel код, который вы прислали мне вчера. Вылезла ошибка. Немного почесав репу и сравнив его с программой сортировки, увидел, что там не хватает объявления переменной. Взял из первого варианта (вроде с небольшой ошибкой) строки:

Public Function simplify_csv(src As String) As String
simplify_csv = Simplify(SortArray(Split(src, ", ")))
End Function

Заменил simplify_csv на Simplify - и у меня Excel завис! Пришлось запускать диспетчер задач и снимать задачу. Файл после этого испортился и больше не запускается. Восстановить из панели восстановления тоже не получается - Excel то висит! Я понимаю, что программа здесь скорее всего ни при чем, а просто какое-то чудовищное совпадение. Но файл потерян, сейчас буду его ка-то восстанавливать и пробовать заново.

Файл прилагаю - вдруг у вас откроется.