Если первая заполнена, то 1 Если столбец вообще пуст, то 0 Кстати, учитывает и то, что в ячейке может быть формула, возвращающая "" (по ссылке проверяется на <>"", что, я считаю, не совсем верно)
Sub tt() IfIsEmpty(Range("B1")) Then
r_ = Range("B1").End(xlDown).Row IfIsEmpty(Range("B" & r_)) Then
r_ = 0'Столбец пуст EndIf Else
r_ = 1 EndIf EndSub
Если первая заполнена, то 1 Если столбец вообще пуст, то 0 Кстати, учитывает и то, что в ячейке может быть формула, возвращающая "" (по ссылке проверяется на <>"", что, я считаю, не совсем верно)
Sub tt() IfIsEmpty(Range("B1")) Then
r_ = Range("B1").End(xlDown).Row IfIsEmpty(Range("B" & r_)) Then
r_ = 0'Столбец пуст EndIf Else
r_ = 1 EndIf EndSub
Ага, а потом выясняется, что человеку было нужно, например, найти "первую ячейку во втором столбце таблицы, где есть ненулевое значение, и при этом в таблице присутствуют заголовки столбцов, а в этом втором столбце таблицы значения рассчитаны формулами"
Оффтоп: Не-е, без примера, не в том разделе (что-то там мелькнуло про "макросом"), и т.д. - модераторов на вас нет :)
Ага, а потом выясняется, что человеку было нужно, например, найти "первую ячейку во втором столбце таблицы, где есть ненулевое значение, и при этом в таблице присутствуют заголовки столбцов, а в этом втором столбце таблицы значения рассчитаны формулами"
[offtop]Не-е, без примера, не в том разделе (что-то там мелькнуло про "макросом"), и т.д. - модераторов на вас нет :)[/offtop]AndreTM