エクセル関数、条件を指定して最大値を抽出する関数です。
EXCEL2016からはMAXIFSとして標準装備されている物です。
2016以前のバージョンでお使い下さい。
VBAを利用した関数です。
MAXIF(検索条件,検索範囲,値範囲)
値の内最大値を抽出します。
値と検索位置の行位置は揃えて下さい。
例：検索範囲A1:A12だと値範囲はB1:B12の様に
Function MaxIF(ss As String, ws1 As Range, ws2 As Range) As Double
Dim i_end As Double
Dim p_max As Double
Dim i As Double
i_end = ws1.Count
p_max = 0
For i = 1 To i_end
If ss = ws1.Cells(i, 1) Then
If (Abs(p_max) < Abs(ws2.Cells(i, 1))) Then
p_max = ws2.Cells(i, 1)
End If
End If
Next
MaxIF = p_max
End Function
