A100 実際の解決方法

質問者が納得（問い1） 私には分りません・・・貴方が５A/26A/27Aと決められたからコードに入れただけです。 元のデータに単にAなど無いでしょう・・・（E5はAでは無いでしょう） （問い２） その通りです・・・固定範囲を示します １００が２００になったり、変動することを見越して Dim R As Range, MyR As Range, LstRow As Long LstRow = Cells(Rows.Count, 10).End(xlUp).Row Set MyR = Range(Cells(1, 1),...

質問者が納得◆すこし、範囲を小さくしていますが参考にしてください ◆最大値 E2=MAX(INDEX(($A$1:$A$10=D2)*$B$1:$B$10,)) ★下にコピー ◆最小値 F2=MIN(INDEX(($A$1:$A$10<>D2)*10^5+$B$1:$B$10,)) ★下にコピー ◆今回のように、A列の数字が並んでいれば、 ◆最大値 E2=MAX(OFFSET($B$1,MATCH(D2,A:A,0)-1,,COUNTIF(A:A,D2))) ◆最小値 F2=MIN(OFFSET($B...

質問者が納得12:30：前回の質問を確認し、回答追記しました =IF(A1="---","---", を式の先頭に付け、---を対象から除外するのが良いでしょう 上記方法へ応用するなら =IF(A1="---","---",IF(A1>=100,"S",IF(A1>=75,"A",IF(A1>=50,"B",IF(A1>=25,"C"...

質問者が納得E1 のセルに =IF(ISERR(SMALL(B:B,ROW(A1))),"",SMALL(B:B,ROW(A1))) D1 のセルに =IF(ISERROR(INDEX(A:A,MATCH(E1,B:B,0))),"",INDEX(A:A,MATCH(E1,B:B,0))) と式を入れて E1:D1 のセルを下にコピー 名前のＡ列が A1:A100 に限られているなら E1 のセルに =IF(ISERR(SMALL(B$1:B$100,ROW(A1))),&qu...