エクセルの関数についての質問です。日付別にランクを付けたい。ただし1位

質問

エクセルの関数についての質問です。日付別にランクを付けたい。ただし1位が3つ続いた場合の4つ目は2位としたい。
マクロでも結構です。教えてください。

A列＿B列
6/1＿1 → 1
6/1＿1 → 1
6/1＿5 → 2
6/1＿5 → 2
6/1＿3 → 3
6/2＿3 → 1
6/2＿3 → 1
6/2＿8 → 2
6/2＿9 → 3
6/2＿9 → 3
＿＿＿＿＿↑ここの数字を出したいです。

回答No.5

mt2008 · ベストアンサー

うーん、単にこういう事かな？
D2以降に日別順位を入れるとして、D2には1、
D3には↓を入れて下にコピー
=IF(A2=A3,IF(B3=B2,D2,D2+1),1)

B列の値が昇順になっている物とします。

お礼

ｍｔ２００８様

ご回答ありがとうございます。
まさに「単に」ということだったと思われます^^
次回からは、質問方法に注意したいと思います。
有難うございました。

回答No.4

KURUMITO

同じ日付で同じランクが4つ以上続いた場合にはランクを一つプラスするのでしたら次のようにします。
Ａ列およびＢ列のデータは2行目から下方に有るとします。
Ｃ2セルには次の式を入力して下方にオートフィルドラッグします。

=IF(B2="","",IF(ROW(A1)=1,1,IF(AND(A1=A2,B1=B2),IF(SUMPRODUCT((A$1:A1=A2)*(B$1:B1=B2))<3,C1,IF(OR(SUMPRODUCT((A$1:A1=A2)*(B$1:B1=B2))=3,SUMPRODUCT((A$1:A1=A2)*(B$1:B1=B2))=6),C1+1,C1)),IF(AND(A1=A2,B1<>B2),C1+1,IF(A1<>A2,1,"")))))

勿論、初めにＡ列が最優先でＢ列が次の優先で昇順で並べ替えが行われているものとします。

お礼

KURUMITO様

返事が遅くなり申し訳ありません。
A列最優先でB列が次の優先の昇順並び替えという条件でした。試してみたところ、もちろんOKでした。
これだけの複数条件がはいっている数式に、ただただ関心させられました。
当方の説明不足があり、他の方同様ご迷惑（いろいろ考えて頂いた）をお掛けしました。
ありがとうございました。

回答No.3

某HN クロメート(Chromate)（@CoalTar）

#2です。当方の回答は憶測が違ったようです。
そこで、明確にしておきたい部分があります。

1.日付は昇順である
2.1位が3つ続くとは、3連続で出現した場合か、それとも3つの1位がある場合か？
3.順位を下げる特殊条件はのは1位だけでのみか？2位以降も順位を下げるのか？
4.特殊条件で順位を下げた場合(仮に1位だったとして)、2位だったものは3位になるのか？
5.上記疑問を解決できるようなサンプルが欲しい

お礼

CoalTar様
返事が遅く、さらに当方の説明不足があり申し訳ございません。

1.日付は昇順です。
2.３連続です。
3.２位以降もです。
4.３位になりません。

サンプルについては適当なものは用意できそうにございませんでした。

A列＿B列
6/1＿1 → 1
6/1＿1 → 1
6/1＿5 → 2
6/1＿5 → 2
6/1＿6 → 3
6/1＿9 → 4
6/1＿9 → 4
6/2＿3 → 1
6/2＿3 → 1
6/2＿8 → 2
6/2＿9 → 3
6/2＿9 → 3

今後は十分に説明できるよう気をつけます。

回答No.2

某HN クロメート(Chromate)（@CoalTar）

たたき台
B2セル 1
B3セル =IF(A2<>A3,1,IF(B2=B1,B2+1,B2))
下へオートフィル
添付図参照

お礼

ご回答有難うございます。
早速やってみます。

回答No.1

mshr1962

上記がA1:B10にあるとして
C1=ROUND(SUMPRODUCT(($A$1:$A$10=A1)*($B$1:$B$10<B1)/COUNTIF($B$1:$B$10,$B$1:$B$10))+1.3,0)
でC10までコピー

※6/1_5→2は3、6/1_3→3は2の間違いですよね。

お礼

ご回答有難うございます。
6/1_5→2はそのままで6/1_3→3の部分は6/1_6→3の謝りでした。大変申し訳ありませんでした。