01. juli 2006 - 12:29Der 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.
Der bliver investeret massivt i AI. Teknologien er mere tilgængelig end nogensinde, og ambitionerne er høje. Alligevel oplever mange virksomheder, at resultaterne udebliver.
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
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
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 brugerNybegynder
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.
