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
Užitočné (3) | ivka70, marjankaj, motyl1 |
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
Užitočné (2) | marjankaj, ivka70 |
Excel - vyhľadávanie