Определить возраст числа

[EducatedFool]

К сожалению, помочь ничем не могу.

представленный вами код не работает корректно, в случае выпадения нуля в столбце "А".

С этим согласен. Исправить недолго (на исправление ушло бы несколько секунд).

И давно бы уже исправил, если бы Вы внимательно читали моё сообщение:

Вы же не говорили, что должно быть в таком случае записано в ячейку...

Вот когда скажете, что должно быть в ячейке в этом случае - тогда исправлю.
К примеру, если число 4 ни разу не выпало, какой должен быть "возраст" этого числа?

[SolexVK]

код работает правильно (за исключением выпадения в столбце "А" нуля). К примеру, если последнее выпавшее число в ячейке "А15" и при этом ни разу не выпадало число 4 - то "возраст" в ячейке Число"4" должен быть 13. Что и отображает ваш код. Но что делать если всё же в столбце "А" выпадает 0?
Пример прилагается

[EducatedFool]

В макросе

Function ВозрастЧисла(ByVal i As Long)
    For j = Cells.SpecialCells(xlCellTypeLastCell).Row To 3 Step -1
        If Val(Cells(j, i).Value) <> 0 Then Exit For
    Next j
    ВозрастЧисла = Range("a" & Me.Rows.Count).End(xlUp).Row - j
End Function

замените строку

If Val(Cells(j, i).Value) <> 0 Then Exit For

на строку

If Len(Cells(j, i).Text) > 0 Then Exit For

[SolexVK]

На этот раз окончательно всё!!!. Всё работает. Большое спасибо!!!