Stránka 1 z 1

Odstranění duplicit v tabulce se sečtením jejich cen

Napsal: 04 lis 2018 00:07
od lumoravec
Dobrý den, mám tabulku, ze které potřebuji vyloučit duplicitní záznamy, ale s tím, že jsou u nich vedeny ceny, které bych potřeboval z duplicit sečíst a tuto částku vypsat. Nějak si s tím nevím rady.

Děkuji za nápady.

z tabulky vyloučit duplicitní jména ve sloupci C (František, Zbyněk) a do sloupce E vypsat součty duplicit (František = 445, Zbyněk = 800). A aby toho nebylo málo, tak počet řádků (jmen) se mění.

Re: Odstranění duplicit v tabulce se sečtením jejich cen

Napsal: 04 lis 2018 00:15
od atari
Kontingenční tabulka

Re: Odstranění duplicit v tabulce se sečtením jejich cen

Napsal: 04 lis 2018 07:37
od MePExG
Doplnil som ďalšie dva stĺpce a vytvoril kt (priložený súbor).

Re: Odstranění duplicit v tabulce se sečtením jejich cen

Napsal: 04 lis 2018 12:28
od Grimm
Řešení pomocí VBA.

Re: Odstranění duplicit v tabulce se sečtením jejich cen

Napsal: 04 lis 2018 15:49
od MePExG
Prikladám riešenie pomocou PowerQuery. Stačí zmeniť údaje v zdrojovej (modrej) tabuľke a aktualizovať (Data-Refresh = Atl+F5) zelenú tabuľku.

Re: Odstranění duplicit v tabulce se sečtením jejich cen

Napsal: 05 lis 2018 07:51
od lumoravec
to MePExG tohle řešení se mi líbí, jen bych potřeboval, aby se vypsali v nové tabulce i ty data, kde je to vypsáno jen jednou.
Díky.

Re: Odstranění duplicit v tabulce se sečtením jejich cen

Napsal: 05 lis 2018 08:24
od MePExG
Odstránil som teda filter.

Dodatečně přidáno po 33 minutách 7 vteřinách:
Na to skutočne stačí obyčajná kt a použitie je to isté.

Re: Odstranění duplicit v tabulce se sečtením jejich cen

Napsal: 06 lis 2018 08:19
od lumoravec
to Grimm: to je super, akorát bych potřeboval, aby se mi porovnávali stejná licenční čísla, protože jedno ID může mít více licenčních čísel. Zkoušel jsem ve VB přepsat sloupec A na sloupec B, ale to mi začalo dělat blbosti. Poradíte mi jak to udělat.
Díky za ochotu.

Re: Odstranění duplicit v tabulce se sečtením jejich cen

Napsal: 06 lis 2018 09:10
od Grimm
Přikládám upravený soubor. Jinak změny byly provedeny na těchto místech kódu:

Set OblastKriterii = Range("B2:B" & MaxRadek)

a

Unikat.Add arrTabulka(i, 2), CStr(arrTabulka(i, 2))

Re: Odstranění duplicit v tabulce se sečtením jejich cen

Napsal: 06 lis 2018 15:14
od lumoravec
Super, díky moc. To je přesně to co potřebuji. Velice děkuji za ukázku změn ve zdrojovém kódu.