Соединить несколько строк данных в цифрах - 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
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д
