Соединить несколько строк данных в цифрах

Как из двух (или более) строк совместить в одно целое
строка A2
4, 6, 9, 10, 15, 16, 19-28, 31
строка A3
1, 7, 11, 12, 13, 17, 29, 30

как получить, ответ
1, 4, 6, 7, 9-13, 15-17, 19-31

желательно функция (если нет, то макрос)
не соединять менее трех цифр в тире (нельзя так 6-7, правильно 6, 7)

0

fever brain,

Сообщение от fever brain Объединение_строк _ * * "4, 6, 9, 10, 15, 16, 19-28, 31", _ * * "1, 7, 11, 12, 13, 17, 29, 30", _ * * "1, 2, 3, 9, 8, 7, 4, 5, 6"

это я и функцией сделал
упрощаю это задание
используя уже имеющееся в вложении
функцию сжатия и сбора по столбцам цифр =Sjatie(E2:E3001)&", "&Sjatie(F2:F3001)&", "&Sjatie(G2:G3001) собрал следующее
1, 7, 11-13, 17, 29, 30, 4, 6, 9, 10, 15, 16, 19-28, 31, 5
Теперь нужно из собранного получить красивый ответ 1, 4-7, 9-13, 15-17, 19-31
и
пример №2

2, 3, 9, 23, 6, 8, 15, 16, 18-21
вывести такой ответ
2, 3, 6, 8, 9, 15, 16, 18-21, 23
можно макросом в той же строке заменить на красивый ответ

Вложения

соединяем красиво.xls (41.0 Кб, 0 просмотров)

0

fever brain, немного я далекий, но все же результаты иногда есть)

0

Что значит странные цифры??? Там просто мой пример, в котором числа разбросаны неупорядоченно. Запускаем этот макрос, заменив в нём первый цикл Do While ...... Loop (строки 6-12), который не просеивает числа на одинаковые значения, на исправленный цикл в моём сообщении ниже (второе сообщение). Если в заголовке процедуры поставить формальный параметр S, убрав примечания (это такие верхние черточки, апострофами называются) и убрав закрывающую скобку слева от апострофа, то при обращении к процедуре Call NumbView(S), где в S вы должны сформировать вашу строку данных, вы получите упорядоченный результат. Не хотите вывод на экран, замените оператор MsgBox на 'КУДА НАПРАВИТЬ'. Если у вас две строки, которые нужно слить вместе, то перед обращением к процедере поставьте оператор S=S1 & S2. Строки должны заканчиваться на запятую. Либо нарисуйте в послании вашу строку и я выдам вам результат. Рыться в ваших файлах и выискивать нужную строку не хотелось бы.

Добавлено через 10 минут
Fever_Brain, ну написал человек, что проблема не решена, я по недомыслию и послал свой код, прошу прощения. Но не исключено, что подготовочка там почти никакая и он не разобрался в вашем коде. Тогда может и с моим ему будет тяжело.
Считайте это за сатисфакцию. Burk

0

Burk, у меня вышла очень сложная процедура и слишком массивная для данной задачи
как упростить не прибегая к дополнительным столбцам и кнопки преобразовать

нужно сделать это максимально упростив, во вложении мое решение

Вложения

Универсальная склейка цифр.xls (77.0 Кб, 1 просмотров)

0

тема закрыта, всем спасибо макрос + функция решила все

0