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後かもしれません