18. juli 2003 - 15:39Der er
11 kommentarer og 1 løsning
Sletning af 2 sidste nummere i kolonne
Hej folkens
Hvad er den smarteste måde at fjerne de 2 sidste nummere for en hel kolonne? Eksempel: 5553589 Står i en kolonne. Der skal de 2 sidste nummere så fjernes, eller erstattes med xx, så der enten står 55535, eller 55535xx. Det vil være helt tilfældige tal der står i kolonner, med varierende antal ciffer.
Forudsat at tellene står i A-kolonnen indtaster du denne formel i en ny kolonne: =AFKORT(A1;-2)/100
Formlen kopieres nedad til hele området.
Hvis du efterfølgende vil have udskiftet de oprindelige værdier med de nye, kopierer du de nye værdier - markerer området med de oprindelige værdier, og vælger Rediger->Indsæt speciel, og vælg Værdier
Du kan også lige få en makro der kan gøre det. Marker området / kolonnen der der ændres og kør så makroen.
Option Base 1
Sub Afkort2() Dim vrng As Variant Dim x As Long, y As Long 'læs ind vrng = Selection 'behandl array For x = 1 To UBound(vrng, 1) For y = 1 To UBound(vrng, 2) If Len(vrng(x, y)) > 2 Then _ vrng(x, y) = Left(vrng(x, y), Len(vrng(x, y)) - 2) '& "xx" Next y Next 'skriv tilbage Selection = vrng End Sub
hehe ja sådan kan det gå.. Jeg takker mange gange for svarene, kanont!
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.