エクセルの質問。　　対象範囲の中で、一番下に位置する値を返す関数。

解決済

質問者：kojimaro1126
質問日時：2004/05/27 02:18
回答数：10件

例えば…
A1～A9までの９つのセルに、A1＝１００,A5＝１２０,A6＝２０という3つの値が入っています。

A1～A9の範囲で一番下にある値を表示（ここではA6の２０という値）するような関数ってあるのでしょうか？

通報する

この質問への回答は締め切られました。

質問の本文を隠す

回答 (10件)

ベストアンサー優先
最新から表示
回答順に表示

No.6ベストアンサー

回答者： pbforce
回答日時：2004/05/27 09:11

こんな感じで如何でしょうか？

http://www2.odn.ne.jp/excel/waza/function.html#S …

参考URL：http://www2.odn.ne.jp/excel/waza/function.html#S …

- 2
- 件

通報する

No.10

回答者： miwaki
回答日時：2004/06/12 09:54

こんなテーマがまだ締め切られていないとは驚きました。

=MATCH(MAX(A:A),A:A)
これで一番下の行番号が返されます。お試しください。
行番号さえわかれば値を取り出せたようなもの。後はどうぞ。

- 5
- 件

通報する

No.9

回答者： taisuke555
回答日時：2004/05/27 19:14

=IF(COUNT(A1:A9)=0,0,INDEX(A1:A9,MATCH(10^20,A1:A9),))

なんて言うのはどうでしょう？

10^20は、A1～A9に入力されるであろう最大値以上
（最大が100なら101以上）ならいくつでもいいです。

- 2
- 件

通報する

No.8

回答者： miwaki
回答日時：2004/05/27 13:53

#5の回答で、例えば、セルB1にその値を表示したいのであれば、End Sub の手前に下の１行を加えると最下行の値が表示されます。

Range("B1").Value = Range("A" & ActiveCell.Row).Value

- 0
- 件

通報する

No.7

回答者： imogasi
回答日時：2004/05/27 10:57

＃３、＃４です。

＃４のコードが長いので、ＶＢＡで良く使われる
End(xlUp)を使って短くしました。
１列だけ範囲指定したセルの、途中の空白セル（ＤＥＬＥＴＥキーを押したと同じ状態、または未入力セル）は影響を受けないように考えています。
範囲指定した範囲より外の範囲の値は考慮されません。
Function lastclv(a)
t = a.Cells(1, 1).Row
r = a.Rows.Count
c = a.Column
lastclv = Cells(t + r, c).End(xlUp)
End Function
セルに=lastclv(a5:a12)などと入れます。
A4=a,A5=s,A7=d,A12=z,A13=fの場合
=lastclv(a5:a12)はzです。
=lastclv(A5:A15)はsです。

- 0
- 件

通報する

No.5

回答者： miwaki
回答日時：2004/05/27 07:06

エクセル関数はありませんが、編集機能の「ジャンプ」を使えば該当セルにコントロールが移ります。

これをマクロで記述すると以下のようになります。

Sub Macro1()
Range("A1").Select
Selection.SpecialCells(xlCellTypeLastCell).Select
End Sub

試してください。

- 0
- 件

通報する

No.4

回答者： imogasi
回答日時：2004/05/27 07:02

＃３です。

行番号で回答してしまいました。値であるなら
Function lastcl(a)
Dim cl As Range
m = 1
For Each cl In a
If cl <> "" And cl.Row > m Then
m = cl.Row
n = cl.Column
End If
Next
lastcl = Cells(m, n)
End Function
ついでに、配列数式になりますが、最下行の「行番号」は
=MAX(IF(A1:A20="","",ROW(A1:B20)))
と入れて、Ｓｈｉｆｔ＋Ｃｔｒｌ＋Ｅｎｔｅｒで求められます。
最下行の値となると＃１のご回答のようになるのかなあ。

- 0
- 件

通報する

No.3

回答者： imogasi
回答日時：2004/05/27 05:36

ユーザー関数をどうですか。

ツール－マクロ－ＶＢＥ－挿入－標準モジュールに下記をコピーして貼りつける。
Function lastcl(a)
Dim cl As Range
m = 1
For Each cl In a
If cl <> "" And cl.Row > m Then
m = cl.Row
End If
Next
lastcl = m
End Function
値をセットしたいセルに=lastcl(A1:A9)と入れます。