Č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...
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
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:
