三四郎関数でソート（第３弾）・・・【解答】

【解答手順】

ソートキーが２つあるので正直に２回ソートしてるだけです。

１．A2に　=Code(G2)+Row(A2)*0.001　と入力。A10までコピペ。

２．B2に　=Rank(E2,E$2:E$10)+Row(B2)*0.001　と入力。B10までコピペ。

３．F2に　=Indirect(Char(65+Col(B2)) & Fp(Small($B$2:$B$10,Row(B1)))*Power(10,3))　と入力。H10までコピペ。

４．I2に　=Indirect(Char(68+Col(B2)) & Fp(Small($A$2:$A$10,Row(B1)))*Power(10,3))　と入力。K10までコピペ。

【解答手順・番外エクセル編】

２つのソートキーを一つにまとめることにより、2回ソートするところを1回で済ませています。

１．H1に　=CHAR(155-CODE(D2)) & TEXT(E2,"000") &ROW()　と入力。H10までコピペ。

２．I2に　=INDEX(C$2:C$10,MATCH(ROW()-1,COUNTIF($H$2:$H$10,">" & $H$2:$H$10)+1,0))　と入力。

Ctrl+Shift+Enterで確定。I3からK10までコピペ。

Comments

[投稿情報: くまぷー]

あれ、おかしい。
今日の午後6時に公開しようと思って
時間指定しておいたのに！！

[投稿情報: 悪児]

悪児の解答です。

F2に
=(Code(D2)-65)*10^(($F$1>0)*4+2)+(100-E2)*10^((1-($F$1>0))*4+2)+Row(F1)
F10まで、下コピー

I2に

=Index($C$2:$E$10,Col(A2),Small($F$2:$F$10,Row(I1)) MOD 100)
K10までコピペ。

F1に1を入れると、
上位から、組－得点－氏名の順でソート
F1に0を入れると、
上位から、得点－組－氏名の順でソート

Excelなら配列数式を使って、
上の数式をひとつのセルにまとめることが
できると思いますが、今、超多忙なのでパスです。(^^)ゞ

今日は、中休み。
また明日から、朝7:30出発。
夜、10:00帰宅になります。
まぁ、ツール・ド・フランスが終わったから、
少しは、楽になりそう。(^^)ゞ

[投稿情報: きっちー]

定数は使いませんでした。
「組」はAからFまで対応で、大文字小文字全角半角の区別はありません。

A1に =If(IsBlank(E2),,Count(C$1:C$10)*(Count(C$1:C$10)*Decimal(D2)+Rank(E2,E$2:E$10))+Row(A1))
A10までコピペ。

I2に =If(Row($A1)< Count($E$1:$E$10),Index($C$2:$E$10,Col(A$2),Small($A$2:$A$10,Row($A1)) MOD Count($C$1:$C$10)))
K10までコピペ。

半角で”＜C”　と入れると、なぜか行末まで消滅しますだ。
半角で”＜ C”　と入れると、なぜかスペースで改行しますだ。

[投稿情報: きっちー]

解明！？
ブログの欧文ワードラップの自動改行で、スペースの入っていない欧文が１行の幅を超えると消滅するようですよ。

[投稿情報: くまぷー]

F1のフラグによって、ソートキーの順を変えるとは
芸が細かい！！流石です！！

>Excelなら配列数式を使って、
上の数式をひとつのセルにまとめることが・・・

悪児さんがパスと言うことなので代わりに
くまぷーが・・・
【解答】
１．I2に　=INDEX($C$2:$E$10,MOD(SMALL((CODE($D$2:$D$10)-65)*10^(($F$1>0)*4+2)+(100-$E$2:$E$10)*10^((1-($F$1>0))*4+2)+ROW(F$1:F$9),ROW(I1)), 100),COLUMN(A2))
Shift＋Ctrl＋Enterで確定。これをK10までコピペ。

エクセルと三四郎ではIndexの引数の
順番が微妙にちがうんですね・・・(^。^)

[投稿情報: くまぷー]

きっちーさん、こんばんは。
きっちーさんのは得点欄が未入力だと
氏名、組も消えて上に詰める仕様ですね。面白い！！(^。^)

＞半角で”＜C”　と入れると、なぜか行末まで消滅しますだ。
>半角で”＜ C”　と入れると、なぜかスペースで改行しますだ。

う～ん、ようわからん仕様だ・・・