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

解決済

質問者：さわ子
質問日時：2022/03/23 19:34
回答数：2件

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

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

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

通報する

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

質問の本文を隠す

回答 (2件)

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

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