Нестандартный перенос по словам в нижние ячейки с условиями

[Sirius2w]

Можно еще вопрос? Местами все переносится отлично а местами как-то неправильно
Я сначала сам попытался разобраться - но не совсем все получилось.
я кое-что подправил в коде, при "полевых испытаниях " )) вот конечный результат:

Sub редактирование_исходника()

    Dim i As Long, j As Long, k As Long, a: Application.ScreenUpdating = False
    Application.DisplayAlerts = False: Sheets("Summary").Activate
    [A:L].Font.Name = "Arial": [A:L].Font.Size = 11.5
    [A:A].Replace What:=".", Replacement:=",", LookAt:=xlPart: [A:A].Copy [J1]
    [J:J].TextToColumns Destination:=[J1], DataType:=xlDelimited, Other:=True, _
        OtherChar:="-", FieldInfo:=Array(Array(1, 1), Array(2, 1))
    ActiveSheet.UsedRange.Sort Key1:=[J1], Order1:=xlAscending, Key2:=[K1], Order2:=xlAscending, Header:=xlYes
    [J:K].Delete: [B:B].ColumnWidth = 70: [C:C].ColumnWidth = 30.86: [E:E].ColumnWidth = 24.29
    On Error Resume Next
    For i = Cells(Rows.Count, 1).End(xlUp).Row To 2 Step -1
        If Split(Cells(i, 1), "-")(0) <> Split(Cells(i + 1, 1), "-")(0) Then Rows(i + 1).Insert
    Next
    For i = Cells(Rows.Count, 1).End(xlUp).Row To 2 Step -1
        a = Split(Cells(i, 2), " ")
        If Len(Cells(i, 2)) > [B:B].ColumnWidth Then
            k = i: Cells(k, 2) = a(LBound(a))
            For j = LBound(a) + 1 To UBound(a)
                If Len(Cells(k, 2) & " " & a(j)) > [B:B].ColumnWidth Then
                    Cells(k, 2) = Cells(k, 2): k = k + 1: Rows(k).Insert: Cells(k, 2) = a(j)
                Else: Cells(k, 2) = Cells(k, 2) & " " & a(j)
    End If: Next: End If: Next
   
End Sub

некоторые строки, не разбились на отдельные ячейки, хотя часть одного слова или несколько слов (чаще всего 2) не вмещаются в изначальную ячейку

[SAS888]

Прикрепите файл с примерами строк, среди которых будут и такие, которые обрабатываются не так, как Вам нужно. Разберемся.

[Sirius2w]

Вот вложение

[Sirius2w]

Вы объясните пожалуйста как это сделать? что бы хоть разобраться... что бы если что я сам смог под себя адапировать этот макрос
просто я еще до конца не успел выяснить какая ширина столбцов будет в окончательном варианте. а щас получается - меняю в макросе ширину столбца а перенос происходит по старым пораметрам (по старому значению ширины столбца).
Спасибо.

[SAS888]

Посмотрите вложение. Там скорректированный макрос с комментариями.
Обратите внимание, что запускать макрос 2 раза подряд нельзя, т.к. полученные после первой работы макроса данные будут испорчены. Это связано как раз с тем, что добавленные по Вашему требованию строки (вместо переноса по словам в той же ячейке) в столбце "A" будут иметь пустое значение. И, как следствие, при сортировке будут перемещены вниз таблицы.

[Sirius2w]

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

Обратите внимание, что запускать макрос 2 раза подряд нельзя...

Да, я в курсе... это нормально...
щас посмотрю, спасибо!