
No.3
- 回答日時:
たとえばこんなのはどうでしょう
Sub test2()
Dim r As Range
Set r = Range("A:A").SpecialCells(xlCellTypeConstants)
'MsgBox r.Cells(r.Count, 1).Value ' お と出る。
MsgBox r.Cells(r.Count, 1).Row
Set r = Nothing
End Sub
UsedRangeを利用する方法でもいけるかもしれません。
ない場合は
IsEmpty(r) か r Is Nothing で判定できると思います(ためしてません。見つからなくてエラーになるかも)
No.2
- 回答日時:
こちらでいかがですか?
Sub test()
Dim i, myColumn As Integer
myColumn = 1
For i = 30 To 1 Step -1
If Trim(Cells(i, myColumn)) <> "" Then MsgBox i: Exit Sub
Next
End Sub
iやmyColumnは別のアルファベットに変えていただいて大丈夫です。
Trim()で、セルに半角または全角スペースだけが入力されている場合は、それを空白セルとみなすようにしています。
スペースだけが入力されたセルも最終行とみなしたい場合は、Trim()を外してください。
もっとスマートな手法があると思うのですけど、ご参考になれば幸いです。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Visual Basic(VBA) 最終列の右へSUM関数を作成するため下記コードを実行しましたが、最終列「10月28日」が上書きされて 3 2022/12/05 20:32
- Visual Basic(VBA) 複数csvを横に追加していくマクロについて 2 2023/04/25 09:19
- Visual Basic(VBA) Excel VBA キーワードから列を取得して、さらに空欄行を非表示にする 3 2022/10/21 22:49
- Visual Basic(VBA) まとめシートから集計シートへA列のコードが一致したら1行コピーするマクロをネット上で見つけました。こ 1 2022/08/30 14:11
- Visual Basic(VBA) 3つのプロシージャをまとめたら実行時エラー発生で対応不能 6 2022/05/17 01:47
- Excel(エクセル) VBAのoffsetの動き方について教えてください 3 2022/11/25 23:36
- Visual Basic(VBA) オートフィルタで抽出結果に 罫線をひく方法 1 2022/07/13 13:08
- Visual Basic(VBA) 別シートから年齢別の件数をカウントしたいの続き 5 2023/01/24 00:16
- Visual Basic(VBA) VBA 行削除した連番 4 2023/06/27 16:00
- Visual Basic(VBA) フォルダの場所を可変にしたいです(マクロ) 4 2023/05/11 10:00
このQ&Aを見た人はこんなQ&Aも見ています
-
ショボ短歌会
ひどい短歌を詠んでください。
-
「これはヤバかったな」という遅刻エピソード
寝坊だったり、不測の事態だったり、いずれにしても遅刻の思い出はいつ思い出しても冷や汗をかいてしまいますよね。
-
人生で一番思い出に残ってる靴
皆さんの人生で一番思い入れのある靴の話を伺ってみたいです。
-
スタッフと宿泊客が全員斜め上を行くホテルのレビュー
スタッフも宿泊客も、一流を通り越して全員斜め上なホテルのレビューにありがちな内容を教えて下さい
-
準・究極の選択
「年収1000万円で一生カレーライス」か「年収180万円で毎日何でも食べ放題」
-
Excelでフィルターのかかっているときの最終行の取り方。
Excel(エクセル)
-
エクセルVBAでオートフィルター最上行を取得するには
Excel(エクセル)
-
フィルタをしても最下行を常に表示したい
Excel(エクセル)
-
関連するカテゴリからQ&Aを探す
おすすめ情報
- ・漫画をレンタルでお得に読める!
- ・昔のあなたへのアドバイス
- ・字面がカッコいい英単語
- ・許せない心理テスト
- ・歩いた自慢大会
- ・「I love you」 をかっこよく翻訳してみてください
- ・ゆるやかでぃべーと タイムマシンを破壊すべきか。
- ・はじめての旅行はどこに行きましたか?
- ・準・究極の選択
- ・この人頭いいなと思ったエピソード
- ・「それ、メッセージ花火でわざわざ伝えること?」
- ・ゆるやかでぃべーと すべての高校生はアルバイトをするべきだ。
- ・【お題】甲子園での思い出の残し方
- ・【お題】動物のキャッチフレーズ
- ・人生で一番思い出に残ってる靴
- ・これ何て呼びますか Part2
- ・スタッフと宿泊客が全員斜め上を行くホテルのレビュー
- ・あなたが好きな本屋さんを教えてください
- ・かっこよく答えてください!!
- ・一回も披露したことのない豆知識
- ・ショボ短歌会
- ・いちばん失敗した人決定戦
- ・性格悪い人が優勝
- ・最速怪談選手権
- ・限定しりとり
- ・性格いい人が優勝
- ・これ何て呼びますか
- ・チョコミントアイス
- ・単二電池
- ・初めて自分の家と他人の家が違う、と意識した時
- ・「これはヤバかったな」という遅刻エピソード
- ・ゴリラ向け動画サイト「ウホウホ動画」にありがちなこと
- ・泣きながら食べたご飯の思い出
- ・一番好きなみそ汁の具材は?
- ・人生で一番お金がなかったとき
- ・カラオケの鉄板ソング
- ・自分用のお土産
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
エクセルオートフィルタで余計...
-
Excel関数、何がいけないのかわ...
-
教えて下さい!関数SUBTOTALとC...
-
色フィルターをかけた状態で、...
-
オートフィルタで抽出したデー...
-
エクセルで、桁数の異なるデー...
-
行番号の文字の色が青色の理由?
-
=SUBTOTAL に =COUNTIF の機能...
-
エクセル:色の付いたデータを...
-
エクセルでのオートフィルタオ...
-
エクセルのフィルタ リスト範...
-
エクセルの計算表の下向き三角...
-
エクセルのフィルタをかけると...
-
エクセルを使用してデジタルフ...
-
エクセル オートフィルタについて
-
excelで奇数の行のみ削除したい
-
Excel マクロ オートフ...
-
5の倍数の日付だけを抽出したい
-
Excelでオートフィルタ時に交互...
-
フィルタをかけた列のセルの▼マ...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
エクセルオートフィルタで余計...
-
教えて下さい!関数SUBTOTALとC...
-
Excel関数、何がいけないのかわ...
-
色フィルターをかけた状態で、...
-
エクセルで、桁数の異なるデー...
-
エクセルのフィルタをかけると...
-
オートフィルタで抽出したデー...
-
行番号の文字の色が青色の理由?
-
エクセルの計算表の下向き三角...
-
Excel VBAでフィルタしたものに...
-
オートフィルタをかけた表に一...
-
Excel2010 フィルタで抽出できない
-
オートフィルタの使用にチェッ...
-
エクセルでのオートフィルタオ...
-
5の倍数の日付だけを抽出したい
-
=SUBTOTAL に =COUNTIF の機能...
-
excelで奇数の行のみ削除したい
-
色のついたセルにフラグを立た...
-
エクセルのフィルタ リスト範...
-
Excelでオートフィルタ時に交互...
おすすめ情報