Разделение текста на несколько ячеек

[AndyKKK]

Помогите, пожалуйста, решить проблему. Есть файл в Excel, в котором в ячейках прописаны предложения. Нужно перенести эти предложения на другой лист файла. При этом размер ячейки ограничен 63 символами, поэтому длинное предложение нужно разбить на несколько ячеек не более 63 символа в один столбец. Второй столбец будет определять номер предложения в списке. Пример во вложении.

[roborrr]

вы забыли прикрепить вложение

[AndyKKK]

Уважаемые программисты, неужели нет решения этой проблемы?

[IgorGO]

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

Function InsCN(ByVal s As String, c As Long, N As Long) As String
  Dim p As Long
  p = InStr(StrReverse(s), Chr(c))
  Do While Len(s) - p > N
    p = p + N + 1 - InStr(StrReverse(Left(s, p + N + 1)), " ")
    s = Left(s, p) & Chr(c) & Right(s, Len(s) - p - 1)
  Loop
  InsCN = s
End Function

вот пример использования

Sub UseInsCN()
  Dim s As String, ns As String, a()
  s = "Помогите, пожалуйста, решить проблему. Есть файл в Excel, в котором в ячейках прописаны предложения..."
  ns = InsCN(s, 9, 63)
  a = Application.Transpose(Split(ns, Chr(9)))
  [b2].Resize(UBound(a), 1).Value = a
  [a2].Resize(UBound(a), 1).FormulaR1C1 = "=len(rc[1])"
End Sub

в качестве исходного предложения использовал текст из сообщения #1.
на листе все выглядело так:

59 Помогите, пожалуйста, решить проблему. Есть файл в Excel, в
60 котором в ячейках прописаны предложения. Нужно перенести эти
56 предложения на другой лист файла. При этом размер ячейки
57 ограничен 63 символами, поэтому длинное предложение нужно
62 разбить на несколько ячеек не более 63 символа в один столбец.
59 Второй столбец будет определять номер предложения в списке.

[AndyKKK]

Спасибо, но нужно выводить не количество символов в ячейке, а порядковый номер предложения. Примерно вот так:
1 Есть файл в Excel, в котором в ячейках прописаны предложения
2 Нужно перенести эти предложения на другой лист файла.
3 При этом размер ячейки ограничен 63 символами, поэтому
3 длинное предложение нужно разбить на несколько ячеек не более
3 63 символа в один столбец.
4 Второй столбец будет определять номер предложения в списке
4 и повторятся на несколько ячеек одного предложения.

[kuklp]

Решение практически то же, что и у Игоря.

[AndyKKK]

Сообщение от kuklp

Решение практически то же, что и у Игоря.

Спасибо огромное! Вы сделали то, что мне нужно!