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

Předmět	Autor	Datum
To jsem zvědav, kdo přijde dřív s řešením: jestli Siki nebo Robert... ]:) host 07.11.2018 08:16	host	07.11.2018 08:16
Robert pač Siki valí do rachoty. Já bych se na to dostal až o víkendu. Ale za mě málo info. Siki83 07.11.2018 08:40	Siki83	07.11.2018 08:40
3-[:-D:beer: robert13 07.11.2018 13:10	robert13	07.11.2018 13:10
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
diky, zitra vyzkousim qdj 07.11.2018 20:15	qdj	07.11.2018 20:15
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
Samozrejme, že info je nedostatočné, tak som dal riešenie "naslepo". Ak má vo všetkých bunkách stred… robert13 08.11.2018 07:26	robert13	08.11.2018 07:26
Díky moc, funguje přesně tak, jak jsem potřeboval :beer: 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ľú… 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. qdj 08.11.2018 11:38	qdj	08.11.2018 11:38
:-D Uff, to mi odľahlo :-D 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
Pokud chceš jen seznam jedinečných středisek bez duplicit, pak stačí střediska zkopírovat na nový li… Jan Fiala 07.11.2018 13:34	Jan Fiala	07.11.2018 13:34
no vidis, to menenapadlo:) vytvorim si tedy makro pro kopirovani vsech bunek se stredisky do slkupce… qdj 07.11.2018 20:18	qdj	07.11.2018 20:18

To jsem zvědav, kdo přijde dřív s řešením: jestli Siki nebo Robert...

Robert pač Siki valí do rachoty. Já bych se na to dostal až o víkendu.
Ale za mě málo info.

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

diky, zitra vyzkousim

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.

PS: když už máš ty věstecký schopnosti, nevíš kde mám klíčky od auta?

Samozrejme, že info je nedostatočné, tak som dal riešenie "naslepo".
Ak má vo všetkých bunkách strediská, tak mu to bude robiť to, čo chce (aj keď chce riešiť znova to, čo už má vyriešené a to tým istým princípom ), ak nie, tak holt nedal dostatočný popis...
.
A že kde máš kľúče od auta?
.
To máš ako v tom vtipe:
Synáčik prišiel s päťkou zo školy a otec sa ho pýta:
-Za čo si to dostal?
-Nevedel som, kde sú Pyreneje.
-Dobre Ti tak, nabudúce si zapamätáš, čo kde odložíš!
.

Díky moc, funguje přesně tak, jak jsem potřeboval

Siki, Ty tajnostkár!
Tak Ty mu to vyriešiš na tajňáša a mňa tu necháš sa s tým trápiť?

P.S. Kľúče si už našiel?

Pardooon, reagoval jsem na tvé řešení, nevím proč to hodilo jako odpověď Sikimu. Jsem se překliknul.

Uff, to mi odľahlo

Ale lek si se co? PS: Klíče se našly

Pokud chceš jen seznam jedinečných středisek bez duplicit, pak stačí střediska zkopírovat na nový list a z karty Data použít funkci "odebrat duplicity"

no vidis, to menenapadlo:) vytvorim si tedy makro pro kopirovani vsech bunek se stredisky do slkupce a pak debrani duplicit. diky

Zpět do poradny Odpovědět na původní otázku Nahoru