Če je že bilo...se opravičujem (in naj pokaže pot do rešitve...)
Imam podatke v stolpcih (vrstic cca 5000) in določeni podatki se ponavljajo. Recimo šifra 100 se ponovi recimo trikrat in rad bi seštel njene vrednosti v drugem stolpcu. Šifer je kar nekaj (več kot 100). Najhitrejša pot da mi pregleda vse šifre in jih vsako posebej izpiše in poleg njen seštevek. Sicer logično ni prav zahtevna naloga...a logika pač ni moja močna stran
Se zahvaljujem...
Preglej, posortiraj in preštej....
Ta funkcija vam sešteje podatke.
Ne pozabite po vnosu funkcije pritisniti CTRL+SHIFT+ENTER.
Koda: Izberi vse
=SUM(IF(A1:A12=1;B1:B12))
[img]http://shrani.si/f/3t/YL/4W2P37B9/office.gif[/img]
[img]http://shrani.si/f/12/aa/1rt1wj6i/1/userbardionaea.gif[/img]
[img]http://shrani.si/f/3D/nN/3RQySBCl/vista-copy.gif[/img]
[img]http://shrani.si/f/12/aa/1rt1wj6i/1/userbardionaea.gif[/img]
[img]http://shrani.si/f/3D/nN/3RQySBCl/vista-copy.gif[/img]
Malce sem priredil makro, ki sem ga našel tu:
http://www.matjazev.net/forum/viewtopic ... uniquelist
vašim potrebam!
Makro vam bo v 3. stolpec vpisal vse različne zapise iz 1. stolpca! Nato pa uporabite v D1 formulo, ki jo je predlagal kljuka13, torej recimo:
nato pa dvoklik na majhni kvadratek v celici (ročico), s tem boste formulo kopirali navzdol in stvar bi morala klapat!
http://www.matjazev.net/forum/viewtopic ... uniquelist
vašim potrebam!
Koda: Izberi vse
Sub Razlicni_zapisi()
Dim UniqueList() As String
Dim x As Long
Dim Rng1 As Range
Dim c As Range
Dim Unique As Boolean
Dim y As Long
Set Rng1 = ActiveSheet.Range("A1:A5000")
y = 0
ReDim UniqueList(1 To Rng1.Rows.Count)
For Each c In Rng1
If Not c.Value = vbNullString Then
Unique = True
For x = 1 To y
If UniqueList(x) = c.Text Then
Unique = False
End If
Next
If Unique Then
y = y + 1
Cells(y, 3) = c.Text
UniqueList(y) = c.Text
End If
End If
Next
End Sub
Koda: Izberi vse
=SUM(IF(A1:A5000=C1;B1:B5000))
lp,
cedra
cedra
Za kaj takšnega ima Excel kar nekaj orodij, med katerimi bi recimo izpostavil delne vsote in vrtiln tabele. Primer za slednje:
- Postavite se v tabelo s podatki
- Izberite Podatki/poročilo vrtilne tabele ali vrtilnega grafikona...
- V čarovniku kliknite kar opcijo dokončaj
- Odpre se nov list in novookno s seznmom vseh vaših kolon.
- Kolono s šifro z miško nesite na področje lista, kjer piše 'tule spustite polja vrstice'
- Kolono z vrednostmi nesite na področje, kjer piše 'tule spustite podatkovne elemente'
lp,
Matjaž Prtenjak
Administrator
Matjaž Prtenjak
Administrator