=ЕСЛИОШИБКА(ПСТР($A$1;СУММ(ДЛСТР($A$4:A4))+1;НАЙТИ("/";ПОДСТАВИТЬ(ПСТР($A$1;СУММ(ДЛСТР($A$4:A4))+1;69);" ";"/";69-ДЛСТР(ПОДСТАВИТЬ(ПСТР($A$1;СУММ(ДЛСТР($A$4:A4))+1;69);" ";"")))));ПСТР($A$1;СУММ(ДЛСТР($A$4:A4))+1;69))

=ЕСЛИОШИБКА(ПСТР(ПСТР($A$1;СУММ(ДЛСТР($A$3:A3))+1;НАЙТИ("/";ПОДСТАВИТЬ(ПСТР($A$1;СУММ(ДЛСТР($A$3:A3))+1;69+1);" ";"/";69+1-ДЛСТР(ПОДСТАВИТЬ(ПСТР($A$1;СУММ(ДЛСТР($A$3:A3))+1;69+1);" ";"")))));1;69);ПСТР($A$1;СУММ(ДЛСТР($A$3:A3))+1;69))

   Text.CrLfSymbols = {" ",",",":",";","-","/","*","\","!","?","[","]","{","}","~","'","|"},

   Text.SplitSmart = 
    (
     InputText as nullable text,    // Входной текст
     SegmentMin as number,          // Минимальное число символов, функция не разбивает строку до этого числа символов
     SegmentMax as number           // Максимальное число символов. Если функция не найдет символа для переноса от SegmentMin до SegMentMax, перенос будет произведен по SegmentMax.
    ) as list =>            
       let
        Len = if InputText = null then 0 else Text.Length(InputText),
        Out = if Len > SegmentMax then
         let
          Pos_A = Text.PositionOfAny(Text.Range(InputText, SegmentMin, SegmentMax - SegmentMin), Text.CrLfSymbols, Occurrence.Last),
          Pos_B = if Pos_A < 0 then SegmentMax else SegmentMin + Pos_A + 1,
          Txt_A = Text.Start(InputText, Pos_B),
          Txt_B = Text.End(InputText, Len - Pos_B)
         in List.Combine({{Txt_A}, @Text.SplitSmart(Txt_B, SegmentMin, SegmentMax)}) 
        else
         {InputText}
       in Out,