cow18
Terugkerende gebruiker
- Lid geworden
- 24 mei 2008
- Berichten
- 4.277
- Besturingssysteem
- Windows
- Office versie
- Excel365
ik zt eventjes te knoeien om een array aan te maken om de duplicates te verwijderen in een array en het wilde maar niet lukken.
Toen vond ik deze macro, waarbij er een array cols wordt aangemaakt en in de Removeduplicates-regel wordt die dan tussen haakjes geplaatst.
Dat bleek de clue te zijn, maar waarom ? Wat gebeurt er dan eigenlijk intern ?
Toen vond ik deze macro, waarbij er een array cols wordt aangemaakt en in de Removeduplicates-regel wordt die dan tussen haakjes geplaatst.
Dat bleek de clue te zijn, maar waarom ? Wat gebeurt er dan eigenlijk intern ?
Code:
Sub DeDupeCols() 'Excel VBA to remove duplicates from all columns
Dim rng As Range
Dim cols As Variant
Dim i As Integer
Set rng=[A1].CurrentRegion
ReDim cols(0 To rng.Columns.Count - 1)
For i=0 To UBound(cols) 'Loop for all columns
cols(i)=i + 1
Next i
rng.RemoveDuplicates Columns:=(cols), Header:=xlYes
End Sub