Fjern Dubletter

Her er en løsning som brugeren Bak har hjulpet mig med.
Se evt. http://www.eksperten.dk/spm/610103
Den kan tjekke for dubletter i én kolonne eller for dubletter i kolonne A til H.
Kan hurtigt rettes så den virker på de 6 kolonner (A til F)

Public Sub MakerDubletterRødeAtilF()
Dim rCell As Range
Dim lLastRow As Long
  Application.ScreenUpdating = False
  lLastRow = Range("A65536").End(xlUp).Row
  Range("A1:F" & lLastRow).AdvancedFilter Action:=xlFilterInPlace, Unique:=True
  For Each rCell In Range("A1:A" & lLastRow)
      If rCell.EntireRow.Hidden = True Then rCell.Interior.Color = vbRed
  Next
  ActiveSheet.ShowAllData
  Application.ScreenUpdating = True
End Sub

Public Sub FjernDubletterRøde()
col = ActiveCell.Column
RowCount = Cells(65536, col).End(xlUp).Row
Range(Cells(1, col), Cells(65536, col).End(xlUp)).Select
For I = 1 To RowCount
If Cells(I, col).Interior.ColorIndex = 3 Then
Cells(I, col).EntireRow.Delete Shift:=xlUp
I = I - 1
RowCount = RowCount - 1
End If
Next
End Sub

Quark

Skal ovenstående laves i en Makro, eller hvad

Jeg har selv fundet ud af det, man skal bare går ind i advanceret filer og vælge hele området i begge felter og sætte kryds i unikke poster, så fjerner den alle dubletter.

Men ellers tak for hjælpen

Jan

Ja det skal den.
Tryk Alt+F11 i regne arket, så åbner Visual Basic
I menu'en Insert, indsættes et Module
Kopier alt fra
Public Sub MakerDubletterRødeAtilF()
Til sidste
End Sub
Og sæt det ind.

Luk Visual Basic
Marker celle A1
og kør makro MakerDubletterRødeAtilF()
og der efter makro FjernDubletterRøde()

HUSK ALTID AT ARBEJDE I EN KOPI AF FILEN ;-)

Quark

Cool, problem løst ;-)