値の入っている列の最終行までloopで全件参照。
しかし所々に空白行があるので、値の入っている最終行を取得する事に・・・
取得手順
方法として、最後の行（下）から上に値を入っている場所を探して行数を求める。
（以下数字の1は列指定で、B列であれば2になる）
Cells(Rows.Count, 1).End(xlUp).Rowこの結果を最大行とし、For～Nextでこの結果の値まで回せば良いでしょう。
まとめ
使用する頻度は少ないとは思いますが、今回のような残しておけば後々使うかな？っていう事もあるので備忘録として残しておきます。
