- ベストアンサー
セルの選択
kbonbの回答
- kbonb
- ベストアンサー率51% (254/492)
こんにちは Sub test() Cells(Cells.Rows.Count, Selection.Column).End(xlUp).Select End Sub でいかがでしょうか？
関連するQ&A
- EXCEL セルの1個下空白にアクティブを移動したい
ある列にデーターが入力されていて 最下端のデーター選択は Selection.End(xlDown).Select でいけますが、その１つ下の空白セルにアクティブを移動したいのですが、 どうすれば良いのでしょうか？
- ベストアンサー
- オフィス系ソフト
- 任意の複数セルをマクロで選択し、コピーする方法
またお世話になります。 エクセルで選択された項目だけを抜き出して、新たに並べ替え、印刷するマクロを作っていますが、任意のセルからその横のセル３つを選択することが出来ません。表のイメージとしては、 Ａ Ｂ Ｃ 1 氏名 獲得 点数 2 田中 3 30点 3 中村 5 50点 4 高橋 5 近藤 1 10点 6 南 ・ ・ ・ の中からB列に数値が入っている行だけを別のところへコピペするというものです。 現在まで作ったマクロは、 Sub Macro01() Range("B1").Select Selection.End(xlDown).Offset(0, -3).Select ここに「田中 3 30点」の３つのセルを選択する方法 Selection.Copy ’印刷用の一番下から入力されているセルのひとつ下を選択する Range("N22").Select Selection.End(xlUp).Offset(1, 0).Select Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _ False, Transpose:=False この作業を繰り返しして、一定のところで止まるようにしたい。 End Sub です。 お返事よろしくお願いいたします。
- ベストアンサー
- その他（プログラミング・開発）
- セル範囲の指定方法について教えて下さい
エクセルマクロ勉強中です。 いつも皆様のご回答をもとに勉強させて頂いております。 下記を行いたいのですが、うまくいきません。 AA列を検索（AA1から最終セルまでは空白セル無し）し、AA1からAEまでをコピー したいです。AEの最終行はAAで検索した最終行となります。 AA10が最終行であったならば、コピー範囲はRange("AA1：AE10")。 AA AD AE 1 1 0 空白 2 1.5 2 空白 3 2 4 0.0 4 2.5 6 0.0 ・ ・ ・ ・ ・ ・ ・ ・ 11 空白 Range("AA1", Range("AA1").End(xlDown).End(xlToRight)).Select Selection.Copy 上記ですとAD列までは選択されますが、AEまで列までを選択するには どうしたらよいのでしょうか？ ご教示頂きたく宜しくお願い致します。
- ベストアンサー
- Excel（エクセル）
- 複数セル選択範囲を下の変動する最終行まで伸ばしたい
Win7とExcel2007でマクロ作成の初心者です。 Sub 選択範囲を広げる() Sheets("計算").Select Range("CU6").Select Selection.Resize(, Selection.Columns.Count + 27).Select ここで選んだセルの選択部分を、下の行に向かって選択範囲を広げたいです。 ただ、下方の行数は、常に変動するため、どうやって変動の選択範囲を広げたいか わかりません。よろしくお願いします。 表のCU6以下は、文字列と空白が交互にあります。 End Sub
- ベストアンサー
- Visual Basic
- エクセルＶＢＡで空白セルを削除する方法
みなさん教えてください。 今エクセルＶＢＡで、下記のようにのＡ列に空白セルがある場合にそのセルを削除し、 空白セルが無い場合何もしないと言うマクロを作っています（下記のように自動記録し ました）。 しかし、作成したマクロは、下記のようにＡ列に空白セルがない場合はエラーが出てし まいます。 空白セルが無い場合エラーが出ない方法を教えて頂けないでしょうか。 よろしくお願いします。 ＜マクロ＞ Sub Macro1() Columns("A:A").Select Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False Selection.SpecialCells(xlCellTypeBlanks).Select Application.CutCopyMode = False Selection.Delete Shift:=xlUp End Sub ＜データ＞ Ａ --------- 1 2 1 1 1 3 4 ・ ・ ・ （以降約３００行続きます）
- ベストアンサー
- オフィス系ソフト
- エクセル VBAマクロ セルの単純移動
基本的な質問ですが、よろしくお願いします。 エクセルのVBAで、Selectセルを１つだけ上下左右に移動させることを ”汎用的に書く”としたらどのようにすれば良いでしょうか？ 例えば、Selectセルを一番上や、一番下、へというのであれば、 Selection.End(xlUp).Select Selection.End(xlDown).Select 一番右や、一番左なら、 Selection.End(xlToRight).Select Selection.End(xlToLeft).Select のように書いて、実行できます。 それでは、今いる所のすぐ隣りのセルへ移動させるということを 同じように表現するには、どのようにしたら良いでしょうか。 事の発端は、 マクロの自動記録を使って、セルを移動していっても、 Range("A1").Select Range("B1").Select Range("B2").Select Range("C2").Select Range("C3").Select : のように、絶対セル位置で記録されてしまうため、 同じような処理を順に隣りや後の行・列に向かって繰り返すような処理を 書こうとしたときに、汎用的には動いてくれないところからです。 参考になるページを自力では見つけられませんでした。よろしくお願いします。
- ベストアンサー
- オフィス系ソフト
- ある列の計算式が入っているセルの行のみを削除したい
Excel2007でマクロを作成している超初心者です。 B列のセルには 空白 文字列 計算式が入っています。このうち計算式の入っているセルの行のみを削除したいのですが、どうしたらよろしいでしょうか？ セルには =IF(C17="","",+K17*L17)という式が入っています。 次式は0か空白の場合ですが、これをどのように修正したらできるでしょうか？ Sub 行の削除() Dim i As Long For i = 1 To Selection.End(xlDown).Columns Step 1 Select Case Range("B" & i).Value Case 0, "" Columns(i).Delete End Select Next End Sub
- ベストアンサー
- Visual Basic
- 下4桁を比較し、小さい値のセルだけを赤色に塗りつぶすには？
"C2:D2" から下へ、 「 連続したデータがあるセル 」 を選択してから、 Ｃ列 と Ｄ列 の 「 各値の下4桁だけ 」 を 行ごとに 比較し、 「 Ｄ列の値が 同じ か 小さいセルだけ 」 を 「 赤色に塗りつぶす 」 にはどのように記述すればよろしいでしょうか？ 下記例の場合、 ”D2” と ”D4” のセルだけが 「 赤色に塗りつぶす 」 ことになります。 どうか、ご教示くださいませ。 -------------------------- Range("C2:D2").Select Range(Selection, Selection.End(xlDown)).Select ・ ・ -------------------------- C列 D列 1 あ い 2 た112222 1111 3 ち114444 5555 4 つ116666 6666 ・ ・ ・ ・ ・ ・
- ベストアンサー
- オフィス系ソフト
- VBA 表の１つ下のセルを選択する
EXCEL2003のVBAを使っています。 オートフィルタで抽出させた表があります。 入力されているセルの、1つ下のセルを選択するにはどうしたら良いでしょうか。 A 1 あああ 2 あああ 5 あああ １行目から19行目までの列の中で、"あああ"だけをオートフィルタで抽出している 10 あああ 14 あああ 16 あああ 20 ※ ←ここを選択したい。 Range("A65536").Select Selection.End(xlUp).Select ActiveCell.Offset(1, 0).Select これだとA17のセルが選択されてしまいます。 表全体の1つ下のセルを選択する方法はあるでしょうか？
- ベストアンサー
- オフィス系ソフト
- エクセルＶＢＡで範囲の指定をしたいです（初心者）
エクセルＶＢＡで範囲の指定をしたいです（初心者） 列ＡからＪがデータが入る範囲です。 列ＡとＢとＣには必ず数値等が何かしら入ります。 列Ｄは常に空白です。 列Ｅ以降は何か入ることも入らないこともあります。 ７行目までデータがある場合、 Ａ１セルからこの場合はＪ７セルまでを範囲指定したいのですが 行数は未定なので、 Range("A1").Select Range(Selection,Selection.End(xlDown)).Select でＡ列のデータ最終行まで下がり、そこから９つ右の列までを 範囲指定するというのがよくわかりません。 自動記録で絶対参照と相対参照を切り替えてやってみたのですが、 どうしても Range(Selection, Selection.End(xlDown)).Select ActiveCell.Range("A1:J7").Select と常にＡ１からＪ７が指定になってしまいます。 バージョンは2003です。 つたない質問文で申し訳ありませんが、 どなたか宜しくお願いいたします。
- ベストアンサー
- オフィス系ソフト
お礼
技の方にもでていたのですね＾＾；； 目は通したのに、解りませんでした。 昨日長い時間かけて悩んでいたことが、一発で解決しました。 ありがとうございます。