Notifikationer

Markér alle som læst Log ud

club-p Nybegynder

01. juli 2006 - 12:29 Der er 3 kommentarer og
1 løsning

Sletning af gentagelser (8 cifret nummere)

Hej Eksperter..

Jeg har 5 word dokumenter liggende med forskellige lister med telefon nummere på kunder. Alle listerne indeholder over 200 mobilnummer. Telefonnummer liggene alle simikolon sepereret så de ligger således: "51214785; 12121458; 23658974; 21458741; 21458745; osv." i mit word dokument.

Jeg vil nu sende en sms ud til alle disse lister problemet er bare at nogle af nummerene ligger i to forskellige lister og derved vil de modtage sms beskeden 2 gange. Så mit spørgsmål er hvordan laver jeg en makro i excel som kan gå ind og fjerne gentagelser.

Jeg havde tænkt mig at tage alle mine 5 word dokumenter og kopirere ind i excel og herefter køre en makro som kan fjerne alle gentagelser på en gang men hvordan skal den se ud.

Synes godt om

oyejo Nybegynder

02. juli 2006 - 16:00 #1

Hvis alle dine telefonnummere står i kollonne A, kan du prøve denne!

Public Sub Test()
For a = 1 To Range("A" & Rows.Count).End(xlUp).Row
If a = Range("A" & Rows.Count).End(xlUp).Row Then
Exit Sub
End If
i = 0
For c = a + 1 To Range("A" & Rows.Count).End(xlUp).Row
If Cells(a, 1).Value = Cells(c - i, 1).Value Then
Cells(c - i, 1).Delete Shift:=xlUp
i = i + 1
End If
Next
Next
End Sub

Synes godt om

oyejo Nybegynder

02. juli 2006 - 16:08 #2

Hvis du har navn i kolonne A og nummer i kollonne B
vil denne slette både nummer og navn hvis nummer er likt

Public Sub Test2()
For a = 1 To Range("B" & Rows.Count).End(xlUp).Row
If a = Range("B" & Rows.Count).End(xlUp).Row Then
Exit Sub
End If
i = 0
For c = a + 1 To Range("B" & Rows.Count).End(xlUp).Row
If Cells(a, 2).Value = Cells(c - i, 2).Value Then
Cells(c - i, 1).Resize(1, 2).Delete Shift:=xlUp
i = i + 1
End If
Next
Next
End Sub

Synes godt om

club-p Nybegynder

26. juni 2008 - 14:30 #3

Jeg lukker igen. Da inden har placeret et svar men kun kommentar tager jeg pointene selv - skriv hvis du er uenige så laver jeg det om :o)

Synes godt om

oyejo Nybegynder

26. juni 2008 - 15:43 #4

Det er ikke så nøye, men hvis du har benyttet en av løsningene og er fornøyd med resultatet.
Da bør du generelt be om et svar fra vedkommede, slik at du får gitt point.

Mest for din egen del, for det kan hende du trenger hjelp senere. Det er lett å klikke på ditt brukernavn for å se om du pleier å gi points.

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

Excel kurser for alle niveauer og behov – find det kursus, der passer til dig

Se alle Excel kurser

Flere spørgsmål fra Excel kategorien

Titel	Indlæg	Oprettet	Seneste aktivitet
Kan Excel selv beregne alder? Af leahcim i Excel	4	I går 10:24	I går 12:26
problem med mailbesked Af Pestilensen i Excel	3	24/08/202611:16	28/08/202612:55
Sætte billeder ind i google sheets ark ud fra elev nummer Af lurup i Excel	16	17/08/202615:14	27/08/202601:20
Gemme største værdi Af Lemming@privat.dk i Excel	2	07/08/202622:13	08/08/202609:03
Forskel mellem klokkeslet start aften slut næste morgen Af krasmussen i Excel	13	24/07/202611:08	03/08/202618:42

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