EXCEL VBA 空白行を含んだ範囲選択

EXCEL VBA超初心者です。

EXCELのVBAについての質問です。
以下のような、日ごとのお金の貸付、返済の一覧データがあります。

例

A B C D E
1 年　　月　日　貸付　　返済
2 2008　5　10　10000
3 2008　6　10　　　　　　8000
4 2008　7　10　20000
5 2008　8　20　　　　　　7000

・データの行数は決まっていません。
・最後の行が「貸付」で終わることもありますし
例のように「入金」で終わることもあります。
・各データには必ず「年」「月」「日」が入力してあります。

VBAで、A2セルからE5セルを範囲選択するには
どのように記述したらいいですか？

ちなみに自分で色々と調べてみて
Selection.SpecialCells(xlCellTypeConstants, 23).Select
としたのですが
それだと空白セル（例でいうとE2やD3セル）が選択されず
とびとびになってしまいました。

ご教授お願いいたします！

No.2 ベストアンサー 回答者： n-jun 回答日時： 2009/04/07 16:27

n-junです。

＞Range("A2",
セルＡ２と

＞Cells(Rows.Count, 1)
Ａ列（Cells(行番号,列番号："Ａ"＝１)）の最終行（Rows.Count）から

＞.End(xlUp))
上に遡ってデータのある行までを範囲とし、

＞.Resize(, 5).Select
その範囲をResize(行,列)で、行方向には変化させず（値を省略⇒省略しない場合はResize(1,5)）
列方向に５列広げる（⇒Ａ列からＥ列まで）

すなわちＡ２：Ａ５と取得した範囲を、Ａ２：Ｅ５とするという感じ。

数式があってもその結果次第で範囲の取り方も変わります。
例えば数式の結果が0であった場合、Ａ列を順に確認していって0に
なったかどうかを判定する必要がある。

あとは、
Ａ列の”数式があって値が数値である範囲”
Range("A:A").SpecialCells(xlCellTypeFormulas, xlNumbers).Select
⇒ただし0も数値ですから省けませんけど。

Ａ列の”数式があって値が文字列である範囲”
Range("A:A").SpecialCells(xlCellTypeFormulas, xlTextValues).Select
等々・・・数式から求められた結果によってさまざまかと。

この回答へのお礼

丁寧におしえていただいてありがとうございます！！
これで色々アレンジして使えそうです★
じっくり読ませていただき勉強させてもらいます！
どうもありがとうございました！！

お礼日時：2009/04/09 13:43

No.1 回答者： n-jun 回答日時： 2009/04/03 15:20

Ａ列の最終データまでを有効と見なせるのなら、

Range("A2", Cells(Rows.Count, 1).End(xlUp)).Resize(, 5).Select
とか？

この回答へのお礼

ご回答いただきありがとうございます！
VBAに記述してみたら
それらしき動きをしてくれました！
ちなみにVBA超初心者なため
内容を自分でアレンジすることができません。
もしお時間ありましたら
教えていただいたものの意味を教えていただけますか？
ちなみに空白セルとはいっても
全てのセルに数式が入っているんです。
このような場合どのあたりを修正すればよいかも
もしよかったら教えてください！

お礼日時：2009/04/07 14:58