MS Excel

Dobrý den.
Prosím o radu, jak vypsat jedinečné hodnoty z řádku do buněk pod sebe. V řádku se hodnoty opakují (nebo taky ne), není stanoveno, kolik jedinečností je, hodnoty nejdou v pořadí za sebou. Řádků mám víc, ale v příloze je jako příklad jen jeden. Velice děkuji. Vladimír Krist

Zaslat odpověď >

AL(10.1.2017 10:59)#034398

Síce to chceš makrom, ale napriek tomu zmienim copy, paste special, transpose a nasledne odstrániť duplicity
Pokiaľ makrom, tak napr. zapísať hodnoty z riadku do poľa (vektoru), následne z jednotlivých položiek poľa vytvoriť objekt Collection a cez key ošetriť elimináciu duplicít.citovat

kristv(16.1.2017 20:04)#034524

ad AL:Zkusil jsem najít postupy na internetu, abych zkusil vytvořit Collection a dále, jak píšete. To je pro mne neznámý postup. Nakonec jsem dal něco dohromady. V podstatě jsem dosáhl toho, že v Array setřídím a potom hledám změny. V příloze je moje řešení. Pokud by pro Vás nebylo moc zatěžující, mohl byste do přílohy uvést řešení, jak použít klíč a odstranit duplicity v kolekci, jak píšete? Na to jsem nepřišel. Ale pokud nemůžete, nic se neděje, situaci jsem vyřešil a Vám děkuji za nakopnutí. Ještě jednou díky. Krist

Příloha: zip

34524_vypis_jedinecnych_hodnot_v_radku_1.zip (18kB, staženo 38x)

citovat

syd(16.1.2017 22:04)#034532

Zdravim,

varianta podle popisu AL pres RemoveDuplicates:
Sub test()
With Range("D7")
.CurrentRegion.ClearContents
Range("B4").CurrentRegion.Rows(4).Rows(1).Copy
.PasteSpecial xlPasteValues, Transpose:=True
.CurrentRegion.RemoveDuplicates Columns:=1, Header:=xlNo
.Sort key1:=.CurrentRegion, Order1:=xlAscending
.Select
End With
End Sub
citovat

AL(17.1.2017 10:18)#034538

@kristv: Na to, aby som ti to riešenie za použitia collection a key napísal, v dohľadnej dobe nemám čas, ale popis, ako na to, môžeš nájsť napr. tuná:http://dailydoseofexcel.com/archives/2004/05/18/listing-unique-items-with-collections/
tuná:http://stackoverflow.com/questions/18799590/avoid-duplicate-values-in-collection
tuná:http://stackoverflow.com/questions/3017852/vba-get-unique-values-from-array
atd.citovat

eLCHa(17.1.2017 15:17)#034542

@kristv
I na tomto fóru najdete řešení, jediný rozdíl je v tom, že pravděpodobně bylo zpracováno na základě dat ve sloupci.

Stačí google, např.:site:wall.cz +elcha jedinečné +collectioncitovat

kristv(8.2.2017 18:09)#034859

Děkuji pánové za pomoccitovat

Téma: Vypsání jedinečních hodnot z řádku - VBA

Uživatelské menu

Menu

On-line nástroje

Formulář Faktura

Formulář Faktura IV

Aktivní diskuse

Čas od do

Čas od do

Čas od do

Čas od do

Makro smyčka

Makro smyčka

Makro smyčka