Entydige elementer!

Hvis du markerer området og opretter en pivot tabel vil du få en liste med de entydige elementer. Du kan så få pivottabellen til at vise hvor mange gange de enkelte elementer forekommer.

Du har ret i, at det kan gøres på en nemmere måde. Den er følgende:

Markér din liste
Gå ind i menuen under DATA -> FILTER -> AVANCERET FILTER
Afmærk \"Unikke poster\" og vælg, om listen skal vises lokalt eller kopieres til et andet sted.
Tryk \"OK\"

Det må gerne være vba-kode

Ok, den kommer så her:

Public Sub DeleteDuplicateRows()
\'
\' Marker det område, hvor du ønsker at slette dublet-rækker og kør makroen
\'
Dim r As Long
Dim N As Long
Dim V As Variant
Dim Rng As Range

On Error GoTo EndMacro
Application.ScreenUpdating = False
Application.Calculation = xlCalculationManual

If Selection.Rows.Count > 1 Then
    Set Rng = Selection
Else
    Set Rng = ActiveSheet.UsedRange.Rows
End If

N = 0
For r = Rng.Rows.Count To 1 Step -1
    V = Rng.Cells(r, 1).Value
    If Application.WorksheetFunction.CountIf(Rng.Columns(1), V) > 1 Then
        Rng.Rows(r).EntireRow.Delete
        N = N + 1
    End If
Next r

EndMacro:

Application.ScreenUpdating = True
Application.Calculation = xlCalculationAutomatic

End Sub

Tak!