範囲内で最大値を見つけ、その隣のセルの値を返す

画像のようにH列とI列に値が入力されています。
A列は区別の為に入れたもので実際にはありません。
セルI1からI5、I6からI8、I9とI11、I10とI12
それぞれの範囲で最大値の隣のセルの値をM列に返したいです。

関数でもVBAでも構いません。

お詳しい方宜しくお願い致します。

No.2 ベストアンサー 回答者： fujillin 回答日時： 2022/03/23 23:05

こんばんは

＞A列は区別の為に入れたもので実際にはありません。
となると、区分はどうやって調べるんでしょうね？

よくわからないので、固定値で指定する方式で・・
（セル値のチェック等は省略しています）

Sub Q12864319()
Dim targetR, v
Dim c As Range, i As Long

targetR = Array("I1:I5", "I6:I8", "I9,I11", "I10,I12")
For i = 0 To UBound(targetR)
v = Application.Max(Range(targetR(i)))
For Each c In Range(targetR(i))
If c.Value = v Then Cells(i + 1, 13).Value = c.Offset(, -1).Value
Next c
Next i
End Sub

この回答へのお礼

ありがとうございます❗
とても良いコード教えていただきました。
是非活用させていただきます。

お礼日時：2022/03/26 11:33

No.1 回答者： ShowMeHow 回答日時： 2022/03/23 19:55

MAX関数使うとか

http://www.excel-list.com/max.html#:~:text=Excel …

この回答へのお礼

ありがとうございます！

お礼日時：2022/03/26 11:34