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

[svsh2016]

Добрый день,имеется какое-то недопонимание.Когда утром я посмотрел тему,у вас был один текст макроса,затем вы изменили свой текст макроса,и текст макроса уважаемого модератора.Я также менял текст макросов(и вашего и своего).
Если я правильно вас понимаю окончательный текст вашего макроса:

 Function FirstNonEmpty34_1(rng As Range)
Dim x As Range: Set x = rng.Find("*", rng.Cells(1, 1).Offset(rng.Count - 1))
    If x Is Nothing Then FirstNotEmpty = "No" Else FirstNotEmpty = x.Value
End Function

з
Окончательный текст моего макроса:

Function First5_1(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 > r.Rows(1).Row + r.Rows.Count - 1 Then
    First5_1 = CVErr(xlErrNA)
  Else
    First5_1 = Range(s & i)
  End If
ElseIf Not IsEmpty(r.Range("A1")) Then
   First5_1 = r.Range("A1").Value
End If
End Function

Я печатаю на планшете (яблоко),файл приложить не могу.
Если диапазон
A1:A20 пустой ,мой макрос выдаст ,также как функция массива Индекс #НД, ваша функция выдает другой результат.Предыдущий вариант First5 выдавал p,-в вашем примере,с этим я согласен.Я считаю,что пользовательская функция должна работать аналогично функции массива Индекс,в правильности функции массива сомнений нет.

[SAS888]

Я считаю,что пользовательская функция должна работать аналогично функции массива Индекс,в правильности функции массива сомнений нет.

А я считаю, что функция должна работать не как "что-то", а правильно. Не знаю, как у автора вопроса (кстати, где он?), а у меня есть вопросы как к формуле, так и к Вашему макросу.
По большому счету, нужно предполагать любой возможный вариант заполнения ячеек диапазона и в любом случае обрабатывать его корректно, чего не делает Ваша функция и, следовательно, массивная формула, т. е. и то и другое требует доработки (не допускать возникновение ошибки и исключить неправильный результат). К тому же, согласитесь, что Ваша функция еще и более громоздкая.

[DenOll]

IgorGO. У меня задача практически такая же как рассматривалась в данной теме, но только наоборот. Мне нужно найти не первую, а последнюю ячейку в массиве. Подскажите, пожалуйста, есть ли какой-то способ применить представленную Вами формулу но таким образом, что бы поиск осуществлялся с конца массива?

[IgorGO]

=ЕСЛИ(СЧЁТЗ(B3:B20)=0;"Нет данных";ИНДЕКС(B:B;МАКС(ЕСЛИ(НЕ(ЕПУСТО(B3:B20));СТРОКА(B3:B20)))))

формула вернет значение из последней НЕ ПУСТОЙ ячейки в диапазоне В3:В20, или Нет данных, если все ячейки пустые.
это формула массива (завершаете ввод формулы не Enter, а Ctrl+Shift+Enter)

[DenOll]

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

=ЕСЛИ(СЧЁТЗ(B3:B20)=0;"Нет данных";ИНДЕКС(B:B;МАКС(ЕСЛИ(НЕ(ЕПУСТО(B3:B20));СТРОКА(B3:B20)))))

формула вернет значение из последней НЕ ПУСТОЙ ячейки в диапазоне В3:В20, или Нет данных, если все ячейки пустые.
это формула массива (завершаете ввод формулы не Enter, а Ctrl+Shift+Enter)

А если у меня диапазон B2:R2, то мне нужно в формуле подменить СТРОКА() на СТОЛБЕЦ()? Или нужно еще что-то заменить что бы функция отработала корректно?

[IgorGO]

В:В заменить на 2:2

[DenOll]

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

В:В заменить на 2:2

Извините, что дергаю...
Но, к сожалению, у меня не выходит применить эту формул. Выводит результат "0".
Вот сама функция: =ЕСЛИ(СЧЁТЗ(E4:AI4)=0;"Нет данных";ИНДЕКС(2:2;МАКС(ЕСЛИ(НЕ(ЕПУ СТО(E4:AI4));СТОЛБЕЦ(E4:AI4)))))

Пробовал использовать как СТОЛБЕЦ() так и СТРОКА() результат одинаковый - "0".

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

Может сможете подсказать, что делаю не так?
За ранее очень признателен.

[IgorGO]

проверяете значения в диапазоне: E4:AI4 (в 4-й строке)
а значение берете из строки 2 ИНДЕКС(2:2;...
видимо, в строке 2 над последней не пустой в E4:AI4 ничего нет

[DenOll]

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

проверяете значения в диапазоне: E4:AI4 (в 4-й строке)
а значение берете из строки 2 ИНДЕКС(2:2;...
видимо, в строке 2 над последней не пустой в E4:AI4 ничего нет

Большое, человеческое СПАСИБО!