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