Ｅｘｃｅｌ2000で、入力セルだけ列の範囲選択の仕方

こんにちは！Excelの範囲選択で困っているので助けてください。実際にはマクロで範囲を選択したいと考えております。

　　　Ａ　　　Ｂ　　　Ｃ
１　　ああ　　いい　　うう
２　　かか　　きき　　くく
３　　ささ　　せせ　　そそ
４　　ちち　　てて　　たた
…

という表がある時に、Ｂ１のセルからＢ列の入力されているセルの一番下のセルまでを選択したい場合は
どの様に範囲選択をかけると良いのでしょうか？


たとえば、Ｂ１を選択してから、Ctrl＋Shift＋Endを押すと、Ｂ１からＣ４までとか最後のセルまで選択できるんですが、同じ列の最終入力セルまでを選択したいのです。Ｂ１からＢ４までって感じで。

よろしくお願いします。

No.1 回答者： sero 回答日時： 2004/10/09 13:58

Ctrl＋Shift＋下矢印キー

ではダメなんでしょうか

この回答へのお礼

ご回答ありがとうございます。
途中に空白があると止まっちゃうのが問題で、最後のセルまで選択したいところなんです。。
マクロの方法を教えて戴いたのでそちらでやってみようと思います。ありがとうございました。

お礼日時：2004/10/10 10:11

No.2 回答者： papayuka 回答日時： 2004/10/09 14:00

Sub test()

　With ActiveSheet
　　.Range("B1", .Range("B65536").End(xlUp)).Select
　End With
End Sub

マクロで様々な処理をする場合、実行時に選択する必要は殆どないけど、、、

この回答へのお礼

ご回答ありがとうございます。
コードの書き方がイマイチわからなくって。。。
自分で画面でやってはマクロを組んでいます。

なるほど！これで一発ですね。
実は、この選択した部分に色をつけたいのですが、
その場合ってどう書くんでしょうか？

お礼日時：2004/10/09 17:52

No.3 回答者： hana-hana3 回答日時： 2004/10/09 14:03

[Shift]　を押したまま、

ａ．[End]
ｂ．[矢印]
とキーを押せば選択できます。

この回答へのお礼

ご回答ありがとうございます。
う～ん、少しずつ選択が出来ないようです。
マクロの方法を教えて戴いたのでそちらでやってみようと思います。ありがとうございました。

お礼日時：2004/10/10 10:13

No.4 回答者： misatoanna 回答日時： 2004/10/09 14:53

> Ｂ１を選択してCtrl＋Shift＋Endを押すと、Ｂ１からＣ４までとか最後のセルまで

> 選択できるんですが、同じ列の最終入力セルまでを選択したいのです

Ｂ１を選択して [Ctrl]＋[Shift]＋[↓]。
これを自動記録されたらいかがでしょう。

この回答へのお礼

ご回答ありがとうございます。
途中に空白があると止まっちゃうのが問題で、最後のセルまで選択したいところなんです。。
マクロの方法を教えて戴いたのでそちらでやってみようと思います。ありがとうございました。

お礼日時：2004/10/10 10:14

No.5 回答者： imogasi 回答日時： 2004/10/09 15:35

B1セルにカーソルがあれば、

ENDキー　を押す
↓矢印キー　を押す
で良いのでは。
但し空白行が途中にあるとその前で止まる。それで
名前ボックスにB65000といれエンタキーを押す、で十分下セルにカーソルを移し
ENDキー　を押す
↑矢印キー　を押す
で下方から上の入力セルに迫る。

この回答へのお礼

ご回答ありがとうございます。
これ、面白いですね。B1みたいに一番上のセルからはじめるときには使えますね。
私も頭柔らかくなりたいなぁ。

お礼日時：2004/10/10 10:17

No.6 ベストアンサー 回答者： papayuka 回答日時： 2004/10/09 21:34

#2です。

> 実は、この選択した部分に色をつけたいのですが、

例えば、こんな感じとか。

Sub test()
　With ActiveSheet
　　.Range("B1", .Range("B65536").End(xlUp)).Interior.ColorIndex = 35
　End With
End Sub

この回答へのお礼

再度のご回答に感謝します。
出来ましたぁ！
なんだかスゴク嬉しいです。
ありがとうございました。

お礼日時：2004/10/10 10:10