列を降りて一致するものを探す-vba

Question

それぞれを使用して、Excelの列（.range（A1：A500））に移動して特定の値を見つけたいと思います。

例： A1で起動し、セルに移動します。もし何かXが見つかったら、上の行を停止して挿入してください。その後、私はそれぞれのために私を終了したい。

Iveは検索されましたが、私にとってはうまくいく解決策を見つけることができません。 =/

この場合、何か助けに感謝します。

Answer 1

あなたの範囲内の各セルをループし、このような試合を見つけることができます。

Dim r as range 
For each r in range("a1:a500") 
    If r = X then 
     'found it 
     if r.row>1 then 
     rows(r.row-1).insert 
     else 
      rows(1).insert 
     end if 
     exit for 
    end if 
Next r