Соединить несколько строк данных в цифрах - 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

ИИ поможет Вам:


  • решить любую задачу по программированию
  • объяснить код
  • расставить комментарии в коде
  • и т.д
Попробуйте бесплатно

Оцени полезность:

10   голосов , оценка 4.3 из 5
Похожие ответы