Oprášil jsem znalosti VBA (s Googlem) a "vymyslel" tuto prasárnuSub test()lastcolumn = Range("A1").End(xlToRight).Columnlastrow = Range("A1").End(xlDown).Row + 1For x = 2 To lastrowr = "" For y = 1 To lastcolumn If UCase(Cells(x, y).Value) = "X" Then r = r + Cells(1, y).Value + "," Next y If r <> "" Then r = Left(r, Len(r) - 1) Cells(x, lastcolumn + 1).Value = rNext xEnd Sublastcolumn je počet sloupců (počítám že hlavička je v řádku 1 a kompletní, hledám první prázdnou buňku), lastrow pak počet obsazených řádků. Pak dvě vnořené smyčky, jedna přes řádky, druhá přes sloupce, kde procházím buňky a když najdu X (velké či malé proto testuji s Ucase) vezmu hodnotu z příslušné hlavičky a přidám do pomocné proměnné r. Tu pak nakonci řádku zapíšu.Makro do Excelu vložíte takto: Alt+F11 se otevře VBA editor, v něm Insert>Module tam vložíte Sub Test a spustíte buď F5 nebo zelenou šipkou.