dubbele rijen verbergen

[zoomer]

Dag,

Ik heb in excel een lijst met daarin een aantal dubbele rijen:

vb van een onderdeel uit de lijst:

Hardware Printer Matrix
Hardware Printer Multifunctioneel
Hardware Scanner
Hardware Server
Hardware Server
Hardware Server
Hardware Server
Hardware Tablet
Hardware Tablet
Hardware Toetsenbord

Nu wil ik één keer alle dubbele rijen verwijderen. In sql is dat bijv. een 'select distinct'. Maar hoe gaat dit in Excel? Dat moet toch simpel kunnen?

Uitkomst:
Hardware Printer Matrix
Hardware Printer Multifunctioneel
Hardware Scanner
Hardware Server
Hardware Tablet
Hardware Toetsenbord

 

[Jan van Asseldonk]

Met onderstaande macro kan dit.

Sub DeleteDubbeleRijen()
Worksheets("Blad1").Range("A1").Sort Key1:=Worksheets("Blad1").Range("A1")
Set currentCell = Worksheets("Blad1").Range("A1")
Do While Not IsEmpty(currentCell)
Set nextCell = currentCell.Offset(1, 0)
If nextCell.Value = currentCell.Value Then
currentCell.EntireRow.Interior.ColorIndex = 3
' currentCell.EntireRow.Delete
End If
Set currentCell = nextCell
Loop
End Sub

Staat nu zo ingesteld dat ze gekleurd worden. Wil je ze meteen verwijderen dan ' weghalen. Eventueel Delete vervangen door Hide als je ze alleen wilt verbergen.


Kijk ook eens naar de mogelijkheden van uitgebreid filter onder Data, Filter in het menu.
Misschien is die beter van toepassing.