VBAで範囲選択を行末まで行いたいが、途中空白セルがある場合、どうすればよいか。

Question

お疲れ様です。
Takkoです。

質問内容はタイトルの通りです。

私が知っている限りでは、
VBAのSELECTで行う範囲指定は
①

Range("A1").select
Range(selection,selection.end(xlDown))

か
②

Range("A1:A999").select

の指定方法なのですが、
①の場合だと途中に空白セルがあった場合にデータの選択範囲が途切れ、
②の場合だと1000件目以降にデータあった場合ぶった切られてしまいます。

求めているのは
①の書き方で空白セルがあっても10行以上空白セルが続かないなら下まで選択範囲にします的な、
selectの仕方にしたいのですが、可能でしょうか？

皆様は業務上、上記質問のようなシチュエーションに出くわしたことはありますか？

どのような対処をしたか教えていただければ幸いです。
以上です。

Comments

[jm1156]

「行末」の判断基準はなんでしょうか？　空白セルが判断基準でないのであれば、それ以外に「行末」を判断する条件があるのではないでしょうか？　うちではCurrentRegionをよく使いますが、CurrentRegionでは無理そうですか？

[King_of_Flies]

行末の判断基準は基本的に「最後の参照セルより下にセル値がないこと」ですが、カテゴリ分けされて入ってきたデータはセルを見やすくするため、最低一行の空白行が存在します。空白セルが一行のみならそのまま下まで参照しSelectして、空白セルが二行以上ならそのセルの列は入力がないと見なしたいです。

Answer 1

A列の最終行ということであれば、下記のように下から上に探すことで対応しています。

MaxRow = Cells(Rows.Count, 1).End(xlUp).Row

他にもやり方はあるようですので、下記のサイト等を参考にされるとよいかと思います。

参考サイト：No.8 ワークシートの最終行、最終列を取得する (なにぬねのーつ)

Comments

[King_of_Flies]

上のやり方を工夫すればできそうです。
ありがとうございます。

MaxRow = Cells(Rows.Count, 1).End(xlUp).Row
Range(.Cells(1, 1), .Cells(1, MaxRow)).Select