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
Automatisk give specifikke point udfra placering Af jernrosen3 i Excel	5	19/12/202410:24	22/12/202413:14
Delvis udfyld en celle, baseret på en %-sats fra anden celle Af Brian Nielsen i Excel	2	16/12/202415:27	17/12/202422:03
Hjælp til formatering af excel ark. Af Nicholas i Excel	23	13/12/202412:32	18/12/202415:44
To x-akser men kun ét datasæt? Af TheLibrarian i Excel	1	10/12/202409:17	10/12/202410:35
Isolere en dato i tekst/tal Af jernrosen3 i Excel	7	09/12/202408:59	09/12/202410:38

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

18:35

Historisk million-bøde får Region Syddanmarks it-direktør til at efterlyse nye GDPR-retningslinjer

23/12

Til næste år kommer iPhone 17 – og ifølge rygtestrømmene vil den byde på tre nyheder

23/12

En af verdens største it-distributører dropper samarbejdet med Broadcom: Kunne ikke nå til enighed

23/12

Ser med 'stor alvor' på problemer med vand, varme og manglende kontrol i politiets datacenter

23/12

Brugere rammes af Microsoft-fejl: M365-produkter er på mystisk vis blevet deaktiveret

23/12

Her er dommen: Region Syddanmark skal betale historisk stor bøde for grove overtrædelser af GDPR

23/12

Vores vidensindsamling og demokratiske samtale påvirkes af helt lukkede beslutninger i en enkelt privat virksomhed

23/12

Overblik: Danske it-selskaber strømmer ind mod den centrale storby - og det handler ikke om penge

23/12

Banebrydende ChatGPT-opdatering er lige på trapperne: “Denne model vil være helt fantastisk til programmering”

23/12

Tivoli søger ny CIO: Kenneth Hartvig stopper efter tre år på posten

23/12

Vi ender med at bo i en taber-region, hvis ikke vi gør noget drastisk - her er digitaliseringsministerens plan

Vis flere artikler

IT-JOB

NOVAX A/S

Arkiveringskonsulent

Specsavers

Head of Marketing Technology – Northern Europe (NE)

Politiets Efterretningstjeneste

Bliv fullstack-udvikler i PET og få et arbejde med et højere formål

Capgemini Danmark A/S

Strategy & Transformation Consultant, Senior Manager frog

BEC

Service Integrator

Vis flere jobs

Seneste spørgsmål Seneste aktivitet

I dag 16:03	Fjern "Seneste" - "Hurtig adgang" Fra Windows 11 - Hvordan ? Af Ikke-ekspert i Windows
I går 14:43	html <Input.. Danske bogstaver Af pjotre i Andet software
I går 14:35	Brænde musik fra usb drev til cd Af Caso i Andet hardware
21/1222:16	Er "OneDrive" et "Must" ? Koster det penge ? Af Ikke-ekspert i Windows
21/1216:42	Windows Media Player - Hvilken version (Versioner) er gode til at afspille og kopiere ? Af Ikke-ekspert i Musik & videoafspillere