Excel - seznam různých hodnot

Zdravím,

v buňkách D5:AH5 (a dále pak v každém jedenáctém řádku - D16:AH16, atd. až do řádku 544) mám různé hodnoty "střediska" (mohou se i opakovat). Potřeboval bych na jiný list vypsat seznam použitých středisek bez duplicit. Nějaký návrh na makro? Zkouším to pomocí vzorců, ale je to extrémně zdlouhavé.

Děkuji za rady

Jsou zobrazeny jen nové odpovědi. Zobrazit všechny

Předmět	Autor	Datum
Středisko je nějak identifikovatelné? Nějaká jedinečná hodnota v nějakém sloupci? L-Core 07.11.2018 10:26	L-Core	07.11.2018 10:26
Středisek jsou stovky a jejich počet se v čase mění. Může se jednat o číslo, ale i písmena. qdj 07.11.2018 11:27	qdj	07.11.2018 11:27
Umiestni nasledujúci kód do štandardného modulu. Makro spúšťaj na hárku, kde máš "zdroj" ( t.j. údaj… robert13 07.11.2018 12:49	robert13	07.11.2018 12:49
Teda smekám klobouk a gratuluji k plně funkční křišťálové kouli. :-) Z toho popisu mám různé hodnoty… Siki83 08.11.2018 00:05	Siki83	08.11.2018 00:05
Díky moc, funguje přesně tak, jak jsem potřeboval :beer: nový qdj 08.11.2018 10:29	qdj	08.11.2018 10:29
Siki, Ty tajnostkár! Tak Ty mu to vyriešiš na tajňáša a mňa tu necháš sa s tým trápiť? :-D P.S. Kľú… nový robert13 08.11.2018 11:35	robert13	08.11.2018 11:35
Pardooon, reagoval jsem na tvé řešení, nevím proč to hodilo jako odpověď Sikimu. Jsem se překliknul. nový qdj 08.11.2018 11:38	qdj	08.11.2018 11:38
:-D Uff, to mi odľahlo :-D nový robert13 08.11.2018 11:39	robert13	08.11.2018 11:39
:-D:-D:-D Ale lek si se co? :-p PS: Klíče se našly :beer: poslední Siki83 08.11.2018 12:33	Siki83	08.11.2018 12:33

Středisko je nějak identifikovatelné? Nějaká jedinečná hodnota v nějakém sloupci?

Středisek jsou stovky a jejich počet se v čase mění. Může se jednat o číslo, ale i písmena.

Umiestni nasledujúci kód do štandardného modulu.
Makro spúšťaj na hárku, kde máš "zdroj" ( t.j. údaje v stĺpcoch D - AH, riadkoch 5 - 544)

Sub SumStredisk()
    
    Application.ScreenUpdating = False
    Application.DisplayAlerts = False
    On Error Resume Next
    
    NazZdroja = ActiveSheet.Name
    Sheets("Střediska").Delete
    Sheets.Add
    ActiveSheet.Name = "Střediska"
    Sheets("Střediska").Cells(1, 1) = "Seznam středisk"
    
    k = 2
    For i = 5 To 544 Step 11
        For j = 4 To 34
            If Sheets(NazZdroja).Cells(i, j) = "" Then GoTo dalej
            Sheets("Střediska").Cells(k, 1) = Sheets(NazZdroja).Cells(i, j)
            k = k + 1
dalej:
        Next j
    Next i
    
    With Sheets("Střediska").Columns("A:A")
        .RemoveDuplicates Columns:=1, Header:=xlYes
        .EntireColumn.AutoFit
        .Range("A1").Select
    End With

    MsgBox "Počet středisk: " & Sheets("Střediska").Range("A" & Sheets("Střediska").Rows.Count).End(xlUp).Row - 1, vbInformation, "Zpracování ukončené"

End Sub

Pozor, opätovným spustením sa "sumarizujúci" hárok maže a vytvára sa nanovo!
Ukážka priložená...

ukazka.xlsm 23.45 KiB

Teda smekám klobouk a gratuluji k plně funkční křišťálové kouli.
Z toho popisu mám různé hodnoty "střediska" sem tak nějak nepobral co to má být za hodnoty, případně kde jsou umístěné.
Ani na dotaz co napsal L-Core nebylo zcela zodpovězeno. Já to pobral tak, že co řádek to jedno středisko + další balast ve sloupcích.