Avatar billede bugger2 Nybegynder
11. januar 2010 - 11:01 Der er 6 kommentarer

Fjerne dubletter

Hejsa
jeg har et excelark med 2 kolonner, en med telefonnumre og en med efternavne.
Der er mange numre og mange efternavne. Nu kunne jeg tænke mig at få et udtræk på alle efternavne hvor dubletter er udeladt.
F.eks

12345678 Hansen
12312323 Jensen
43212343 Nielsen
54323421 Hansen
54234454 Sørensen

Her vil jeg gerne have en liste der hedde

Hansen
Jensen
Nielsen
Sørensen

Hvordan gør jeg det?
Tak for svar
/B
Avatar billede jkrons Professor
11. januar 2010 - 11:17 #1
Hvad er kriteriet for, om noget er en dublet. Fx har de to Hansen ovenfor, forskellige numre.
Avatar billede jkrons Professor
11. januar 2010 - 11:20 #2
Prøv under alle omstændiogheder at se på Avancereret filter. I 2003 og tidligere under menupunkter Data -Filter. I 2007 under fanen Data, knappen Avanceret i gruppen Sorter og Filtrer.
Avatar billede store-morten Ekspert
11. januar 2010 - 14:38 #3
Fjerner dubletter og opretter nyt ark (For en sikkerheds skyld)
Som jkrons skarpe øje så: 2 x Hansen forskellige nr.
Så her 2 versioner: A eller B


Sub FjernDubletKolA()
Application.ScreenUpdating = False
    StartArk = ActiveSheet.Name
   
    Columns("A:A").Select
    Range("A:A").AdvancedFilter Action:=xlFilterInPlace, Unique:=True
    Range("A:B").Select 'Ret evt. Kolonner der kopieres
    Selection.Copy
    Set NytArk = Sheets.Add
    NytArk.Name = "Ny liste kl " & Format(Time, "h mm ss")
    Range("A1").Select
    ActiveSheet.Paste
    Range("A1").Select
    Sheets(StartArk).Activate
    Range("A:A").AdvancedFilter Action:=xlFilterInPlace, Unique:=False
    Range("A1").Select
Application.ScreenUpdating = True
End Sub


Sub FjernDubletKolB()
Application.ScreenUpdating = False
    StartArk = ActiveSheet.Name

    Columns("B:B").Select
    Range("B:B").AdvancedFilter Action:=xlFilterInPlace, Unique:=True
    Range("A:B").Select 'Ret evt. Kolonner der kopieres
    Selection.Copy
    Set NytArk = Sheets.Add
    NytArk.Name = "Ny liste kl " & Format(Time, "h mm ss")
    Range("A1").Select
    ActiveSheet.Paste
    Range("A1").Select
    Sheets(StartArk).Activate
    Range("B:B").AdvancedFilter Action:=xlFilterInPlace, Unique:=False
    Range("A1").Select
Application.ScreenUpdating = True
End Sub
Avatar billede bugger2 Nybegynder
15. januar 2010 - 13:40 #4
En dublet er når efternavnet er ens. I eksemplet er Hansen dubleret
Avatar billede excelent Ekspert
15. januar 2010 - 19:44 #5
Hvis de er i A2:Bxx og der er overskrift i A1 og B1

Sub KopierUnikke1()
Range("B1:B" & Cells(65536, "B").End(xlUp).Row).AdvancedFilter xlFilterCopy, , [C1], True
End Sub
Avatar billede store-morten Ekspert
15. januar 2010 - 20:24 #6
Som i kommentar ¤3
Telefon nr: i kolonne A
Navne: i kolonne B

Sub FjernDubletKolB()
Application.ScreenUpdating = False
'Husker start Ark
    StartArk = ActiveSheet.Name
'Vælger kolonne med navne
    Columns("B:B").Select
'Sortere unikke navne
    Range("B:B").AdvancedFilter Action:=xlFilterInPlace, Unique:=True
'Vælger telefonnr og navne, Ret evt. Kolonner der kopieres
    Range("A:B").Select
'Kopiere unik liste
    Selection.Copy
'Opretter nyt Ark
    Set NytArk = Sheets.Add
'Navngir Arket "Ny liste kl" og "klokkeslet"
    NytArk.Name = "Ny liste kl " & Format(Time, "h mm ss")
'Markerer celle A1
    Range("A1").Select
'Indsætter unik liste
    ActiveSheet.Paste
'Markerer celle A1
    Range("A1").Select
'Går tilbage til start Ark
    Sheets(StartArk).Activate
'Fjerner sortering
    Range("B:B").AdvancedFilter Action:=xlFilterInPlace, Unique:=False
'Markerer celle A1
    Range("A1").Select
Application.ScreenUpdating = True
End Sub

Fjerner dubletter og opretter nyt ark (For en sikkerheds skyld)
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