Ten priložený súbor som neotváral, ale uvedený typ úlohy by som osobne riešil kontingenčnou tabuľkou.citovat
excel, návod, tipy, funkce, makra, vba, tabulky, šablony
Váš průvodce programem Microsoft Excel a programováním maker ve VBA
< návrat zpět
Téma: Duplicitní data a jejich součet
Uzamčeno - nelze přidávat nové příspěvky.
MS Excel
Téma: Duplicitní data a jejich součet 
Zaslal/a langstroth 24.1.2013 9:15
Dobrý den,
mám otázku, jak provést součet duplicitních hodnot. V souboru jsem přiložil malou ukázku. Ve sloupci A jsou hodnoty. Potřebuji vybrat z tohoto sloupce duplicitní hodnoty ( např č.1 se vyskytuje dvakrát) a tyto duplicitní hodnoty vypsat třeba do sloupce D a k nim vedle (třeba sloupec E) přiřadit součet všech jím odpovídajících hodnot ze sloupce B.
Př.: Hodnota 1 je ve sloupci A dvakrát, takže do sloupce D se vypíše hodnota 1 a vedle součet (10+280, tzn 290).
Díky moc
Petr S.
Příloha: 
11116_sesit2.zip (4kB, staženo 74x)
11116_sesit2.zip (4kB, staženo 74x) Uzamčeno - nelze přidávat nové příspěvky.Mam obavu, ze toto KT nezvladne.
Asi by to slo nejakym hodne komplikovanym maticovym vzoreckem s definovanim vlastnich seznamu, ale to moc neumim, na to jsou jini profesori.
Nicmene, pokud ten seznam bude mit tisice hodnot, tak to muze byt pro excel dost velky zahul.
Ale pokud by mohlo byt reseni makrem, tak je to brnkacka:
Sub SoucetDuplicit()
Dim iMxRow As Integer, i As Integer, iRow1 As Integer
'posledni radek
iMxRow = Range("A65000").End(xlUp).Row
'projdi smyckou seznam a vypis duplicitni hodnoty do sloupce E
For i = 1 To iMxRow
If Application.CountIf(Range("A:A"), Cells(i, "A")) > 1 Then
If Application.WorksheetFunction.CountIf(Range("E:E"), Cells(i, "A")) = 0 Then
iRow1 = Range("E65000").End(xlUp).Row + 1
Cells(iRow1, "E") = Cells(i, "A")
Cells(iRow1, "F") = Application.SumIf(Range("A:A"), Cells(i, "A"), Range("B:B"))
End If
End If
Next i
End Subcitovat
Asi by to slo nejakym hodne komplikovanym maticovym vzoreckem s definovanim vlastnich seznamu, ale to moc neumim, na to jsou jini profesori.
Nicmene, pokud ten seznam bude mit tisice hodnot, tak to muze byt pro excel dost velky zahul.
Ale pokud by mohlo byt reseni makrem, tak je to brnkacka:
Sub SoucetDuplicit()
Dim iMxRow As Integer, i As Integer, iRow1 As Integer
'posledni radek
iMxRow = Range("A65000").End(xlUp).Row
'projdi smyckou seznam a vypis duplicitni hodnoty do sloupce E
For i = 1 To iMxRow
If Application.CountIf(Range("A:A"), Cells(i, "A")) > 1 Then
If Application.WorksheetFunction.CountIf(Range("E:E"), Cells(i, "A")) = 0 Then
iRow1 = Range("E65000").End(xlUp).Row + 1
Cells(iRow1, "E") = Cells(i, "A")
Cells(iRow1, "F") = Application.SumIf(Range("A:A"), Cells(i, "A"), Range("B:B"))
End If
End If
Next i
End Subcitovat
Alebo rozšíreným filtrom.
Odklikni presne podľa vzoru.
Odklikni presne podľa vzoru.
Příloha: 11142_rf.zip (27kB, staženo 561x)
citovat11142_rf.zip (27kB, staženo 561x)Díky, filtr je parádní, to mně nenapadlo, moc díky.citovat
Uživatelské menu
Nejste přihlášen(a)
\n
\nMenu
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.
RSS nejnovější články