Поиск последнего значения в строке

Описание функции

Функция =ПОСЛЕДНЕЕВСТРОКЕ(ЯЧЕЙКА) имеет один аргумент.

• ЯЧЕЙКА - ссылка на любую ячейку из строки, в которой необходимо найти последнее непустое значение.

Пример

Определение значения последней непустой ячейки в строке.

Код на VBA

Public Function ПОСЛЕДНЕЕВСТРОКЕ(ЯЧЕЙКА As Range)
    If ЯЧЕЙКА.Parent.Cells(ЯЧЕЙКА.Row, Sheets(1).Columns.Count) <> "" Then _
            ПОСЛЕДНЕЕВСТРОКЕ = ЯЧЕЙКА.Parent.Cells(ЯЧЕЙКА.Row, Sheets(1).Columns.Count).Value
    If ЯЧЕЙКА.Parent.Cells(ЯЧЕЙКА.Row, Sheets(1).Columns.Count) = "" Then _
            ПОСЛЕДНЕЕВСТРОКЕ = ЯЧЕЙКА.Parent.Cells(ЯЧЕЙКА.Row, Sheets(1).Columns.Count).End(xlToLeft).Value
End Function