Function prirad(co As String, stlpec As Range, cislo As Integer) As String
Dim aPrirad, xPrirad As String

Application.Volatile

If co <> "" Then
    carka = ""
    For Each bunka In stlpec
      If bunka.Value = co Then
       xPrirad = xPrirad + carka + bunka.Offset(0, cislo).Value
       carka = ", "
      End If
    Next
    
    'pucuj duplikaty
    aPrirad = Split(xPrirad, ", ")
    aPrirad = RemoveArrayDupes(aPrirad)
    xPrirad = Join(aPrirad, carka)
    
End If
prirad = xPrirad
End Function

Function RemoveArrayDupes(vArray As Variant)
    Dim Dict As Object
    Set Dict = CreateObject("Scripting.Dictionary")
     
    For Each Item In vArray
       If Not Dict.Exists(Item) Then Dict.Add Item, 1
    Next Item
     
    RemoveArrayDupes = Dict.Keys
End Function

Function prirad(co As String, stlpec As Range, cislo As Integer) As String
prirad = ""
Application.Volatile
If co <> "" Then
carka = ""
For Each bunka In stlpec
  If bunka.Value = co Then
   prirad = prirad + carka + bunka.Offset(0, cislo).Value
   carka = ", "
  End If
Next
End If
   
End Function