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

Programy pro práci v kanceláři (Word, Excel, Access…=>Office)

Moderátor: Mods_senior

lumoravec
nováček
Příspěvky: 4
Registrován: listopad 18
Pohlaví: Nespecifikováno
Stav:
Offline

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

Příspěvekod lumoravec » 04 lis 2018 00:07

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í.
Přílohy
Sešit1.xlsx
(8.7 KiB) Staženo 36 x

Reklama
Uživatelský avatar
atari
Level 6
Level 6
Příspěvky: 3195
Registrován: říjen 08
Pohlaví: Muž
Stav:
Offline

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

Příspěvekod atari » 04 lis 2018 00:15

Kontingenční tabulka

MePExG
Level 2
Level 2
Příspěvky: 193
Registrován: srpen 16
Pohlaví: Muž
Stav:
Offline

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

Příspěvekod MePExG » 04 lis 2018 07:37

Doplnil som ďalšie dva stĺpce a vytvoril kt (priložený súbor).
Přílohy
Sešit1KT.xlsx
(14.7 KiB) Staženo 41 x

Uživatelský avatar
Grimm
Level 2
Level 2
Příspěvky: 162
Registrován: září 17
Pohlaví: Muž
Stav:
Offline

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

Příspěvekod Grimm » 04 lis 2018 12:28

Řešení pomocí VBA.
Přílohy
Tabulka bez duplicit.xlsm
(16.84 KiB) Staženo 42 x

MePExG
Level 2
Level 2
Příspěvky: 193
Registrován: srpen 16
Pohlaví: Muž
Stav:
Offline

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

Příspěvekod MePExG » 04 lis 2018 15:49

Prikladám riešenie pomocou PowerQuery. Stačí zmeniť údaje v zdrojovej (modrej) tabuľke a aktualizovať (Data-Refresh = Atl+F5) zelenú tabuľku.
Přílohy
Sešit1PQ.xlsx
(17.71 KiB) Staženo 42 x

lumoravec
nováček
Příspěvky: 4
Registrován: listopad 18
Pohlaví: Nespecifikováno
Stav:
Offline

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

Příspěvekod lumoravec » 05 lis 2018 07:51

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
Level 2
Level 2
Příspěvky: 193
Registrován: srpen 16
Pohlaví: Muž
Stav:
Offline

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

Příspěvekod MePExG » 05 lis 2018 08:24

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é.
Přílohy
Sešit1KT.xlsx
(17.47 KiB) Staženo 37 x
Sešit1PQ.xlsx
(17.9 KiB) Staženo 28 x

lumoravec
nováček
Příspěvky: 4
Registrován: listopad 18
Pohlaví: Nespecifikováno
Stav:
Offline

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

Příspěvekod lumoravec » 06 lis 2018 08:19

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.

Uživatelský avatar
Grimm
Level 2
Level 2
Příspěvky: 162
Registrován: září 17
Pohlaví: Muž
Stav:
Offline

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

Příspěvekod Grimm » 06 lis 2018 09:10

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))
Přílohy
Tabulka bez duplicit.xlsm
(16.89 KiB) Staženo 36 x

lumoravec
nováček
Příspěvky: 4
Registrován: listopad 18
Pohlaví: Nespecifikováno
Stav:
Offline

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

Příspěvekod lumoravec » 06 lis 2018 15:14

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.


  • Mohlo by vás zajímat
    Odpovědi
    Zobrazení
    Poslední příspěvek
  • Ukotvení prvního a posledního řádku v tabulce.
    od Kopusek » 13 pro 2023 10:50 » v Kancelářské balíky
    2
    1413
    od Kopusek Zobrazit poslední příspěvek
    14 pro 2023 08:55
  • Windows 11 OneDrive automatické odstranění
    od ArtisPier » 26 zář 2023 11:41 » v Programy ke stažení
    4
    4289
    od ArtisPier Zobrazit poslední příspěvek
    26 zář 2023 12:29
  • odstranění automatického přepnutí na druhý monitor
    od tominaxx » 19 črc 2023 15:36 » v Windows 11, 10, 8...
    5
    1394
    od tominaxx Zobrazit poslední příspěvek
    19 črc 2023 22:45

Zpět na “Kancelářské balíky”

Kdo je online

Uživatelé prohlížející si toto fórum: Žádní registrovaní uživatelé a 5 hostů