Определить номер строки по значению в ячейке

@Deka_Original · Регистрация: 10.10.2014

Добрый всем вечер! Есть таблица (скриншот) такого вида. Необходимо определить номер строки над первым "0" (выделена).

@АЕ · 04.09.2020, 21:27

Deka_Original, найти первый ноль и отнять единицу

@Deka_Original · 04.09.2020, 21:38 **[ТС]**

Сообщение от АЕ

найти первый ноль и отнять единицу

я понимаю. И даже понимаю, что вопрос уровня школы, но я не могу найти первый 0)))) Именно с определением строки проблема. Я пробовал так :

Visual Basic

1	y = (Worksheets(3).Range("B$").Find("0").Row)

но попытка увенчалась провалом)

@АЕ · 04.09.2020, 21:44

Вогнать в массив

Visual Basic

Dim x  
    With Range("B1", Cells(Rows.Count, 1).End(xlUp)) 'из столбца  
     x = WorksheetFunction.Transpose(.Value)  
    End With

далее идите (перебирайте) по массиву пока не найдете нужное

@Catstail · 04.09.2020, 21:44

Visual Basic

    iii&=1
    do 
        if WorkSheets(3).Range("B"+Cstr(iii&)).Value=0 then Exit Do
        iii&=iii&+1
    loop
    msgbox Cstr(iii&-1)

@Deka_Original · 04.09.2020, 22:19 **[ТС]**

Сообщение от АЕ

Вогнать в массив

Спасибо за совет!

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

iii&=1
do
if WorkSheets(3).Range("B"+Cstr(iii&)).Value=0 then Exit Do
iii&=iii&+1
loop
msgbox Cstr(iii&-1)

Это понравилось больше) Спасибо!

@Deka_Original 4 / 4 / 2 Регистрация: 10.10.2014 Сообщений: 86
		1
	Определить номер строки по значению в ячейке 04.09.2020, 21:20. Показов 4413. Ответов 5 Метки нет (Все метки) Добрый всем вечер! Есть таблица (скриншот) такого вида. Необходимо определить номер строки над первым "0" (выделена). Миниатюры 0

@АЕ ᴁ® 3859 / 2188 / 459 Регистрация: 13.12.2016 Сообщений: 7,492 Записей в блоге: 5
	04.09.2020, 21:27	2
	Deka_Original, найти первый ноль и отнять единицу 0

@Deka_Original 4 / 4 / 2 Регистрация: 10.10.2014 Сообщений: 86
	04.09.2020, 22:19 [ТС]	6
	Сообщение от АЕ Вогнать в массив Спасибо за совет! Сообщение от Catstail iii&=1 do if WorkSheets(3).Range("B"+Cstr(iii&)).Value=0 then Exit Do iii&=iii&+1 loop msgbox Cstr(iii&-1) Это понравилось больше) Спасибо! 1

Решение