• Úvod
• Excel návod
• Excel šablony
• Nástěnka
• Mobility
• Tipy na výlet
• Galerie
• Fórum

MS Excel

Téma: scitanie hodnot

Zaslal/a mancal 8.2.2011 17:35

dobry den zhanam radu ohladne tejto situacie.
stlpecA stlpecB stlpecA stlpecB
momentalne po prikaze alebo pod.
2354 5 2354 5
2364 10 2364 10
2366 3 2366 17
2366 6
2366 8
To znamena: scitaj rovnake v stlpciA a odstran duplicitu. Dakujem

Zaslat odpověď >

---

Poki(9.2.2011 11:25)#004052

kontingencni tabulka...citovat

mancal(9.2.2011 12:49)#004054

Zdravim Poki, ano odpoved spravna ale je to report. cisel cez 15.000. Skusam najst nieco ine. Orginal ide hned na tlac a prave preto by som chcel usetrit desiatok listov a lepsie kontrolovat. Prave som zbadal ze sa moj dotaz spojil, ale asi je ta moja prosba chapatelna. dikcitovat

Roman(9.2.2011 16:37)#004056

Zkus toto:

Sub Součet()
With ActiveSheet
.Range("A1", .Cells(.Rows.Count, "B").End(3)).Sort Key1:=Range("A1"), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal
j = 1
For i = 1 To .Cells(.Rows.Count, "A").End(3).Row
If Cells(i, 1) = Cells(i + 1, 1) Then
Cells(j, 2) = Cells(j, 2) + Cells(i + 1, 2)
Else
.Range("A1").Offset(i, 0).Resize(1, 2).Copy .Range("A1").Offset(j, 0)
j = j + 1
End If
Next i
On Error Resume Next
.Range("A1").Offset(j, 0).Resize(i - j, 2).ClearContents
End With
End Sub
citovat

mancal(9.2.2011 20:20)#004058

Roman zdravim: presne toto som hladal, vrela vdaka este razcitovat

Uživatelské menu

Nejste přihlášen(a)

• přihlásit
• registrace

\n

Menu

On-line nástroje

Formulář Faktura

Aktivní diskuse