как получить ширину строки ячейки с переносом текста в vba

Да, это возможно, учитывая частичное решение для переноса строк вручную. Код будет выглядеть следующим образом (для Activecell):

Sub Solution()

    Dim myArray
    myArray = Split(ActiveCell, Chr(10))

    'return to range cells below activecell
    ActiveCell.Offset(1, 0).Resize(UBound(myArray) + 1, 1) = Application.Transpose(myArray)
End Sub

До и после представлены на фото ниже:

Дополнительный совет: вместо Chr(10) вы можете попробовать использовать Chr(13), если не получите ожидаемых результатов (другие возможные разделители: vbCrLf и vbCr).