Generate a game schedule for 5 teams

[xuamox]

Hi,

I would like to know if I can use excel to generate a game schedule for 5 teams, where each team has to play each other once?
I know that 5 teams is easy to figure out on paper, but I wanted to know how you would go about it using excel.

1 vs 2
1 vs 3
1 vs 4
1 vs 5
2 vs 3
2 vs 4
2 vs 5
3 vs 4
3 vs 5
4 vs 5

Thanks

 

[Joe4]

Welcome to the Board!

Here is one macro that will do that:

Sub Schedule()

    Dim numTeams As Long
    Dim first As Long
    Dim second As Long
    Dim startCell As Range
    Dim counter As Long
    
    Application.ScreenUpdating = False
    
'   Designate the number of teams
    numTeams = 5
    
'   Select starting cell
    Set startCell = Range("A1")
    
    counter = 0
'   Loop through list
    For first = 1 To (numTeams - 1)
        For second = (first + 1) To numTeams
            startCell.Offset(counter, 0) = first & " vs " & second
            counter = counter + 1
        Next second
    Next first
                
    Application.ScreenUpdating = True
                
End Sub