Если первая заполнена, то 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
Вход
Регистрация
Напомнить пароль
Автосумма
Часто используемые
ВПР
ЕСЛИ
СУММЕСЛИ
Финансовые
Логические
Текстовые
Даты и времени 
Ссылки и массивы 
Математические
Другие функции
Проверка свойств и значений
Баз данных
Математические
Обработки массивов
Обработки строк
Преобразования типов данных 
Загрузки данных
Работы с файлами
Обработки системных параметров
Обработки цвета
Работы с датами и временем
Преобразования в системы счисления
Финансовые
