検索範囲から条件を指定して最大値抽出、エクセル関数MAXIF、EXCEL 2000,20002,2003,20007,2010,2013

エクセル備忘録

エクセル関数、条件を指定して最大値を抽出する関数です。

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