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

Flere spørgsmål fra Excel kategorien

Titel	Indlæg	Oprettet	Seneste aktivitet
Alder i Excel Af Nanarsi i Excel	1	I dag 10:14	I dag 10:47
Flere linier på faneblad Af Peder Lund Nielsen i Excel	0	I dag 09:00	-
Filter ud fra celleværdi på anden fane Af Butterfly i Excel	1	28/05/202409:31	28/05/202411:33
Hvis og sammentælling Af scholes i Excel	9	27/05/202421:46	28/05/202411:56
Sortere ikke blot fjern dubletter Af Klaus W i Excel	4	27/05/202421:18	28/05/202410:53

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

12:08

Historisk prisfald: Tesla Model 3 fås nu til længe ventet kup-pris

31/05

Test: Så godt dækker trådløs vidunder-wifi - bader hjemmets tre etager i lynhurtigt internet

31/05

VMware udvider samarbejdet med Microsoft og bevæger sig væk fra AWS

31/05

Rigsrevisionen kritiserer fire statslige myndigheder for dårlig it-sikkerhed: Har haft seks år til at løse problemet

31/05

Jeg havde simpelthen aldrig forestillet mig, at det nye Rejsekort ville minde om noget, der var udtænkt af IBM i 60’erne

31/05

Microsofts nye Windows 11-funktion kaldes ”en guldgrube for hackere”

31/05

"Jeg var den sjette medarbejder, der blev ansat dengang, i dag er vi over 1000"

31/05

Twoday rykker hovedkontoret til Nordhavn: Opsiger flere lejemål og samler kontorer

31/05

Rambøll har 18.000 ansatte i hele verden: Sådan har selskabets top-CIO Thomas Angelius skabt en slagkraftig it-organisation

31/05

TikTok på vej med kopi-app for at omgå amerikansk forbud

31/05

IBM fik boost af skilsmissen - Kyndryls image er i frit fald: Læs kundernes iskolde karakterer til 50 it-firmaer i vores nye temanummer

Vis flere artikler

IT-JOB

IT-Universitetet i København

Linux-systemadministrator til IT-afdelingen

AP Pension

AP Pension søger teamleder til vores GDPR-team

Itm8

Teknisk Driftsmedarbejder til Team Products

Netcompany A/S

Test Specialist

Udviklings- og Forenklingsstyrelsen

Kollega med skarpe analytiske evner søges

Vis flere jobs

Seneste spørgsmål Seneste aktivitet

I dag 16:05	win 10 vil ikke boote Af bb69 i Windows
I dag 11:20	Lenovo x390 Af tobberjas i PC
I dag 10:14	Alder i Excel Af Nanarsi i Excel
I dag 09:00	Flere linier på faneblad Af Peder Lund Nielsen i Excel
I går 21:35	Flash Player Af ErikHg i Andet software