Разделение текста посимвольно в excel.

[residenttiy]

Всем здравствуйте! Такая проблема, имеется огромный текст в одной ячейке, необходимо написать программу в VBA для разделения данного текста по 40 символов и записать в другие ячейки. Текст по длине символов может быть различным. (пробелы учитывать тоже) Помогите пожалуйста, что-то не получается у меня((

[IgorGO]

разбивать по пробелам или строго по 40 символов в каждый фрагмент?

[residenttiy]

Строго по 40 символов.

[Hugo121]

Почему нужно именно VBA? Проще сделать формулами.

[residenttiy]

А как сделать формулами? Мне по идее не важно, главное чтобы работало)

[IgorGO]

см.вложение

[Казанский]

Можно макросом - работает с выделенным столбцом

Sub Макрос2()
Dim i&
ReDim a(0 To 511, 0 To 1) As Long
For i = 0 To UBound(a)
  a(i, 0) = i * 40: a(i, 1) = 1
Next
Selection.TextToColumns Destination:=Selection.Cells(1).Offset(, 1), _
  DataType:=xlFixedWidth, FieldInfo:=a
End Sub