Найти первую непустую ячейку в строке Excel

[IgorGO]

читал, а Вы это читали:

ПОИСКПОЗ Возвращает относительное положение элемента массива.
ПОИСКПОЗ - возвращает одно число, следовательно массив должен быть линейным (горизонтальным или вертикальным) результатом будет число - позиция искомого элемента в массиве.

позиция элемента в таблице (в двумерном массиве) определяется строкой и столбцом ДВУМЯ ЧИСЛАМИ, следовательно ПОИСКПОЗ неприменим к поиску в таблице.
используйте корректные аргументы - функция вернет корректный результат.

[slan]

по моим расчетам ПЕРВУЮ НЕПУСТУЮ ячейку даст такая формула:
=ИНДЕКС(A:A;ПОИСКПОЗ(ЛОЖЬ;A1:A20="" ;0))

[svsh2016]

Добрый вечер!
Могу предложить пользовательскую функцию VBA.
Функция вводится в стандартный модуль VBA.
Работает во всем листе Excel (в том числе для двухбуквенных столбцов-находит значение первой непустой ячейки типа диапазона
A3:A20 форумчанина Доктор:

Function First2(r As Range)
Dim i As Integer, s As String
Application.Volatile
If TypeName(r) <> "Range" Then Exit Function
s = Left(r.Range("A1").Address, InStrRev(r.Range("A1").Address, "$") - 1)
i = r.Range("A1").End(xlDown).Row
First2 = Range(s & i)
End Function

[IgorGO]

и Вам не хворать!

уважаемый svsh2016, предложить-то Вы можете...
отличная функция и работает на всем листе и с двухбуквенными столбцами, мало того - эта функция работает даже с трехбуквенными столбцами...

но есть в ней один недостаток... она возвращает не первое не пустое значение, как Вы думали, а то непустое, которое (в зависимости от данных) вычисляет предложенный Вами код.

во вложении файл, выполните TestFirst2, что видно???
неуже ли "2-я не пустая из А3:А20"!?!?!?
а разве А3 не в диапазоне А3:А20, или может быть она пустая?

подкупает проверка на соответсвие параметра функции требуемому типу

If TypeName(r) <> "Range" Then Exit Function

дело только в том, что если попытаться передать в First2 параметр не соответсвующий типу Range, то еще до Вашей проверки компилятор ругнется на несоответсвие типов.
например для такого вызова: First2("svsh2016") - уверенно получите "Type mismatch"


у Вас два сообщения на форуме и оба мимо кассы. будьте бдительны!

[svsh2016]

Добрый вечер!Обсуждение данной темы было интересным,функция массива замечательная.Кроме того существует
пользовательская функция VBA,размещается в стандартном модуле.Работает во всем лист Excel,все ситуации по возможности отработал:

Function First5(r As Range)
Dim i As Long, s As String
Application.Volatile
If IsEmpty(r.Range("A1")) Then
   s = Left(r.Range("A1").Address, InStrRev(r.Range("A1").Address, "$") - 1)
   i = r.Range("A1").End(xlDown).Row
If i = Cells.Rows.Count Then First5 _
= CVErr(xlErrNA) Else First5 = Range(s & i)
ElseIf Not IsEmpty(r.Range("A1")) Then
   First5 = r.Range("A1").Value
End If
End Function

[Serge 007]

Сообщение от agregator

...дать Excel понять, что формулу надо считать как массив можно не только {}.

Вы ошибаетесь. На листе Excel, его средствами, можно только так. Других способов не существует

[IgorGO]

Сережа, см. вложение строка 3

это формула массива?

а в пошаговом режиме все обрабатываеися как массив данных. вот это и есть те самые другие способы в ексеоь.

[agregator]

Serge 007, я имел в виду, что чтобы дать программе понять, что формулу надо считать как массив, можно после ввода данных в строку формул одновременно нажать клавиши клавиатуры Ctrl + Shift + Enter и ее содержимое заключится в фигурные скобки {}. А можно например прописать внутри формул работающих с массивами на место массива, например СУММПРОИЗВ(массив) или ИНДЕКС(массив;номер_строки;номер_столбца) и Excel посчитает её как формулу массива.

[Serge 007]

Сообщение от IgorGO

...это формула массива?..

Игорь, нет, конечно!

А что такое "формула массива"? Давай начнем с определения

[svsh2016]

Уважаемый пользователь Доктор,ваш вопрос решает пользовательская функция VBA First5.
Преимущество пользовательских функций в том,что
она проще функций массива.Водится в стандартный модуль VBA.
Затем набираете в ячейке =F выскакивает диалоговое окно,выбираете функцию,выбираете диапазон мышью или клавиатурно.
Функция протестирована совместно с функцией массива Индекс,работает аналогично.

 Function First5(r As Range)
Dim i&, s$
Application.Volatile
If IsEmpty(r.Range("A1")) Then
   s = Left(r.Range("A1").Address, InStrRev(r.Range("A1").Address, "$") - 1)
   i = r.Range("A1").End(xlDown).Row
  If i = Cells.Rows.Count Then
    First5 = CVErr(xlErrNA)
  Else
    First5 = Range(s & i)
  End If
ElseIf Not IsEmpty(r.Range("A1")) Then
   First5 = r.Range("A1").Value
End If
End Function