Pairing non-teammate competitors

[Woodwalker]

Need help please, I like to match-up competitors randomly where they can't face their own teammates and they can only face the opponent once. Data is taken from a table
that's arrange like this (Column A: Competitor, Column B: Team). In another table is the output (Column D: Competitor 1, Column E: Team, Column F: Competitor 2, Column G: Team), also there's no duplicates of any competitor's name in Columns D and F. Any help would appreciated. Thanks. Sorry for bad english.

 

[Peter_SSs]

This takes about 15 seconds on my fairly old machine so there may be faster ways, but as I understand it, does what you want.

Sub Make_Matches()
  Dim d As Object, dMatches As Object
  Dim a As Variant, Bits As Variant
  Dim i As Long, j As Long
  Dim CurrTeam As String, m As String

  Set d = CreateObject("Scripting.Dictionary")
  Set dMatches = CreateObject("Scripting.Dictionary")
  a = Range("A2", Range("B" & Rows.Count).End(xlUp)).Value
  For i = 1 To UBound(a) - 1
    CurrTeam = a(i, 2)
    For j = i + 1 To UBound(a)
      If a(j, 2) <> CurrTeam Then
        d(";" & a(i, 1) & ";" & CurrTeam & ";" & a(j, 1) & ";" & a(j, 2) & ";") = i
      End If
    Next j
  Next i
  Randomize
  Do Until d.Count = 0
    m = d.Keys()(Int(Rnd() * d.Count))
    dMatches.Add m, 1
    Bits = Split(m, ";")
    For j = d.Count To 1 Step -1
      If InStr(1, d.Keys()(j - 1), ";" & Bits(1) & ";") > 0 Or InStr(1, d.Keys()(j - 1), ";" & Bits(3) & ";") > 0 Then d.Remove d.Keys()(j - 1)
    Next j
  Loop
  With Range("D2").Resize(dMatches.Count)
    .Resize(UBound(a), 4).ClearContents
    .Value = Application.Transpose(dMatches.Keys)
    .TextToColumns DataType:=xlDelimited, Semicolon:=True, Space:=False, Other:=False, _
        FieldInfo:=Array(Array(1, 9), Array(2, 1), Array(3, 1), Array(4, 1), Array(5, 1), Array(6, 9))
  End With
End Sub

Here is my sample data and one set of results.

Woodwalker.xlsm
	A	B	C	D	E	F	G
1	Competitor	Team		Competitor	Team	Competitor	Team
2	Comp 1	Team 1		Comp 11	Team 2	Comp 77	Team 13
3	Comp 2	Team 1		Comp 53	Team 9	Comp 65	Team 11
4	Comp 3	Team 1		Comp 4	Team 1	Comp 25	Team 5
5	Comp 4	Team 1		Comp 35	Team 6	Comp 37	Team 7
6	Comp 5	Team 1		Comp 6	Team 1	Comp 76	Team 13
7	Comp 6	Team 1		Comp 61	Team 11	Comp 79	Team 13
8	Comp 7	Team 2		Comp 5	Team 1	Comp 44	Team 8
9	Comp 8	Team 2		Comp 14	Team 3	Comp 23	Team 4
10	Comp 9	Team 2		Comp 36	Team 6	Comp 62	Team 11
11	Comp 10	Team 2		Comp 29	Team 5	Comp 51	Team 9
12	Comp 11	Team 2		Comp 26	Team 5	Comp 42	Team 7
13	Comp 12	Team 2		Comp 13	Team 3	Comp 58	Team 10
14	Comp 13	Team 3		Comp 64	Team 11	Comp 78	Team 13
15	Comp 14	Team 3		Comp 1	Team 1	Comp 56	Team 10
16	Comp 15	Team 3		Comp 38	Team 7	Comp 49	Team 9
17	Comp 16	Team 3		Comp 22	Team 4	Comp 52	Team 9
18	Comp 17	Team 3		Comp 10	Team 2	Comp 19	Team 4
19	Comp 18	Team 3		Comp 46	Team 8	Comp 60	Team 10
20	Comp 19	Team 4		Comp 3	Team 1	Comp 16	Team 3
21	Comp 20	Team 4		Comp 30	Team 5	Comp 67	Team 12
22	Comp 21	Team 4		Comp 7	Team 2	Comp 69	Team 12
23	Comp 22	Team 4		Comp 15	Team 3	Comp 71	Team 12
24	Comp 23	Team 4		Comp 45	Team 8	Comp 66	Team 11
25	Comp 24	Team 4		Comp 24	Team 4	Comp 55	Team 10
26	Comp 25	Team 5		Comp 12	Team 2	Comp 17	Team 3
27	Comp 26	Team 5		Comp 54	Team 9	Comp 75	Team 13
28	Comp 27	Team 5		Comp 9	Team 2	Comp 80	Team 13
29	Comp 28	Team 5		Comp 21	Team 4	Comp 32	Team 6
30	Comp 29	Team 5		Comp 39	Team 7	Comp 47	Team 8
31	Comp 30	Team 5		Comp 34	Team 6	Comp 68	Team 12
32	Comp 31	Team 6		Comp 41	Team 7	Comp 74	Team 13
33	Comp 32	Team 6		Comp 27	Team 5	Comp 33	Team 6
34	Comp 33	Team 6		Comp 8	Team 2	Comp 43	Team 8
35	Comp 34	Team 6		Comp 48	Team 8	Comp 57	Team 10
36	Comp 35	Team 6		Comp 50	Team 9	Comp 72	Team 12
37	Comp 36	Team 6		Comp 20	Team 4	Comp 70	Team 12
38	Comp 37	Team 7		Comp 2	Team 1	Comp 63	Team 11
39	Comp 38	Team 7		Comp 18	Team 3	Comp 40	Team 7
40	Comp 39	Team 7		Comp 31	Team 6	Comp 59	Team 10
41	Comp 40	Team 7		Comp 28	Team 5	Comp 73	Team 12
42	Comp 41	Team 7
43	Comp 42	Team 7
44	Comp 43	Team 8
45	Comp 44	Team 8
46	Comp 45	Team 8
47	Comp 46	Team 8
48	Comp 47	Team 8
49	Comp 48	Team 8
50	Comp 49	Team 9
51	Comp 50	Team 9
52	Comp 51	Team 9
53	Comp 52	Team 9
54	Comp 53	Team 9
55	Comp 54	Team 9
56	Comp 55	Team 10
57	Comp 56	Team 10
58	Comp 57	Team 10
59	Comp 58	Team 10
60	Comp 59	Team 10
61	Comp 60	Team 10
62	Comp 61	Team 11
63	Comp 62	Team 11
64	Comp 63	Team 11
65	Comp 64	Team 11
66	Comp 65	Team 11
67	Comp 66	Team 11
68	Comp 67	Team 12
69	Comp 68	Team 12
70	Comp 69	Team 12
71	Comp 70	Team 12
72	Comp 71	Team 12
73	Comp 72	Team 12
74	Comp 73	Team 12
75	Comp 74	Team 13
76	Comp 75	Team 13
77	Comp 76	Team 13
78	Comp 77	Team 13
79	Comp 78	Team 13
80	Comp 79	Team 13
81	Comp 80	Team 13
Sheet3