Hur gör man för att sortera ut dubbletter i ett excelark??

tacksam för hjälp mathias

Det finns något som heter autofilter - men vågar inte gå in på detaljerna. Tror du markerar all data, därefter i menyn - använd autofilter.

Och vad menar du med dubletter i excelark då ??

Jag gjorde en fråga i Excel-Hjälpen på ordet DUBLETTER, samt SORTERA UT DUBLETTER

Detta blev jag inte klokare av.

Autofilter hjälper inte i sig i det här fallet.

Ett effektivt sätt är att först sortera kolumnen med dubletter, infoga en kolumn - skriv =(B1=B2) i A2 och fyll den hela vägen ner. Ta fram autofilter och välj ut dem med sant i kolumn a. Då får du fram dubletter.

En lite bättre formel (du får inte med den förstai varje dublett par annars) är
=ELLER((B1=B2); (B2=B3))
eller
=OR((B1=B2); (B2=B3))

Den här koden plockar ut alla unika värden ur kolumn B1:B105
och skriver ned dem i kolumn nr 10
sorterade åt endera eller andra hållet
beroende på vilken sub du anropar huvudsuben med

Vet inte om du är ute efter detta men det kanske hjälper
Som du ser är koden ursprungligen gjord för att fylla
en listbox i en dialogruta med unika värden


<code>
Sub Sortera_Upp()
RemoveDuplicates_test 1
End Sub

Sub Sortera_Ned()
RemoveDuplicates_test 0
End Sub


Sub RemoveDuplicates_test(DESC)
Dim AllCells As Range, Cell As Range
Dim NoDupes As New Collection
Dim i As Integer, j As Integer
Dim Swap1, Swap2, Item


' The items are in B1:B105
Set AllCells = Range("B1:B105")

' The next statement ignores the error caused
' by attempting to add a duplicate key to the collection.
' The duplicate is not added - which is just what we want!
On Error Resume Next
For Each Cell In AllCells
NoDupes.Add Cell.Value, CStr(Cell.Value)
' Note: the 2nd argument (key) for the Add method must be a string
Next Cell

' Resume normal error handling
On Error GoTo 0

' Update the labels on UserForm1
''''' With UserForm1_uniq
''''' .Label1.Caption = "Total Items: " & AllCells.Count
''''' .Label2.Caption = "Unique Items: " & NoDupes.Count
''''' End With

' Sort the collection (optional)
For i = 1 To NoDupes.Count - 1
For j = i + 1 To NoDupes.Count

If DESC = 1 Then
If NoDupes(i) > NoDupes(j) Then
Swap1 = NoDupes(i)
Swap2 = NoDupes(j)
NoDupes.Add Swap1, before:=j
NoDupes.Add Swap2, before:=i
NoDupes.Remove i + 1
NoDupes.Remove j + 1
End If
Else
If NoDupes(i) < NoDupes(j) Then
Swap1 = NoDupes(i)
Swap2 = NoDupes(j)
NoDupes.Add Swap1, before:=j
NoDupes.Add Swap2, before:=i
NoDupes.Remove i + 1
NoDupes.Remove j + 1
End If
End If

Next j
Next i

' Add the sorted, non-duplicated items to a ListBox
Dim CellsRow
CellsRow = 0
For Each Item In NoDupes
''''' UserForm1_uniq.ListBox1.AddItem Item
ActiveSheet.Cells(CellsRow + 1, 10) = Item
CellsRow = CellsRow + 1
Next Item

' Show the UserForm
''''''' UserForm1_uniq.Show
End Sub

</code>

Hej,

Varför VBA?

Enklast är att:

- Infoga en cell längst upp och ange ett namn för listan, t ex Lista samt formater
texten till fet.
- Markera hela listan in
- Kommandot Data | Avancerat filter
- I dialogrutan gör du dina val och bockar för alternativet Enbart unika poster.