Avatar billede janradoor Nybegynder
08. juli 2008 - 12:55 Der er 5 kommentarer

Fjern Dubletter

Jeg har mange data ca. 45.000 rækker i 6 kolonner, men har mange der er ens, hvor jeg gerne vil fjerne dubletterne, hvordan gør jeg det.

Hvis alle kolonner er ens eller hvis bare en af kolonerne er ens.

På forhånd mange tak for hjælpen

Jan
Avatar billede quark-8382 Nybegynder
08. juli 2008 - 13:16 #1
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
Avatar billede janradoor Nybegynder
08. juli 2008 - 13:26 #2
Skal ovenstående laves i en Makro, eller hvad
Avatar billede janradoor Nybegynder
08. juli 2008 - 13:36 #3
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
Avatar billede quark-8382 Nybegynder
08. juli 2008 - 13:39 #4
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
Avatar billede quark-8382 Nybegynder
08. juli 2008 - 13:40 #5
Cool, problem løst ;-)
Avatar billede Ny bruger Nybegynder

Din løsning...

Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.

Loading billede Opret Preview
Kategori
Vi har et stort udvalg af Excel kurser. Find lige det kursus der passer dig lige her.

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Du kan også logge ind via nedenstående tjenester