[a_axe]

курсор встаёт в конец предложения. Нужно чтобы курсор вставал в начало предложения.

ispolin, очевидное действие - кнопка Home (или ctrl+home для многострочного текста) насколько я понимаю не подходит, конечная цель менять позицию курсора какая?

часть текста скрыта из за короткой длины ячейки. »

нужно видеть все ячейки не перемещая ползунок перемещения по ячейкам. Поэтому предложение по растяжке ячеек не подходит. »

ispolin, как вариант можно нажать на вкладке "Главная"=> группа "Выравнивание"=> кнопку "Перенести текст" (будет применено к выделенным ячейкам), тогда каждая ячейка будет отображать текст в необходимое количество рядов (высота ячейки будет подгоняться автоматически).
Кроме того, сочетание ctrl+shift+u увеличивает высоту строки формул (также можно менять высоту прямо мышкой), и менять содержимое можно прямо в ней, предварительно выделив нужную ячейку.

[ispolin]

конечная цель менять позицию курсора какая? »

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

[a_axe]

ispolin, обязательно нумерация должна быть в той же ячейке? Может ввести дополнительный столбец перед столбцом с предложениями, убрать отображение границы между ячейками, чтобы визуально казалось, что нумерация находится в том же столбце, что и предложение? И вбивать удобно, и протянуть нумерацию можно.

Либо можно использовать VBA, что-то наподобие кода ниже. Нумерация используется - цифра +скобка+точка+ пробел, например "42). Предложение". Если код находит в ячейке на одну выше выделеной аналогичную нумерацию, то в текущую ячейку он вставляет перед текстом номер на единицу больше, если не находит - начинает нумерацию заново. После этого выделяет ячейку на одну ниже.

код

Код:

Public Sub cell_Num_list()
    Dim strTxt As String, dblNum As Double, poz As Integer
    If ActiveCell.Row <> 1 Then
        strTxt = Application.ActiveCell.Offset(-1, 0).Value
        poz = InStr(strTxt, "). ")
        If poz = 0 Then dblNum = 0 Else dblNum = Val(Left(strTxt, poz - 1))
        ActiveCell.Value = (dblNum + 1) & "). " & ActiveCell.Value
        ActiveCell.Offset(1, 0).Select
    End If
    
End Sub