Udsøg 1 linie per hver duplet

Her er 3 forslag.

1. Du kan bruge avanceret filter og kun udtrække unikke poster.
2. Lav en pivottabel, med varenr som rækkeelement.
3. Du kan installere denne makro og lave en knap til den.

Sub listuniq()
Dim NoDupes As New Collection
Dim strCheck As String
Dim item
Dim Fra As Range, Til As Range, Cell As Range
Dim i As Long
    Set Fra = Application.InputBox("marker 1. celle i inputområde (een kolonne)", "Inputområde", , , , , , 8)
    Set Fra = Range(Cells(Fra.Row, Fra.Column), Cells(65536, Fra.Column).End(xlUp))
    Set Til = Application.InputBox("marker 1. celle i outputområde", "outputområde", , , , , , 8)
    On Error Resume Next
    For Each Cell In Fra
        NoDupes.Add Cell.Value, CStr(Cell.Value)
    Next Cell
    Err.Clear
    On Error GoTo 0
    For Each item In NoDupes
        Til.Offset(i, 0) = item
        i = i + 1
    Next
    Range(Til, Til.Offset(i - 1, 0)).Sort Key1:=Til, Order1:=xlAscending, Header:=xlGuess, _
        OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
End Sub

Alletiders Bak - filteret er virkelig brugervenlig - de andre kræver lige den mere forstand for den enkelte bruger. Tusind tak for hjælpen - vil du ligge svar ind!

Ja, godt det kan bruges.
Jeg mener selvfølgelig at makroen er bedre, men den har jeg jo også selv lavet :-)