| 
    
     |  | ▼Jaka さん: 
 ご返信ありがとうございます。
 
 >ひょっとして、A1〜E1を選択してとかの Shift + Ctr + ↓?
 >だったら、止めた方がいいです。
 
 はい、このようにA1〜E1を選択して Shift + Ctr + ↓というような
 プログラムを書いてみたら、思ったような結果が出ませんでした。
 
 なので最初の行の上に空白行を挿入してからCurrentRegionを使って
 使われている領域として範囲指定することにしました。
 
 どうもありがとうございました。
 重ねてお聞きして申し訳ありませんが、この範囲を指定した後に
 F列にIfでB列の中身を見てからグループ名のようなものを出すという
 作業があるのですが、下に向かって空白行になるまで処理を繰り返す
 というプログラムを作っています。
 
 セルではなく、行全体が空白になるまで繰り返すという文を
 Doのところに書きたいのですが、そのように書いたらできますか?
 
 Do Until Cells(i, "B").Value = ""
 
 これをセルではなく行が空白でなくなるまでにしたいのですが、
 いろいろテストしてみましたが、うまくできません。
 ご回答お願いいたします。
 
 
 >>これはキーボードでいうShift + Ctr + ↓
 >>と必ずしも同じ意味にはならないのでしょうか?
 >え〜と、どういった状況でのShift + Ctr + ↓なのかわからないのでなんともいえませんが、
 >「キーボードでいうShift + Ctr + ↓」という操作は、ほとんど特定パターンでしか試されたことが無いのでは?
 >
 >Shift + Ctr + ↓は曲者で、E列K行のセルの状態やその下のセル、さらにその下のセルの状態で結果が変わりますから
 >
 >、その辺りを理解していないで使うと苦労すると思います。
 >時と場合によりけりで、使いますし、使う場合は未然チェックが面倒ですね。
 >
 >例えば、以下のパターンで、Shift + Ctr + ↓ を押してみてください。
 >法則が解りにくいでしょ。
 >
 >パターン1
 >  A
 >1 データ
 >2 空白
 >
 >パターン2
 >  A
 >1 データ
 >2 データ
 >3 空白
 >
 >パターン3
 >  A
 >1 空白
 >2 データ
 >3 データ
 >
 >パターン4
 >  A
 >1 データ
 >2 データ
 >3 データ
 >
 >パターン5
 >  A
 >1 空白
 >2 空白
 >3 データ
 >4 データ
 >
 >ひょっとして、A1〜E1を選択してとかの Shift + Ctr + ↓?
 >だったら、止めた方がいいです。
 >状況でまちまちなので。
 
 
 |  |