エクセルでセルの行番号を検出し、比較したいんですが…。

質問

Ａ　　Ｂ　　Ｃ　　Ｄ
１　　 7　　 9　　10　　●
２　　 8　　12　　11　　○
３　　 6　　 8　　10　　○
４　　14　　 9　　 9　　●
５　　 7　　12　　10　　○
６ 　 12　　 8　　12

このようなＡ列～Ｄ列があるとします。
Ａ列～Ｃ列は値が、Ｄ列には○や●の記号が入るとします。

ここで、Ｄ１には、
「Ａ２以降のＡ列で、Ｃ１より大きい値が最初に出る行番号」
と
「Ｂ２以降のＢ列で、Ｃ１より大きい値が最初に出る行番号」
を比較したときに、
Ａ列の方が早ければ○、Ｂ列の方が早ければ●と表示させたいのですが、
どのようにすればよいでしょうか？

（たとえば、Ｄ１は、Ａ列では4行目、Ｂ列では2行目にＣ１より大きい
値がでるので、●といった感じです。）

引き続いて、Ｄ２は
「Ａ３以降のＡ列で、Ｃ２より大きい値が最初に出る行番号」
と
「Ｂ３以降のＢ列で、Ｃ２より大きい値が最初に出る行番号」
を比較…
といった感じで進めて行きたいのです。
非常に困っています。
どなたかご教授ください。
よろしくお願いします。

回答No.1

maron--5 · ベストアンサー

D1=IF(MAX(A2:B10)<C1,"",IF(IF(MAX(A2:A10)>=C1,MATCH(1,INDEX(--(A2:A10>=C1),),0),10^5)<IF(MAX(B2:B10)>=C1,MATCH(1,INDEX(--(B2:B10>=C1),),0),10^5),"○","●"))
★下にコピー

お礼

早速ありがとうございます。
一発で解決しました。
複雑で式の意味は理解できていませんが、助かりました！

回答No.3

spar

＃２です
すみません、こっちでお願いします
単に○●のでる列が違うだけです
Dim AB_Row, C_Row, MyCell
Sub AB()
　MyCell = Range("A65536").End(xlUp).Row
　　For C_Row = 1 To MyCell
　　　For AB_Row = C_Row + 1 To MyCell
　　　　If Sheet1.Cells(AB_Row, 1).Value > Sheet1.Cells(C_Row, 3).Value Then
　　　　　Sheet1.Cells(C_Row, 4) = "○"
　　　　　　Exit For
　　　　ElseIf Sheet1.Cells(AB_Row, 2).Value > Sheet1.Cells(C_Row, 3).Value Then
　　　　　Sheet1.Cells(C_Row, 4) = "●"
　　　　　　Exit For
　　　　End If
　　　Next AB_Row
　　Next C_Row
End Sub

お礼

早速ありがとうございます。
ＶＢＡは苦手というか勉強中なので、今後参考にさせていただきます。

ありがとうございました。

回答No.2

spar

おはようございます
ＶＢＡがお分かりでしたら下記を実行してみて下さい
よろしくです
Dim AB_Row, C_Row, MyCell
Sub AB()
　MyCell = Range("A65536").End(xlUp).Row
　　For C_Row = 1 To MyCell
　　　For AB_Row = C_Row + 1 To MyCell
　　　　If Sheet1.Cells(AB_Row, 1).Value > Sheet1.Cells(C_Row, 3).Value Then
　　　　　Sheet1.Cells(C_Row, 5) = "○"
　　　　　　Exit For
　　　　ElseIf Sheet1.Cells(AB_Row, 2).Value > Sheet1.Cells(C_Row, 3).Value Then
　　　　　Sheet1.Cells(C_Row, 5) = "●"
　　　　　　Exit For
　　　　End If
　　　Next AB_Row
　　Next C_Row
End Sub