Sortering af data i excel

Hvis du skriver hund i a51 og indsætter følgende formel i b51 skulle det virke.
Dette forudsætter at dine dyr og antal står indenfor området a1:b50


SUM.HVIS(A1:B50;A51;B1:B50)

du skal selvfølgelig gøre det samme for hver dyreart

Dette her avr bare et forenklet eksempel.

Datasættet er på næsten 1800 linier, men et ukendt antal dobbelt-linier (eller værre).

Ok, her er en makro, den opretter et nyt ark, med data i, du skriver A1 og A2, men du mener vel A og B

Sub Makro1()
    Dim Data As Variant, I As Long, X As Long
    Data = Range("A1:B" & Range("A65536").End(xlUp).Row)
    For I = 1 To UBound(Data)
        For X = I + 1 To UBound(Data)
            If Data(I, 1) = Data(X, 1) And Not IsEmpty(Data(I, 1)) Then
                Data(I, 2) = Data(I, 2) + Data(X, 2)
                Data(X, 1) = Empty
            End If

        Next
    Next
    Worksheets.Add
    Range("A1:B" & UBound(Data)) = Data
    On Error Resume Next
    Range("A1:A" & UBound(Data)).SpecialCells(xlCellTypeBlanks).EntireRow.Delete
End Sub

Nu er jeg lidt ny med makro'er.

Det er korrekt at jeg mener A og B.

Hvordan får jeg makroen ind og kører den?

inde i excel, tryk ALT + F11, så er du i VBA editoren, Vælg Insert > Module, der skal du sætte den ind.

Du lukker igen med det øverste X, i øverste højre hjørne.

Du skal stå på arket, med data , inden du kører makroen.

takker

Du tog point selv, var det meningen ;-((

Beklager, Kom til at oprette et svar istedet for et tak for hjælpen som kommentar sorry