|
こんにちは。かみちゃん です。
><>で空白という意味を表しているんでしょうか?
違います。
とりあえず、マクロを使わずに、B4にセルを移動して、Endキーを押して、↓キー
を押してみてください。
そうすると、B4から下方向に「連続して」データの入っている最下行のセルに飛び
ます。そしてさらに↓キーを一回だけ押すと、次の行は空白ですから、空白のセル
に移動します。
この操作が理解できれば、それをマクロの記録で記録してみてください。
ここでひとつ注意することがあります。この方法を用いたとき、Excelの最大行ま
ですべての行にデータが入っていた場合どうなるかです。
Endキーを押して、↓キーを押したあと、もう一回↓キーを押して移動することは
できません。それを回避しています。
つまり、
Range("B4").End(xlDown).Row
で、「連続してデータの入っている最下行」に移動して
Columns(1).Rows.Count
がExcelの最大行となりますので、それと異なる(<>で表します)のであれば、
移動した行から
Offset(1).Select
で一行下のセルに移動します。
>実はこのセルの行数も知りたいんです。
その空白の行は、
Selection.Row
で取得できますが、
>空白セルが見つかったならば、その右隣へ
Offset(0,1)で、空白セルの1列右
Offset(0,2)で、空白セルの2列右
Offset(0,-1)で、空白セルの1左
などとできます。
|
|