excel macro найти строку

Question

Мне нужно найти строку, содержащую определенное слово и т. Д. И после определенного (переменного) номера строки.

Последняя формула номер строки выглядит следующим образом:

Son1 = Range(KirilimKolonu & ":" & KirilimKolonu) _ 
      .Find(what:="1", _ 
       after:=Range(KirilimKolonu & "1"), _ 
       searchdirection:=xlPrevious).Row 

что-то вроде

x =1 

do while x < 785 

if range(KirilimKolonu & x).value = 1 then exit loop else 

x = x + 1 

Loop 

должно быть лучше вместо петли ...

Answer 1

Самый простой способ будет изменять диапазон для поиска и поиска назад. Если указать ячейку, чтобы начать поиск (After варианта) где-то в середине, поиск будет обернуть вокруг и меткости может быть на самом деле после начальной ячейки (а не не попадания на всех)

Dim foundCell As Range 
Dim searchRange As Range 
Dim Son1 As Long 

Set searchRange = Range("A1:A" & 785) 'your variable goes here 

Set foundCell = searchRange.Find(what:="1", searchdirection:=xlPrevious) 'specify other options if you must 

'you need to check if something was found or .Row will cause an error. 
If Not foundCell Is Nothing Then 
    Son1 = foundCell.Row 
Else 
    'do what you need to if there is no match 
End If 

More options