I denne artikkelen vil vi lage en makro for å fjerne dupliserte poster fra dataene.
Rådata består av ansattedata, som inkluderer navn, alder og kjønn.
Logisk forklaring
Vi har laget en makro “RemovingDuplicate” for å fjerne dupliserte poster fra dataene. Denne makroen kilder først dataene i en sekvens og foretar deretter sammenligning mellom verdier for to påfølgende rader for å finne ut dupliserte poster.
Kode forklaring
ActiveSheet.Sort.SortFields.Clear
Koden ovenfor brukes til å fjerne tidligere sortering av dataene.
ActiveSheet.Sort.SortFields.Add -nøkkel: = Range (Selection.Address), _
SortOn: = xlSortOnValues, Order: = xlAscending, DataOption: = xlSortTextAsNumbers
Koden ovenfor brukes til å sortere dataene i den første kolonnen i stigende rekkefølge.
For i = ActiveSheet.Cells (Rows.Count, Selection.Column) .End (xlUp) .Row To Selection.Row + 1 Trinn -1
Koden ovenfor brukes til å bruke omvendt looping, fra siste rad til den valgte raden.
ActiveSheet.Rows (i). Slett skift: = xlUp
Koden ovenfor brukes til å slette en rad og flytte markøren til den øvre raden.
Følg koden nedenfor
Option Explicit Sub RemovingDuplicate () 'Declaring variables Dim i As Long' Deaktivering av skjermoppdateringer Application.ScreenUpdating = Falsk Range ("A11"). Velg ActiveSheet.Sort.SortFields.Clear 'Sortering av data i stigende rekkefølge ActiveSheet.Sort.SortFields.Add Nøkkel: = Range (Selection.Address), _ SortOn: = xlSortOnValues, Order: = xlAscending, DataOption: = xlSortTextAsNumbers With ActiveSheet.Sort .SetRange Range (Selection.Offset (1, 0), ActiveSheet.Cells (Rows.Count, Selection.End (xlToRight) .Column) .End (xlUp)) .Header = xlNo .MatchCase = False .Orientation = xlTopToBottom .SortMethod = xlPinYin. Påfør Slutt med 'Looping through all the celler For i = ActiveSheet.Cells (Rows. Count, Selection.Column. (i - 1), Selection.Column. dates Application.ScreenUpdating = True End Sub
Hvis du likte denne bloggen, del den med vennene dine på Facebook. Du kan også følge oss på Twitter og Facebook.
Vi vil gjerne høre fra deg, gi oss beskjed om hvordan vi kan forbedre arbeidet vårt og gjøre det bedre for deg. Skriv til oss på e -post