Соединить несколько строк данных в цифрах - VBA
Формулировка задачи:
Как из двух (или более) строк совместить в одно целое
строка 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)
Решение задачи: «Соединить несколько строк данных в цифрах»
textual
Листинг программы
Do While S <> "" I = InStr(S, ",") M = Val(Left(S, I - 1)) For J = 0 To K If M = nI(J) Then GoTo Endl 'отсеять одинаковые' Next K = K + 1 ReDim Preserve nI(K) nI(K) = Val(Left(S, I - 1)) Endl: S = Right(S, Len(S) - I) Loop