エクセルVBA最終行から2番目をとる。空白あり

Question

以下のようなデータがあります。

3

4
2
1

6

4
4
5

6

空白がある場合、最終のデータから2番目の５の行番号を取得することはできますか?

最終行はmaxrow = Cells(Rows.Count, 1).End(xlUp)
で得られることはわかりました。

Comments

[radames1000]

コードやエクセルの表を提示していただくと回答がつきやすいと思いますよ。

Answer 1

2番目の行をmaxrow2としています。
※行番号の取得でいいんですね？

maxrow = Cells(Rows.Count, 1).End(xlUp).Row
If Cells(maxrow - 1, 1) <> "" Then
    maxrow2 = maxrow - 1  '最終データのすぐ上にデータがある場合
Else
    maxrow2 = Cells(maxrow, 1).End(xlUp).Row '最終データのすぐ上が空欄の場合
End If

Comments

[progra]

ありがとうございます。これは、5と６の間が１セル空いているからできると思うのですが、他の場合はできますか？２マス、５マスとかにも自動対応したいのですが。

[radames1000]

対応していますよ。

[progra]

すこし複雑なデータになるとなぜかできなかったのです。For文を最下行の１つ上からマイナス側に回すことででき、自己解決しました。回答ありがとうございました。

[radames1000]

提示された情報では読み取れないので、なんとも言えませんが...
解決してよかったです。

Answer 2

変数の適用範囲
こちらのモジュールレベル変数を使うことで、maxrowの値を保存しておくことができます。
↓例

Dim maxrow As Long

Private Sub Worksheet_Change(ByVal Target As Range)
Dim maxrow1 As Long

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

MsgBox maxrow & "," & maxrow1

maxrow = maxrow1

End Sub

Comments

[radames1000]

ファイルを閉じなければ一番手っ取り早いですね。
質問者様の使い方が気になるところです。

[Usirow]

わたしが回答したときは、changeイベントで取得した最終行と、その一つ前のchangeイベントで取得していた最終行とを使って計算したい、という風な文章だったのでこのような回答になりました。
ですが、現在の質問文のロジックでいいのならradames1000様のやり方が確実かと思います。
モジュールレベル変数って、不必要に使うとバグの温床になりますし。

[progra]

わかりづらい質問だと思ったので変えました。失礼しました。モジュールレベルは知らなかったので勉強になりました。ありがとうございます。

[Usirow]

タイミングの問題なので、こればっかりは仕方ないですね。
私も偉そうに言えた身ではありませんが、より簡便なロジックで狙ったことが出来るならそれが一番いいと思います。