excel宏查找行

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后