CIO Tech Eksperten IT-JOB IT-Kurser Events Podcast Søg

Log ind eller opret profil

Du kan også logge ind via nedenstående tjenester

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

Synes godt om

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.

Synes godt om

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.

Synes godt om

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

Synes godt om

bugger2 Nybegynder

15. januar 2010 - 13:40 #4

En dublet er når efternavnet er ens. I eksemplet er Hansen dubleret

Synes godt om

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

Synes godt om

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)

Synes godt om

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.

Følg dette spørgsmål

Opret Preview

Excel kurser

Vi har et stort udvalg af Excel kurser. Find lige det kursus der passer dig lige her.

Se alle Excel kurser

Flere spørgsmål fra Excel kategorien

Titel	Indlæg	Oprettet	Seneste aktivitet
Identificér og hent del af tekststreng Af TheLibrarian i Excel	1	I går 16:49	I går 21:00
Ændre nuller til ovenstående tekst Af boro23 i Excel	4	20/11/202410:44	20/11/202412:08
HVIS med datoer Af HHA i Excel	6	20/11/202408:31	20/11/202412:51
Numerisk liste Af AND i Excel	8	19/11/202414:05	19/11/202423:31
Ændre nuller til ovenstående tal Af boro23 i Excel	3	19/11/202409:39	19/11/202411:51

Se alle spørgsmål i kategorien Opret spørgsmål

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

Alle kategorier på Eksperten

Seneste artiklerRSS