< návrat zpět

MS Excel

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

Zaslal/a kristv 10.1.2017 5:30

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

Příloha: zip34384_vypis_jedinecnych_hodnot_v_radku.zip (10kB, staženo 39x)
Zaslat odpověď >
icon AL(10.1.2017 10:59)#034398
avatar
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
avatar
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: zip34524_vypis_jedinecnych_hodnot_v_radku_1.zip (18kB, staženo 39x)
citovat
syd(16.1.2017 22:04)#034532
avatar
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
icon AL(17.1.2017 10:18)#034538
avatar
@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
icon eLCHa(17.1.2017 15:17)#034542
eLCHa
@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
avatar
Děkuji pánové za pomoccitovat

Uživatelské menu

Nejste přihlášen(a)
avatar\n

Menu

Formulář Faktura

Formulář Faktura IV

Oblíbený formulář Faktura byl vylepšen a rozšířen.
Více se dočtete zde.

Helios iNuvio

Používáte podnikový systém Helios iNuvio? Potřebujete pomoci se správou nebo vyvinout SQL proceduru? Více informací naleznete na stránce Helios iNuvio.

On-line nástroje