セルの下から指定した文字を見つける【VBA】

経緯

VBAで「セルを下から数えて、指定した文字を見つけたい」と思い、

今回勉強しました。

「”For Next文” でStep -1」を使う

プログラムを書きます。「A列に苗字がたくさんあって、その中の一番下にある”森”という文字を検出する」という流れです。

Dim c1 As Long
Dim i As Long

c1 = Range("A2").Column

For i = Cells(Row.Count, 1).End(xlUp).Row To 1 Step -1
 If Cells(i, c1).Value = "森" Then
  Cells(i,1).Activate
　Exit For
 End if
Next i

プログラムの説明をします。

1行目、「c1」いう変数を宣言してます。

2行目、「i」いう変数を宣言してます。

3行目、カラムを指定しています。ここで”A列”をカラムとしてます。

4行目、For文です。”Cells(Rows,Count, 1).End(xlUp).Row”は「A列の一番下を選択してます」、

で”To”でつなげて、”1 Step -1”で「1セルずつ上に」って感じです。

5行目、If文です。A列に”森”があったら、6行目へ。なかったら、8行目へ飛びます。

6行目、”森”があったら、そのセルをアクティブにしてます。

7行目、For文を抜け出します。

8行目、If文終わりです。

9行目、4行目に飛びます。

こんな感じでうまくいきました。

参考になれば、幸いです。

ここまで読んでいただきありがとうございました。