Можно так
количество символов, немного в другом формате, лень думать
[vba]Код
=ОБЪЕДИНИТЬ("; "& СИМВОЛ(10);1;ЕСЛИОШИБКА(ДЛСТР(ФИЛЬТР.XML("<t><s>"&ПОДСТАВИТЬ(A4;СИМВОЛ(10);"</s><s>")&"</s></t>";"//s"));0))
[/vba]
Или так, только нужно будет последнюю точку с запятой удалить исправил
[vba]Код
=ОБЪЕДИНИТЬ("; ";1;ЕСЛИОШИБКА(СТРОКА($1:$10)&"="&ЕСЛИОШИБКА(ДЛСТР(ФИЛЬТР.XML("<t><s>"&ПОДСТАВИТЬ(A2;СИМВОЛ(10);"</s><s>")&"</s></t>";"//s"));0);""))
[/vba]
Максимальное количество символов
[vba]Код
=МАКС(ЕСЛИОШИБКА(ДЛСТР(ФИЛЬТР.XML("<t><s>"&ПОДСТАВИТЬ(A2;СИМВОЛ(10);"</s><s>")&"</s></t>";"//s"));0))
[/vba]
Количество строк
Код
=ДЛСТР(A2)-ДЛСТР(ПОДСТАВИТЬ(A2;СИМВОЛ(10);""))+1
все массивные