[[20191203202107]]　『最終行の取得』（ドン）　ページの最後に飛ぶ

『最終行の取得』（ドン）

エクセルVBAで最終行の取得方法を教えてください。

（１）
A列の最終行の取得の場合、
MaxRow = Range("A:A").End(xlUp).Row
これで取得できると思いました。

しかし、Ａ列には、見た目は空白でも実際は関数が入力されています。
=IF(B1="","",B1)

すると、見た目は空白でも関数が入力されている行を取得してしまいます。

そのような関数が入力されていても無視して、実際にＡ１が表示さている最終行を取得したいです。

Ａ列には数値が入力されているので、
「０より大きい値が入力されているＡ列での最終行」など条件を絞れば取得できるのでしょうか。
その場合、どのように入力すれば良いでしょうか。

（２）
（１）ができない場合、Ｃ１：Ｅ１００で入力されている中での最終行を取得でいないでしょうか。
例えばＣ列は１行、Ｄ列は１０行、Ｅ列は５０行、入力されていると、５０行を取得する方法を教えてください。
Ｃ～Ｅ列には、数値か入力されているか空白で、関数も入力されていません。

よろしくおお願いします。

＜使用 Excel：Excel2010、使用 OS：Windows8 ＞

 A列を選択して、検索と選択→ジャンプ、定数、ＯＫ。
 選択された塊の中から、取得。
 手順としては、こんな感じ。
（BJ） 2019/12/03(火) 20:59

VBAで一発で最終行を取得する方法ですよ・・・
（ドン） 2019/12/03(火) 21:12

MsgBox Columns(1).Find("*", LookIn:=xlValues, SearchDirection:=xlPrevious).Address

（マナ） 2019/12/03(火) 21:14

Range("B:B").End(xlUp).Row

ではだめなのでしょうか？

（マナ） 2019/12/03(火) 21:16

マナさんありがとうございます。
Ｂ列も関数が入力されたいます。
（ドン） 2019/12/03(火) 21:38

（マナ）さんの 2019/12/03(火) 21:14の指摘ではNGだったのでしょうか？
（γ） 2019/12/03(火) 23:46

別案ですが、A列で必要な部分には必ず多めに数式が書かれているのであれば、空欄は数値判定されず文字列判定される事を利用して、文字列判定された行の1行上を得る、とか？

 MaxRow = Range("A:A").SpecialCells(xlCellTypeFormulas, xlTextValues).Row - 1
（???） 2019/12/04(水) 09:54

 マナさんのFind使う方法がファイナルアンサーだと思いますが、
 最終行を取得したいという質問をされる方は、
 おおよその場合、その後工程があるので、
 後工程も含めて聞いてみたいところです。
 別解がある場合もあるので。

 追伸
 MaxRow = Range("A:A").End(xlUp).Row
 これでホントに最終行取れてますか？　この場合、どこを起点に .End(xlup)なのだろう？
（´・ω・`） 2019/12/04(水) 10:25

（マナ）さんの 2019/12/03(火) 21:14の指摘で成功しました。
ありがとうございました。
（ドン） 2019/12/04(水) 19:30

ちなみに、そのコードの意味は理解されていますか？
A1セルから後ろ方向に検索することで、最終行から上に向かって、
空白以外のなにかがあればマッチするということです。
理解されていれば余計なお世話かもしれないが、
結果だけ飲み込むのはあまり得策とは言えませんので老婆心ながら。
（γ） 2019/12/04(水) 19:51

コメント返信：

[ 一覧(最新更新順) ]

[[20191203202107]] 『最終行の取得』（ドン） ページの最後に飛ぶ

[[20191203202107]]　『最終行の取得』（ドン）　ページの最後に飛ぶ