エクセルでの重複しない抽出方法について

教えてください！

AからKの11チームがあり、各チームが5試合をした場合総当たりになります。
AはBからKまでの任意のチームと5試合行ったときに、B以下のチームにおいて総当たりになるような組み合わせ表はエクセル作成できますか。

どうぞよろしくお願いします。

質問者からの補足コメント

• 3026kiku様
  
  回答いただきありがとうございました。補足させていただきます。
  
  ・7チームの場合、総当たりの最小合計試合数は21試合
  　１チームあたりの試合数（３試合）を行えば添付図のようになると思われます
  
  ・11チームの場合総当たりの最小合計試合数は55試合
  　１チームあたりの試合数（5試合）
  　この５５試合を重複しないように添付図のようになるような組み合わせ抽出方法を教えていただきた
  　いです。
  
  宜しくお願い致します。

  
    補足日時：2015/04/15 09:44

• 質問が上手くお伝えできてなくてすみません。
  再度、補足致します。
  
  Aチームが任意で５チームと総当たり試合すると252通りの方法があると思います。
  （₁₀C₅＝10ｘ9ｘ8ｘ7ｘ6ｘ5/5ｘ4ｘ3ｘ2ｘ1＝30240/120＝252）
  
  Aチームが任意で252通りの中の1通りで試合をした場合、252通りの内どの組み合わせでもBチーム以下の総当たりパターン抽出はエクセルで作成可能ですか？
  
  相当な数の組み合わせ数になるとは思っているのですが 。。。
  
  例えば、
  ・AチームがB,C,D,E,Fと先に試合を行った場合の、Bチーム以下の総当たりパターン
  ・AチームがG,H,I,J,Kと先に試合を行った場合の、Bチーム以下の総当たりパターン…
  上記のように条件をいれたときに、Bチーム以下の全パターン抽出がエクセルで作成可能でしょうか？
  
  どうぞ宜しくお願いします。

  No.2の回答に寄せられた補足コメントです。 補足日時：2015/04/16 15:35

• 回答いただきありがとうございます。
  毎回、言葉足らずで申し訳ありません。
  
  再度、図を添付致しますので参照お願いします。
  
  わかりやすくする為に５チームにしています。（総当たり数10）
  総当たりするためには、各々が２試合ずつ行う必要があります。
  
  添付図のAチームが試合を行った（黄色塗り）箇所を入力したときにB・C・D・Eの総当たりパターンは自動で抽出できるのでしょうか？
  
  宜しくお願いします。

  
    補足日時：2015/04/17 17:53

No.4 ベストアンサー 回答者： 30246kiku 回答日時： 2015/04/18 13:19

＃３です

> わかりやすくする為に５チームにしています。（総当たり数10）
> 総当たりするためには、各々が２試合ずつ行う必要があります。

この考え方がわかりません。

Ａ・Ｂ・Ｃ・Ｄ・Ｅ の５チームがあったとして、総当たりするには
Ａを基準に考えると
Ａ－Ｂ，Ａ－Ｃ，Ａ－Ｄ，Ａ－Ｅ の４試合
Ｂを基準に考えると
Ｂ－Ａ，Ｂ－Ｃ，Ｂ－Ｄ，Ｂ－Ｅ の４試合
Ｃを基準に考えると
Ｃ－Ａ，Ｃ－Ｂ，Ｃ－Ｄ，Ｃ－Ｅ の４試合
Ｄ，Ｅ も同様に基準として考えると 各４試合

４試合 x ５チーム ＝　２０

ただ、
Ａ－Ｂ，Ｂ－Ａ は同じ試合
Ａ－Ｃ，Ｃ－Ａ は同じ試合
Ｂ－Ｃ，Ｃ－Ｂ は同じ試合
・・・・
を指すので

２０ ÷ ２ ＝ １０

総試合数は １０試合となると思います。
※ あくまでも、１チームの試合数４試合は変わらず

この総試合数をチーム数で割ってしまった（１０ ÷ ５ ＝ ２）から
以下の様な記述になったのでしょうか

>・7チームの場合、総当たりの最小合計試合数は21試合
> 　１チームあたりの試合数（３試合）を行えば添付図のようになると思われます

>・11チームの場合総当たりの最小合計試合数は55試合
> 　１チームあたりの試合数（5試合）

１チームあたり、これを求めて何の意味があるのかわかりません。
偶数チーム数、
例えば８チームなら ３．５ に･･･　０．５の試合ってどんな試合？

総当たりを見易く表にしたもの（サッカーの試合で良く見る図）が、
＃１、＃２に添付した図の様になります。（縦・横にチーム名を並べただけ）
＃２の添付図を例にすると、
Ｄ２のＡが対戦するのは、赤線右側のチームと
Ｄ３のＢが対戦するのは、赤線右側のチームと
※ 赤線左側の対戦は既にＡでの対戦のものを指すから試合数から除外
Ｄ４のＣが対戦するのは、赤線右側のチームと
※ 赤線左側の対戦は既にＡ、Ｂでの対戦のものを指すから試合数から除外
以下同様････
とすると、総試合数を求めるのは、
表赤線左側のものを１段あげて四角形にして面積を求めて２で割る
（赤線左側のものは、赤線右側のものと同じ組合せを指すから）
※ 赤線右側を左に１つずらしても同じ

チーム数 x (チーム数 － 1) ÷ ２

そこで、Ａ－Ｃ，Ａ－Ｄ，Ａ－Ｅ を先に試合したとしても、
試合を消化しただけなので、他の組み合わせに影響はないと思います。

今回の添付図（左上）
Ａチームが Ｂ・Ｃ・Ｆ・Ｈ・Ｉ と先に試合をした･･･
これをグループ分けと捉えるのなら
Ａ～Ｋを（Ａ・Ｂ・Ｃ・Ｆ・Ｈ・Ｉ）（Ｄ・Ｅ・Ｇ・Ｊ・Ｋ）とするなら
Ａ～Ｋの表内Ａ・Ｂ・Ｃ・Ｆ・Ｈ・Ｉの縦・横に色を付けて、
色がつかなかった部分が残った組合せになると思います。
５チーム残ったので ５ x ４ ÷ ２ ＝ １０ の試合数

＃３は、グループ分けと解釈し、
残ったチームの組合せを求めたものになります。

＃１、＃２では、試合進行をどのような組合せ順ですれば･･･
というものでしたが


※ １チームあたり･･･
この考え方を推測、また無理やりこじつけると
Ａチームが Ｂ・Ｃ・Ｆ・Ｈ・Ｉ と試合をする時には、Ａがホーム開催
Ａチームが Ｄ・Ｅ・Ｇ・Ｊ・Ｋ と試合をする時には、相手がホーム開催
このホーム開催を求めたい・・・になるのでしょうか？

そうであれば、縦・横のチーム記述を（添付図右側）
Ａ・Ｂ・Ｄ・Ｃ・Ｅ・Ｆ・Ｇ・Ｈ・Ｊ・Ｉ・Ｋ の順
（Ａと、ホーム、相手がホーム、ホーム、相手がホーム･･･）にして
Ａ段の赤線右側の Ｂ・Ｃ・Ｆ・Ｈ・Ｉ に色を付けます
Ａ列の赤線左側は 色を付けなかったチームに色を付けます
Ｂ段の赤線右側は、上段Ａの色が付いていない部分に色を付けます
Ｂ列の赤線左側は 色を付けなかったチームに色を付けます
これを繰り返していくと、結構綺麗なチェック柄になると思います。
出来上がったら、縦・横入れ替えれば････
色が付いている所がホーム開催･･･
これをコード化すれば良いと思います。
（求め方の一例ですが）

この回答へのお礼

回答ありがとうございました☆彡
拙い質問の仕方にも関わらず、根気よく向き合っていただき本当に感謝しております。

お礼日時：2015/04/20 10:00

No.3 回答者： 30246kiku 回答日時： 2015/04/17 08:54

＃２です

解釈が苦手です
Aチーム内にBがある/ない場合での、Bチーム以下ってどのチームが対象？
Aチームの方も総当たりが必要？？

あ～だこ～だ云っても、先に進まないと思うので
部品として使えるかどうか････という記述にしてみました。

Ａ１～Ａ最終行まで、チーム名を入れて以下を実行してみてください
（Ａ１には A を入れておいてください）

実行すると
・チーム数の入力になります
　A を含むチーム数で、６では、A 以外に５チームをランダムで抽出
（★ 部分をコメントにすると、 A を必ず選ぶとは限らない）
・残ったチームで、組合せを作成します
（リーグ戦での表示はやめて、ベタで）
・結果は最終列に追加していきます

※ 同じチーム数を入力しても、ランダムで抽出するので結果は同じにはならない？？
（添付図では、チーム数に 6, 5, 7 を入力した時の例）


Option Explicit

Public Sub Samp1()
　　Dim vA As Variant
　　Dim sA() As String, sB() As String
　　Dim sS As String
　　Dim iHdn As Long, iCnt As Long
　　Dim i As Long, j As Long

　　vA = WorksheetFunction.Transpose( _
　　　　　　Range("A1", Cells(Rows.Count, "A").End(xlUp)))
　　sS = UBound(vA) & " チーム中、何チームを選ぶ？" & vbCrLf _
　　　　　　& "（ A1 に記述したチーム含みで）"
　　sS = InputBox(sS, , UBound(vA) \ 2)
　　iCnt = Val(sS)
　　If ((iCnt < 1) Or (iCnt >= UBound(vA) - 1)) Then
　　　　iCnt = UBound(vA) \ 2
　　End If
　　ReDim sA(1 To iCnt)
　　Randomize

　　' 指定数のチーム抽出
　　iHdn = 0
　　While (iHdn < iCnt)
　　　　j = UBound(vA) - iHdn
　　　　i = Int(j * Rnd()) + 1
　　　　If (iHdn = 0) Then i = 1 ' ★
　　　　iHdn = iHdn + 1
　　　　sA(iHdn) = vA(i)
　　　　vA(i) = vA(j)
　　Wend

　　ReDim Preserve vA(1 To UBound(vA) - iHdn)

　　' チーム名昇順が必要なら
　　' sA、vA の２つを対象に、この場所で

　　' 残ったチームの組合せ
　　iCnt = 0
　　For i = 1 To UBound(vA) - 1
　　　　For j = i + 1 To UBound(vA)
　　　　　　iCnt = iCnt + 1
　　　　　　ReDim Preserve sB(1 To iCnt)
　　　　　　sB(iCnt) = vA(i) & " - " & vA(j)
　　　　Next
　　Next

　　' 結果の表示
　　i = Cells(1, Columns.Count).End(xlToLeft).Column + 1
　　If (i = 2) Then i = 3
　　With Cells(1, i)
　　　　.Value = "選択チーム"
　　　　With .Offset(1).Resize(UBound(sA))
　　　　　　.Value = WorksheetFunction.Transpose(sA)
　　　　　　.Borders.LineStyle = xlContinuous
　　　　End With
　　　　With .Offset(UBound(sA) + 2)
　　　　　　.Value = "他組合せ"
　　　　　　With .Offset(1).Resize(iCnt)
　　　　　　　　.Value = WorksheetFunction.Transpose(sB)
　　　　　　　　.Borders.LineStyle = xlContinuous
　　　　　　End With
　　　　End With
　　　　With .EntireColumn
　　　　　　.HorizontalAlignment = xlCenter
　　　　　　.AutoFit
　　　　End With
　　End With
End Sub

No.2 回答者： 30246kiku 回答日時： 2015/04/15 21:04

＃１です

リーグ戦の表？っていうのは、添付図のように
斜めに引いた赤の線を境に、右上と左下は対称になっていると思います。

・右上のどこかを消したら、左下の対称部分は消さない。
・右上のどこかを残すのなら、左下の対称部分は消す。

という操作が必要でしょうか？
どちらを消す/残すルールはありますか？

> ※ 図内の数字は、何試合目･･･
と記述していましたが、見方として
Ｄ２のＡでは、１試合目はＢと、２試合目はＣと･･･
Ｄ３のＢでは、１試合目はＡと、２試合目はＤと･･･

こっちの方がわかり易い？
今週の土曜日は、数字１のチームが試合してください。
来週の土曜日は、数字２のチームが試合してください･･･

部分的に消えていると見難い様な気がしますが？

No.1 回答者： 30246kiku 回答日時： 2015/04/14 19:51

具体的に、こんな感じというサンプルはありませんか？

一応、添付図の様な総当たり（リーグ戦？）を求めてみたのですが、違うのですよね。

例えば、
Ａ～Ｋの中で、ＡがＢ～Ｆの５試合したとして、
残りはどういった感じになるのでしょうか？

※ 記述してみた総当たり処理では、１９チームの時には後半求められず。
チーム数が多くなると、それなりに遅くなる･･･
（処理を端折っている部分もあって････）

※ 図内の数字は、何試合目･･･