リーグ表に対戦番号を振る
ツイッターで出したエクセルの問題です。
出題の主旨としては、これをスピル一発でやってみましょうと言うものです。
出題ツイート
総当たりリーグ戦に試合番号を振りましょう。
添付を見てもらえれば説明は要らないと思いますが、対戦カードに順に番号を付けてください。

引用リツイートでの回答
出題者としての解答
私の作成した数式です。
=LET(
r,A2:A6,c,B1:F1,
a,IFS(r=c,"",r>c,r&":"&c,TRUE,c&":"&r),
u,UNIQUE(TOCOL(a)),
f,FILTER(u,u<>""),
s,SEQUENCE(ROWS(f)),
XLOOKUP(a,f,s,"")
)

この時に名前の順番を統一させて、さらに同一なら""
":"は1文字名前と3文字名前が2文字名前2人一致してしまう場合の対応。
これをユニーク化して連番を振ります。
そしてXLOOKUPでこの連番をとってくるようにしました。
一応この数式は名前の順が縦横で違っても大丈夫。

漸化式とか難しいwww
先の数式の名前を数値に置き換えれば数式だけを作り出せますね。
=LAMBDA(x,LET(
r,SEQUENCE(x),c,TOROW(r),
a,IF(r=c,0,r*c),
u,UNIQUE(TOCOL(a)),
f,FILTER(u,u<>0),
s,SEQUENCE(ROWS(f)),
XLOOKUP(a,f,s,"")
))(5)

5人限定で数式書いてしまいました。
SEQUENCEで作成する数列を大きい数字にすることでこれは避けられます。
SEQUENCE(x)
↓
SEQUENCE(x,,1111)
同じテーマ「ツイッター出題回答 」の記事
構成比を合計しても100%にならないと言われた…
振込手数料を先方負担にした時の振込金額と手数料の算出
脱字メーカー(文字列から1文字削除)
リーグ表に対戦番号を振る
数列内の連続偶数のみ順序を入れ替える
ランクによりボイントを付ける(同順位はポイントを分割)
記号を繰り返してグラフ作成(10単位で折り返す)
Excel関数の引数を省略した場合について
シートコピー後のアクティブシートは何か
ByRef引数の型が一致しません。
シートのActiveXチェックボックスの指定方法
新着記事NEW ・・・新着記事一覧を見る
第5章:AI×VBAでつまづかない!トラブルシューティングとAIとの付き合い方
|生成AI活用研究(2025-05-20)
第4章:【事例で学ぶ】AIとVBAでExcel作業を劇的に効率化する!
|生成AI活用研究(2025-05-20)
第3章:AIを「自分だけのVBA先生」にする!質問・相談の超実践テクニック|生成AI活用研究(2025-05-19)
第2章 VBAって怖くない!Excelを「言葉で動かす」(超入門)|生成AI活用研究(2025-05-18)
第1章:AIって一体何?あなたのExcel作業をどう変える?(AI超基本)|生成AI活用研究(2025-05-18)
AI時代のExcel革命:AI×VBAで“書かない自動化”超入門|生成AI活用研究(2025-05-17)
Geminiと100本ノック 23本目:シート構成の一致確認|生成AI活用研究(5月16日)
AIが問う出版の未来は淘汰か進化か:AIと書籍の共存の道とは|生成AI活用研究(2025-05-16)
Geminiと100本ノック 22本目:FizzBuzz発展問題|生成AI活用研究(5月15日)
すぐに使える!生成AI プロンプト作成 実践ガイド|生成AI活用研究(2025-05-15)
アクセスランキング ・・・ ランキング一覧を見る
1.最終行の取得(End,Rows.Count)|VBA入門
2.繰り返し処理(For Next)|VBA入門
3.変数宣言のDimとデータ型|VBA入門
4.セルのコピー&値の貼り付け(PasteSpecial)|VBA入門
5.ひらがな⇔カタカナの変換|エクセル基本操作
6.RangeとCellsの使い方|VBA入門
7.メッセージボックス(MsgBox関数)|VBA入門
8.セルのクリア(Clear,ClearContents)|VBA入門
9.FILTER関数(範囲をフィルター処理)|エクセル入門
10.条件分岐(Select Case)|VBA入門
このサイトがお役に立ちましたら「シェア」「Bookmark」をお願いいたします。
記述には細心の注意をしたつもりですが、
間違いやご指摘がありましたら、「お問い合わせ」からお知らせいただけると幸いです。
掲載のVBAコードは動作を保証するものではなく、あくまでVBA学習のサンプルとして掲載しています。
掲載のVBAコードは自己責任でご使用ください。万一データ破損等の損害が発生しても責任は負いません。