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