- ベストアンサー
エクセルのセルの位置の指定の仕方
- みんなの回答 （3）
- 専門家の回答
質問者が選んだベストアンサー
Ctrlを押しながら複数の範囲を選択した場合は除いて良いなら下記で出ましたよ。 もっと良い方法があるかも知れませんが、、 Sub aaa() If Selection.Areas.Count = 1 Then MsgBox Selection.Cells(Selection.Rows.Count, 1).Row End If End Sub
その他の回答 (2)
- misatoanna
- ベストアンサー率58% (528/896)
Selection.Row + Selection.Rows.Count - 1 では？
お礼
ありがとうございます。
- imogasi
- ベストアンサー率27% (4737/17068)
Sub test01() MsgBox Selection.Cells(1).Offset(Selection.Rows.Count - 1, 0).Address 'MsgBox Selection.Rows.Count End Sub もっとよい直接的な方法もあるかも知れ無いが。 xlBottomLeftのようなのが有ればといつも思うのですが。
お礼
ありがとうございます。
関連するQ&A
- EXCEL VBA----離れたセル範囲の指定
こんにちは。初歩的なことで困っています。 Range("A3:A19,F3:F19").Select のように、離れたセル範囲を選択したいのですが 上の例の19行目が不定であるため、変数を使ったCellsプロパティを使用し i=Range("A3").End(xldown).Row Range("Cells(3, 1).Cells(i, 1), Cells(3, 6).Cells(i, 6)").Select と書いてみたのですが、エラーになってしまいました。 正しい指定の仕方を教えて下さい。よろしくお願いします。
- ベストアンサー
- オフィス系ソフト
- Excel マクロ
マクロで一部分だけ範囲選択をかけたいのですが、 A列から指定行までと１行目の最右列までを範囲選択をしたいのですができるのですか？ 出来ましたら、コードを教えてください。 コードの記述は下のとおりです。 Range("A1").Select Range(Selection, Selection.End(xlDown)).Select a1 = Range("xfd1").End(xlToLeft).Select Endcolumn = Application.WorksheetFunction.Max(a1)
- ベストアンサー
- Excel（エクセル）
- VBA 指定値に最も近い値のセルの行番号は？
A列に数値が昇順で並んでます。指定の値に最も近い値が並んでるセルの行番号を知りたいのです。 WorksheetFunction.vlookupを使うと、値は分っても行番号はわからない筈です。 Cells.Find().Row を使うと、行番号はわかりますが「最も近い」値はわからない筈です。 マクロを組め！との御指摘があるかも知れませんが、便利な関数があるのならそれで済ませたいです。何かありませんか？無ければ諦めます。
- ベストアンサー
- Excel（エクセル）
- エクセルのマクロで範囲指定をセルに番号を入れて、範囲指定したセルの字の
エクセルのマクロで範囲指定をセルに番号を入れて、範囲指定したセルの字の色を白にして消したいのですが、番号を入れるマクロがわかりません。マクロに記録でＡ２からＢ１２までのセル内の字の色を白 にする方法は Sub 字を消す() ' ' 字を消す Macro ' ' Range("A2:B11").Select With Selection.Font .ThemeColor = xlThemeColorDark1 .TintAndShade = 0 End With End SubでできるのですがＤ３に開始番号、Ｅ３に終了番号を指定する方法がわかりません。ご教授お願いします
- ベストアンサー
- オフィス系ソフト
- EXCELマクロのデータの最終行の取得
EXCELマクロでRange("A1").End(xldown).Rowで、正しい値が取得できません。 A1からA6697まで、連続して入力しているので、途中に空白セルはありません。 それよりうしろにも、データはありません。 しかし、帰ってくる値はなぜかそれより遥か下の空白セルの「78889」です。 下からxlUpで検索しても同じ値が返ってきます。 A78889には、何も入力してありません。 rangeで範囲指定ではなく、usedrangeやcolumnsでみると正しく認識します。 どなたか分かる方いらっしゃいましたら、よろしくお願いします。 ※A1からA6697まではマクロで自動作成して埋めているセルなので、問題のセルを含めそれ以外の場所はなにも触っていません。
- 締切済み
- オフィス系ソフト
- Excelセル座標値の渡し方
VBAの初心者です。 Excelでアクティブセルの座標値を取り出して、マクロの中で、その行全体、あるいは列全体を指定して挿入や削除をさせたいのですが、どうしたらよいのでしょうか。教えて下さい。よろしくお願いします。 （例）アクティブセルが C7 であるとき、Rows("7:7") に１行挿入する。 Sub 行挿入() 'セル座標値を読み取ってその行全体を指定するデータの渡し方？？？？？ Rows("7:7").Select Selection.Insert Shift:=xlDown End Sub
- ベストアンサー
- Visual Basic
- エクセルマクロで教えてください
エクセル2003です。 自動マクロで下記のようなマクロを造ったんですが Selection.End(xlDown).Select Range("A29:D29").Select ■A29を止まったセルの番号にしたいのです。（Ａ**からＤ**まで） With Selection .HorizontalAlignment = xlCenter .VerticalAlignment = xlCenter .WrapText = False .Orientation = 0 .AddIndent = False .IndentLevel = 0 .ShrinkToFit = False .ReadingOrder = xlContext .MergeCells = False End With Selection.Merge Range("A30").Select ■A30を止まったセルの番号にしたいのです 以上2箇所の指定を教えていただけますでしょうか。 よろしくお願いいたします。
- ベストアンサー
- オフィス系ソフト
- Excel VBA セル位置が取得できません
条件１の時、セル位置を変数(gyo1)に代入し、 条件２の時、セル位置を変数(gyo2)に代入。 その後、countif(gyo1:gyo2)として、 その数値を別のセルに表示させる。 という構文を作りたいと思っています。 しかし、adressプロパティを記述しても、「オブジェクトが必要です」とエラーが出てしまいます。 （expressionをSelectionに変えるとエラーは出ないのですが、この違いや意味ってなんでしょうか。） さらに、この構文はFor文で繰り返しているのですが、 最初にgyo1の値が「A2」となっても、次の繰り返し時、条件が一致したても、gyo1が更新されず、「A2」のままだったりします。 （イメージでは、「A10」とか、A列を下に移動していくはずです。） また、gyo1,gyo2の変数宣言は、どのようにすれば良いでしょうか。 以下、作成中のコードを記述します。 力を貸してくださいませ。よろしくお願いいたします。 row = 2 If Cells(row, 1) <> Cells(row - 1, 1) Then gyo1= Selection.Address(Cells(row, 1)) End If If Cells(row, 2) <> Cells(row - 1, 2) Then gyo2 = Selection.Address(Cells(row, 2)) End If Cells(row,5).value = countif(gyo1:gyo2)
- ベストアンサー
- Visual Basic
- エクセルVBAで値のカウントをしたい
C列～AA列まで値が入っています 1行目にはタイトル 2行目からそれぞれ値が入っており、終了行は毎回ランダムです 各列毎に値の合計と1以上の値の合計数を表示するために下記のマクロを使用しているのですが、もっとスマートな方法は無いでしょうか？ 現在のマクロだとマクロ行数がとても多いものになっています。 Sub Count() With Range("C2") .End(xlDown).Offset(1, 0) = _ "=SUM(" & Range(.Address, .End(xlDown)).Address(False, False) & ")" End With '本当はCの最終行に直接COUNTIFを書き込みたいが、他のセルを使用しないと0になる Range("A1") = "=COUNTIF(C2:C10000,"">=1"")" Range("A1").Select Selection.Copy Range("C1").End(xlDown).Offset(1, 0).Select Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False Application.CommandBars("Stop Recording").Visible = False With Range("D2") .End(xlDown).Offset(1, 0) = _ "=SUM(" & Range(.Address, .End(xlDown)).Address(False, False) & ")" End With Range("A1") = "=COUNTIF(D2:D10000,"">=1"")" Range("A1").Select Selection.Copy Range("D1").End(xlDown).Offset(1, 0).Select Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False Application.CommandBars("Stop Recording").Visible = False '以降AAまでセルの位置を変えた同一マクロを繰り返す End Sub
- ベストアンサー
- Excel（エクセル）
お礼
ありがとうございます。