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

[SolexVK]

Добрый день!

Помогите решить следующую задачу.
Нужно из ячейки "В1" запустить следующий цикл:

1. Найти последнюю непустую ячейку в столбце "B", при условии, что до последней непустой ячейки, в данном столбце уже есть пустые ячейки.(В данном примере ячейка "В10").
2. Перейти на столбец "А" на ячейку расположенную на одной строке с найденой до этого ячейкой.(В данном примере ячейка "А10").
3. Определить колличество непустых ячеек в столбце "А", ниже последней найденой ячейкой ("А10").
4. Полученное значение занести в ячейку "В1". (В данном примере должно получиться число 5).

Дополнительно, при появлении новой последней непустой ячейки в солбце "В", необходимо снова и снова запускать весь цикл с начала.

Пример прилагается

[EducatedFool]

Правой кнопкой на ярлычке листа, выбираем пункт ИСХОДНЫЙ ТЕКСТ

В открывшееся окно вставляем код:

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Column <> 2 Or Target.Row = 1 Then Exit Sub  ' отслеживаем изменения только во 2-м столбце
    For i = Intersect(Me.UsedRange, Me.Range("b:b")).Rows.Count + 5 To 2 Step -1
        If Cells(i, 2).Text <> "" Then Exit For
    Next i
    [b1] = Range("a" & Me.Rows.Count).End(xlUp).Row - i
End Sub

[SolexVK]

Спасибо!
Всё работает, при условии, что в столбце "В" вписываем числа.

Но возможно я не совсем корректно обьяснил, что мне нужно.
В столбце "В" не числа, а значения формул. В этом случае система не работает.
И ещё, как сделать так, что бы это работало и для остальных столбцов?

[EducatedFool]

Замените прежний код на такой:

Private Sub Worksheet_Calculate()
    Application.EnableEvents = False: On Error Resume Next
    Application.ScreenUpdating = False
    For i = 2 To 11: Cells(1, i) = ВозрастЧисла(i): Next i
    Application.EnableEvents = True
End Sub

Function ВозрастЧисла(ByVal i As Long)
    For j = Cells.SpecialCells(xlCellTypeLastCell).Row To 2 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

[SolexVK]

Огромное спасибо!!!
теперь всё работает отлично.

[SolexVK]

Есть ещё вопрос.
Если вся таблица начинается не с первой строки, а к примеру с 8. Как сделать так, что бы код работал и при этих условиях?

[pivas]

Попробуй исправить Cells(1, i) на Cells(8, i)

[SolexVK]

Спасибо! Боюсь показаться навязчивым, но прошу ответить ещё на один вопрос.
Если в столбцах таблицы есть столбцы с пустыми ячейками, то код выдаёт почему-то отрицательные и неверные значения. Что делать в этом случае?
За ранее благодарен.

[EducatedFool]

Если вся таблица начинается не с первой строки

Если в столбцах таблицы есть столбцы с пустыми ячейками

А если Вы захотите открывать этот файл не Excel-ем, а Paint-ом?
Макрос тоже должен работать?

Вместо того, чтобы писать все эти "если", лучше бы один раз чётко сформулировали задание.

то код выдаёт почему-то отрицательные и неверные значения

Где пример файла с этими значениями?
Где исчерпывающее описание алгоритма макроса для таких случаев?

К примеру, в 5-м столбце числа идут до 25-й строки, а в 1-м столбце - только до 18-й. И что в этом случае должен выдать макрос?

Макрос всё делает правильно - из 18 вычитает 25 (в правильно заполненных столбцах этот алгоритм даёт верный результат), и пишет в ячейку отрицательное значение.
Вы же не говорили, что должно быть в таком случае записано в ячейку...

Или Вы думаете, что нам нравится по сотне раз переписывать один и тот же макрос?

[SolexVK]

Уважаемый EducatedFool - вы правы во всех описаных претензиях. Я действительно был не прав, постоянно добавляя новые условия для выполнения кода.

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

Поскажите, что можно сделать в данном случае.

Пример я приложил