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

[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í.

[Reklama]

[atari]

Kontingenční tabulka

[MePExG]

Doplnil som ďalšie dva stĺpce a vytvoril kt (priložený súbor).

[Grimm]

Řešení pomocí VBA.

[MePExG]

Prikladám riešenie pomocou PowerQuery. Stačí zmeniť údaje v zdrojovej (modrej) tabuľke a aktualizovať (Data-Refresh = Atl+F5) zelenú tabuľku.

[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.

[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é.

[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.

[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))

[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.