Poradíte lepší řešení probému v Excelu?

Páčilo by sa Ti viac napr toto: ?

do bunky S3 (a do ostatných skopírovať):

=SUBSTITUTE(TRIM(INDEX(B1:B2;(B3=L$1)+1;) & " " & INDEX(C1:C2;(C3=L$1)+1;) & " " & INDEX(D1:D2;(D3=L$1)+1;) & " " & INDEX(E1:E2;(E3=L$1)+1;) & " " & INDEX(F1:F2;(F3=L$1)+1;) & " " & INDEX(G1:G2;(G3=L$1)+1;) & " " & INDEX(H1:H2;(H3=L$1)+1;) & " " & INDEX(I1:I2;(I3=L$1)+1;) & " " & INDEX(J1:J2;(J3=L$1)+1;));" ";", ")

v českej verzii:

=DOSADIT(PROČISTIT(INDEX(B1:B2;(B3=L$1)+1;) & " " & INDEX(C1:C2;(C3=L$1)+1;) & " " & INDEX(D1:D2;(D3=L$1)+1;) & " " & INDEX(E1:E2;(E3=L$1)+1;) & " " & INDEX(F1:F2;(F3=L$1)+1;) & " " & INDEX(G1:G2;(G3=L$1)+1;) & " " & INDEX(H1:H2;(H3=L$1)+1;) & " " & INDEX(I1:I2;(I3=L$1)+1;) & " " & INDEX(J1:J2;(J3=L$1)+1;));" ";", ")

Děkuji, taky zajímavé řešení, asi to bez makra jednodušeji opravdu nepůjde...

Půjde pomocí maticového vzorce.

Witaj Siki! Už som čakal na Teba a Tvoje maticové riešenie
Ja som na to tiež chcel ísť s maticami a čiastočne sa mi aj niečo podarilo, ale ani za svet z toho získať zlúčený reťazec...
Žiaľ, mne Tvoj maticový vzorec vyhodnocuje ako #NÁZOV?

Ahoj, jakou máš verzi Excelu?
Funkce TEXTJOIN by měla být dostupná od verze 2016.

Mám 2016... Tak to bude asi od vyššej...
Alebo... nemáš to nejaký externý doplnok?

Ne ne, Excel 2019 bez doplňků.

Jo... V mojej 2016 to nie je podporované (pred funkciou mi aj vypíše "_xlfn")...

Matice bych si nechal do Matlabu, jen jsem neměl tu odvahu to tu navrhnout (matlab nepatří k běžnému vybavení domácího počítače)

cisla=randi(5,1,10)
popisky={'KC'	'KY'	'R'	'C'	'L'	'IGT'	'CMOS'	'FET'	'SD' 'X9' 'X10'}
ind=find(cisla==5)
popisky(ind)

bylo by programátorsky čistčí použít strukturu, ale dva vektory jeden s čísly a jeden s popisky je jednodušší. Funkce find vrátí indexy položek, které se dají přímo použít k indexování. Počet by potom byl numel(ind). A dá se s tím dělat spousta dalších věcí. A je úplně jedno, jestli je těch položek 10 nebo milion. A přitom je to rychlé i pro 10 milionů prvků, což je množství, které excel ani nenačte.

Tie funkcie nakoniec nie sú kratšie a jednoduchšie, než Tvoje niekoľkonásobné KDYŽ...
A makro? Problémom by bolo, že každým zápisom výsledku, získaného makrom, by sa hárok prepočítaval.
Musel by si generovať nový Random obsah manuálne, inak by sa ti zápisom výsledku makra vygenerovali nové vstupy a vyhodnotenie by sa vzťahovalo k predošlej variácii...

No nakonec jsem to přecejen zkusil s tím makrem a vlastní funkcí:

Function PREDMETY5(kde)
    p5 = ""
    For i = 0 To kde.Columns.Count - 1
         If Cells(kde.Row + 1, kde.Column + i).Value = 5 Then
            p5 = p5 + Cells(kde.Row, kde.Column + i).Value + ", "
         End If
    Next i
    If p5 <> "" Then p5 = Left(p5, Len(p5) - 2)
    PREDMETY5 = p5
End Function

Ale s tím maticovým vzorcem výše to je elegantnější...

Aha, vidíš, dobrý nápad... výsledok funkcie nespôsobuje prepočet