Option Explicit

Sub Test()
 Const GROUP_COUNT =  4 
 Dim Person() As String
 Dim a As Long, b As Long
 Person = Split("Иванов,Петров,Сидоров,Алексеев,Александров," & _
                "Андреев,Борисов,Дмитриев,Галкин,Орлов,Скворцов," & _
                "Козлов,Медведев,Тюленев,Оленев,Зверев", ",")
 a = LBound(Person): b = UBound(Person)
 
 ReDim Index(a To b) As Long
 Dim i As Long
 For i = a To b: Index(i) = i: Next i
 
 Dim j As Long, t As Long
 Randomize
 For i = b To a +  1  Step - 1 
    j = Int((i - a +  1 ) * Rnd + a)
    t = Index(j)
    Index(j) = Index(i)
    Index(i) = t
 Next i
 
 Debug.Print "Группа", "Номер", "Фамилия"
 For i = a To b
    Debug.Print i \ GROUP_COUNT +  1 , i Mod GROUP_COUNT +  1 , Person(Index(i))
 Next i
End Sub