- ベストアンサー
Excel2000で、入力セルだけ列の範囲選択の仕方
こんにちは!Excelの範囲選択で困っているので助けてください。実際にはマクロで範囲を選択したいと考えております。 A B C 1 ああ いい うう 2 かか きき くく 3 ささ せせ そそ 4 ちち てて たた … という表がある時に、B1のセルからB列の入力されているセルの一番下のセルまでを選択したい場合は どの様に範囲選択をかけると良いのでしょうか? たとえば、B1を選択してから、Ctrl+Shift+Endを押すと、B1からC4までとか最後のセルまで選択できるんですが、同じ列の最終入力セルまでを選択したいのです。B1からB4までって感じで。 よろしくお願いします。
- yuk777
- お礼率86% (183/212)
- オフィス系ソフト
- 回答数6
- ありがとう数6
- みんなの回答 (6)
- 専門家の回答
質問者が選んだベストアンサー
#2です。 > 実は、この選択した部分に色をつけたいのですが、 例えば、こんな感じとか。 Sub test() With ActiveSheet .Range("B1", .Range("B65536").End(xlUp)).Interior.ColorIndex = 35 End With End Sub
その他の回答 (5)
- imogasi
- ベストアンサー率27% (4737/17068)
B1セルにカーソルがあれば、 ENDキー を押す ↓矢印キー を押す で良いのでは。 但し空白行が途中にあるとその前で止まる。それで 名前ボックスにB65000といれエンタキーを押す、で十分下セルにカーソルを移し ENDキー を押す ↑矢印キー を押す で下方から上の入力セルに迫る。
お礼
ご回答ありがとうございます。 これ、面白いですね。B1みたいに一番上のセルからはじめるときには使えますね。 私も頭柔らかくなりたいなぁ。
- misatoanna
- ベストアンサー率58% (528/896)
> B1を選択してCtrl+Shift+Endを押すと、B1からC4までとか最後のセルまで > 選択できるんですが、同じ列の最終入力セルまでを選択したいのです B1を選択して [Ctrl]+[Shift]+[↓]。 これを自動記録されたらいかがでしょう。
お礼
ご回答ありがとうございます。 途中に空白があると止まっちゃうのが問題で、最後のセルまで選択したいところなんです。。 マクロの方法を教えて戴いたのでそちらでやってみようと思います。ありがとうございました。
- hana-hana3
- ベストアンサー率31% (4940/15541)
[Shift] を押したまま、 a.[End] b.[矢印] とキーを押せば選択できます。
お礼
ご回答ありがとうございます。 う~ん、少しずつ選択が出来ないようです。 マクロの方法を教えて戴いたのでそちらでやってみようと思います。ありがとうございました。
- papayuka
- ベストアンサー率45% (1388/3066)
Sub test() With ActiveSheet .Range("B1", .Range("B65536").End(xlUp)).Select End With End Sub マクロで様々な処理をする場合、実行時に選択する必要は殆どないけど、、、
お礼
ご回答ありがとうございます。 コードの書き方がイマイチわからなくって。。。 自分で画面でやってはマクロを組んでいます。 なるほど!これで一発ですね。 実は、この選択した部分に色をつけたいのですが、 その場合ってどう書くんでしょうか?
- sero
- ベストアンサー率47% (916/1944)
Ctrl+Shift+下矢印キー ではダメなんでしょうか
お礼
ご回答ありがとうございます。 途中に空白があると止まっちゃうのが問題で、最後のセルまで選択したいところなんです。。 マクロの方法を教えて戴いたのでそちらでやってみようと思います。ありがとうございました。
関連するQ&A
- 入力セルから入力セルに罫線をひく
BBAでお聞きします。 セルB3「あ」が入力してあり、F5に「い」が入力してあるとします。B3;F5まで罫線をマクロ設定後、ボタンを作成して記入できますでしょうか。 Excelで「B3」を選択後、shift+ctrl+endで「F5」まで指定後、相対マクロで記憶させます.その後、1度クリアー後、再度「B4」から「F4」まで選択しますとF5まで罫線が引かれます。 記入セルから記入セルまでの罫線の引く、VBAをご教授ください。 宜しくお願いします。
- ベストアンサー
- Visual Basic
- エクセル マクロ 選択範囲を含む行の特定列を選択し、決まった値を入力させたいです。
みなさんいつもありがとうございます。 ある範囲を選択しているときに、その選択範囲を含む行の、 特定の列全てに決まった文字列を入力させたいです。 【例】 (1)の範囲を選択している時に実行すると (2)のセル全てに『ABC』と入力 (下の場合は文字列を入力させたいのがC列) (1) (2) A2:A4 ⇒ C2:C4 A2:B4 ⇒ C2:C4 B5:E10 ⇒ C5:C10 よろしくお願いいたします。
- ベストアンサー
- オフィス系ソフト
- VBA 選択範囲がセル範囲か列丸ごとか区別
マクロ起動時のセルの選択範囲により、異なる処理をしようと思ってます。 ・セル1個あるいは縦に複数個選択されている 選択したセルについて処理 ・1列全体が選択されている 1列のデータ入力されているセルのみ対象 なので、起動時に選択されているのがセル範囲なのか1列全体なのか識別する必要があります。 どうすればいいでしょうか?
- ベストアンサー
- Excel(エクセル)
- エクセル:列の範囲選択をうまくできないでしょうか ?
行数が約2000行ほどの表を毎月使用します。それでいろんな列をコピーして別の表に貼り付けたいのですが、列のコピーをする時に範囲指定でドラッグに結構時間がかかります。これをマクロでやりたいんですが、カーソルをおいた列の一番下の行まで範囲を指定すると言うのをマクロでできないでしょうか? 自動記録でマクロを造ろうとすると、実行した列を選択してしまい、任意の列の選択ができません。 よろしくおねがいします。
- ベストアンサー
- オフィス系ソフト
- セル範囲選択について
エクセルのセル範囲選択ですが、[CTRL]+[SHIFT]+[↓] で連続データの末尾まで選択できますが、空白がある場合上手くいかないと思います。 空白も含めてデータの末尾まで一気に選択する方法はないでしょうか? 列を全て選択したり、マクロを使うなどの方法以外でお願いします。
- ベストアンサー
- オフィス系ソフト
- EXCEL 選択範囲について
EXCELで複数セルを選択するとき、以下の二つの方法で実施すると選択範囲が変わってしまいます。 1.Ctrl+Shift+End 2.Ctrl+A 二つとも同じ機能と認識していたのですが、違いがあるのでしょうか? よろしくお願いします。
- ベストアンサー
- オフィス系ソフト
- マクロを使って範囲選択したい
エクセルのセルにランダムに入力されたデータについて、データが入力されたセル(データが入っていない空白部分も含めて)全てを範囲選択したいのですが、マクロを利用してできますでしょうか。 その後、コピーペーストする予定なのですが、シート全体を選択する方法は駄目です。あと、空白セルも存在するので、入力された1つのセルを選択して、ctrl+Shift+*も駄目です。 もともとのデータは、OCRソフトで読み込こんだデータをエクセルにしたものなので、基本ぐちゃぐちゃにデータが入力された状態になっています。 わかりずらい質問かもしれませんが、回答願います。
- ベストアンサー
- Excel(エクセル)
- 【Excelマクロ】範囲の指定列選択 範囲文字入力
EXCELの範囲選択している部分の 一列部分のみを選択したいです。 画像を貼りました。マクロ 例ですが、 6行目から10行目まで選択していて、 その中のB列を選択したい場合のマクロです。 6行目~10行目→B6:B10 また、選択している範囲全て(B6:B10)に 「OK」と記入したい場合に、 どのようにするのかも教えて頂けるとありがたいです。 よろしくお願い致します。
- ベストアンサー
- Excel(エクセル)
- マクロ セル範囲の選択の仕方について
いつも回答して頂きありがとうございます。 ネット等で検索し、有効なマクロ記述を使用してセル範囲の選択を行いましたが、 自分が思っている通りに動きませんでした。 『質問内容』 C7を起点とした最終の列 (C7:D7) ← 自分の狙いの選択範囲(Dより大きい文字がきて欲しかった) 実際は、(A7:C7)が選択された。 どこらへんの記述が間違っているのでしょうか? 御指導の程よろしくお願い致します。 ちなみに下記が自分が作成中のマクロです。 Sub シートを繰り返し選択する() Dim d As Integer Dim retu As Integer d = 3 retu = Range("IV7").End(xlToLeft).Column Worksheets(Worksheets("一覧").Cells(d, 2).Value).Activate ActiveSheet.Range(Cells(7, 3), Cells(7, retu)).Select End Sub
- ベストアンサー
- オフィス系ソフト
- ピボットテーブルの範囲を選択する事はできますか?
ピボットテーブルの範囲を選択する事はできますか? ピボットテーブルをクリックして、 CTRL+Aを押すと、 現在アクティなピボットテーブル全体を選択できます。 この動きをマクロの記録で取ってみたのですが Sub Macro1() Range("A3:B9").Select Range("B8").Activate End Sub しか記録されてませんでした。 やりたいことは、該当のピボットテーブル全体を選択し、 その範囲に名前を付けたいのですが まずピボットテーブルの範囲を選択するマクロ(VBA)を作成したいです。 ピボットテーブル名を指定して範囲を選択することはできないのでしょうか? Cells(Rows.Count, "A").End(xlUp).Row など最終行、最終列を取得していくしかないのでしょうか?
- ベストアンサー
- Excel(エクセル)
お礼
再度のご回答に感謝します。 出来ましたぁ! なんだかスゴク嬉しいです。 ありがとうございました。