Execelで列の検索に関する質問、最終行から2番目を見つけたい

お世話になります。

Execelの例えばA列に入力されている最終行から2番目の行の値(文字列のこともあり得る)を返したいのですが、
どうしたらよいのでしょうか？
並びは以下のようにランダムで、この場合であれば、
「7」を返したいのです。

12
8
15
7
12

宜しくお願い致します。

No.6 ベストアンサー 回答者： noname#70958 回答日時： 2008/09/29 18:46

途中に空欄があるとすると、

「最終行から2番目の行」が空白の場合にどうするか解釈の余地がありそうですが……。

解釈Ａ．【空白でないセルのうち、２番目に下方にあるセル】の値を返す場合
　※長さゼロの文字列""は「空白」「未入力」とみなす
　※必ず空白以外の値が返る

　=INDEX(A1:A99,LARGE(INDEX((A1:A99<>"")*ROW(A1:A99),),2))

解釈Ｂ．【空白でないセルのうち、もっとも下方にあるセルの上隣のセル】の値を返す場合
　※長さゼロの文字列""は「空白」「未入力」とみなす
　※該当セルが空白なら空白が返る

　=INDEX(A1:A99,MAX(INDEX((A1:A99<>"")*ROW(A1:A99),))-1)

Excel2003で動作確認。以上ご参考まで。

この回答へのお礼

2通りの解釈を頂きありがとうございます。
解釈Bがほしいものです。
そして私もダミーのデータを使用して行うととてもうまくゆきます。(2007環境)
なのに、既存の大きなデータ上(少しシート上のデータが多い)で行うとなぜか「０」になり不思議でなりません。
一つ一つの関数を追いながら考えてもなぜ「０」になってしまうのかさっぱりですので、時間があるときにゆっくりシートを確認しなおしてみます。
ありがとうございました。
急場は、空白セルにダミーデータを挿入して、#1番さんの最も単純な方法で凌ぐことにしました。

お礼日時：2008/09/30 11:59

No.5 回答者： imogasi 回答日時： 2008/09/29 17:38

#4です。

＞VBAは諸事情から使いたくないです
事情にもよるが、＃４に書いたのは、「ユーザー関数」で、それはＶＢＡで記述するが、一般のＶＢＡの処理と違うものと思いますが。
一般のエクセル関数と区別はほとんどない。
念のため。

No.4 回答者： imogasi 回答日時： 2008/09/29 16:43

=INDEX($A$1:$A$50,MAX(IF(A1:A50<>"",ROW(A1:A50),0))-1,1)

と入れて、ＳＨＩＦＴ＋ＣＴＲＬ＋ＥＮＴＥＲの三つのキーを同時押しする。
ただし上記で求めた対象のセルが空白だと、0 を返してしまう。
実質的な（空白を除いたセルはＶＢＡでユーザー関数を定義しないと
ややこしいでしょう。
Function mae(a)
Application.Volatile True
d = Cells(65536, a).End(xlUp).Row
For i = d - 1 To 1 Step -1
If Cells(i, a) <> "" Then
mae = Cells(i, a)
Exit For
Else
End If
Next i
End Function
この場合、=mae("A")のように列を引数で指定する。この場合Ａ列以外にこの式を入れるか、上記コードの65536をその式より上の行番号に限定すること。

この回答へのお礼

ありがとうございます。
VBAは諸事情から使いたくないです。。。。すみません。

お礼日時：2008/09/29 17:03

No.3 回答者： abe_onesel 回答日時： 2008/09/29 16:10

#1です。

ＶＢＡを使用して、以下のようにすれば簡単にＢ１セルに値が出ます。

Sub sample()
Range("B1").Value = Cells(Range("A65536").End(xlUp).Row - 1, "A")
End Sub


ただ、Ａ列のデータ件数が不定で、空欄個数も何個か不明であれば、関数のみで出すとなると他の条件が無いと厳しいかもしれません。
例えば、一番下のセルが『合計』という文字が入力されているとか、最大値が入力されているとかなら抜け道が出てきますけど。

この回答へのお礼

ありがとうございます。
VBAは諸事情から使いたくないです。。。。すみません。

お礼日時：2008/09/29 17:03

No.2 回答者： mike_g 回答日時： 2008/09/29 15:46

=OFFSET(A1,COUNTA(A1:A5)+COUNTBLANK(A1:A5)-2,)

この回答へのお礼

なぜでしょう。ダミーを作って試すと成功しますが、実際のシート上ではワークしません。。。。不思議です。
ちょっと研究してみます。

お礼日時：2008/09/29 17:02

No.1 回答者： abe_onesel 回答日時： 2008/09/29 12:52

=OFFSET(A1,COUNTA(A:A)-2,)

この式で出ると思います。
ただ、データの途中に空白セルが入らない事が前提です。

この回答へのお礼

ありがとうございます。
空欄も入るんですが、、、どうしたらよいでしょう？

お礼日時：2008/09/29 14:09