< návrat zpět

MS Excel

Téma: scitanie hodnot rss

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ěď >
icon Poki(9.2.2011 11:25)#004052
Poki
kontingencni tabulka...citovat
mancal(9.2.2011 12:49)#004054
avatar
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
avatar
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
avatar
Roman zdravim: presne toto som hladal, vrela vdaka este razcitovat

Uživatelské menu

Nejste přihlášen(a)
avatar\n

Menu

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.

On-line nástroje