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

[svsh2016]

Ваша дискуссия очень интересна.
Могу предложить пользовательскую функцию:

Function First1(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, 2)
      i = r.Range("A1").End(xlDown).Row
     First1 = Range(s & i)
       End Function

[jimmyyong]

Сообщение от Serge 007

0=0 - ноль равен нулю, значение: ИСТИНА
A1:A5<>"" - значение:{ЛОЖЬ:ИСТИНА:ЛОЖЬ:ИСТИНА:ЛОЖЬ}
ПОИСКПОЗ() ищет первое вхождение ИСТИНА в массив {ЛОЖЬ:ИСТИНА:ЛОЖЬ:ИСТИНА:ЛОЖЬ}
Первое вхождение на второй позиции

А в чем причина ошибки, если выбирается диапазон A1:B3?

SS.jpg

[IgorGO]

если приложите не картинку, а файл - шанс получить ответ на вопрос существенно возрастает.

извините, цитирую себя, но в сообщении #7 данной темы (в приложенном файле) есть некоторое количество ответов, как минимум agregator посчитал способ изложения достойным внимания.

[jimmyyong]

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

Ваша дискуссия очень интересна.
Могу предложить пользовательскую функцию:

Function First1(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, 2)
      i = r.Range("A1").End(xlDown).Row
     First1 = Range(s & i)
       End Function

Можно упростить

Function First1(r As Range)
First1 = r.End(xlDown).Value
End Function

[IgorGO]

уважаемый, jimmyyong,
очистите, пожалуйста, колонку А (отметили, очистили)
в А1 пишите 1
в А5 пишите 5

выполните:

Sub Test1()
  debug.print First1 ([a1:a9])
End Sub

с учетом того что First1 это предложенный Вами "упрощенный вариант"

Function First1(r As Range)
First1 = r.End(xlDown).Value
End Function

внимание 2 вопроса:
1. какая первая не пустая ячейка в диапазоне А1:А9?
2. а что отобразит Test1, использующий Вашу First1

[jimmyyong]

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

уважаемый, jimmyyong,
внимание 2 вопроса:
1. какая первая не пустая ячейка в диапазоне А1:А9?
2. а что отобразит Test1, использующий Вашу First1

Уважаемый, IgorGO у меня к Вам также 2 вопроса:
1 Какой результат возвращает функция предложенная в сообщении #11?
2 Действительно ли нужны все те действия в функции из сообщения #11 или достаточно предложенных мной для получения аналогичных результатов?

извините, цитирую себя, но в сообщении #7 данной темы (в приложенном файле) есть некоторое количество ответов, как минимум agregator посчитал способ изложения достойным внимания.

Вы зря думаете, что я не обратил внимания на Ваше сообщение и приложенный пример. Причина по которой я задал свой вопрос в сообщении #12 - ошибка возвращаемая формулой при передаче ей диапазона относящегося не к одному, а к двум и более столбцам.

"=ИНДЕКС(ПОИСКПОЗ(1=1;A3:B20<>"";);)"

[IgorGO]

jimmyyong,
1. не знаю. авторство не мое. смысл функции мне не интересен.
2. возможно
допускаю что Вы смогли написать существенно короче код совершенно не функциональной функции. извините за тавтологию.
За Вашу функцию глаз "зацепился" в связи с лаконичной записью, которая однозначно не решает обсуждаемую в данной теме задачу.

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

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

[jimmyyong]

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

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

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

Уважаемый IgorGO дело в том, что во-первых в VBA предусмотрена возможность обращения к совершенно конкретному элементу диапазона используя лишь одно число.

Range(“A1:C10”) .Cells(15)

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

[IgorGO]

спасибо за разьяснения.

в примере, во вложении, 3 простых формулы =ПОИСКПОЗ(17;....)
если не затруднит, растолкуйте мне откуда берется #Н/Д в верхней из них? почему формула не вернула, что число 17 в данном диапазоне находится в 17-й позиции или даже, что оно там просто есть!

[jimmyyong]

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

спасибо за разьяснения.
в примере, во вложении, 3 простых формулы =ПОИСКПОЗ(17;....)
если не затруднит, растолкуйте мне откуда берется #Н/Д в верхней из них? почему формула не вернула, что число 17 в данном диапазоне находится в 17-й позиции или даже, что оно там просто есть!

Из пустого в порожнее. Вы мое сообщение #12 не видели?!