Hjælp til sortering af tal med bogstaver i excel !

er det altid samme format? hvis du har værdier i kolonne A
så kan du skille dem ad (smide A-1) over i kolonne B
tekst til kolonner,- vælg fast bredde
sætte skillelinie ved A
i kolonne c indsætter du denne: =A2&B2 for at samle dem igen

husk lige at sortere når de er delt,- først efter kolonne B derefter kolonne A stigende

ja okay, men jeg glemte nok at fortælle at der er tale om 10000 linier som indeholder disse tal, så det er ikke nogen jeg selv indtaster.... så dit svar kan desværre ikke bruges...

helt ok med mig,- men om det så var 65000 linier ville det ikke være noget problem

okay, så forstår jeg ikke det der med "tekst til kolonne,- fast bredde" ?

Nu er jeg helt med, mange tak for hjælpen, jeg har bare splittet dem op i tre kolonner med "-" tegnet, takker

Jeg er ny her men, kan du ikke lave et svar sådan at jeg kan give dig nogle points, ellers kan jeg ikke lige se hvordan jeg gør det...

ok du skal markere mit navn i den lille box, og derefter klikke accepter

Er lidt for sent på den - men da jeg nu har skrevet lidt VBA - så får du det alligevel - her sker det helt automatisk:

Rem Placeres i ThisWorkbook
Rem =======================
Dim antalRækker
Const kildeKol = 1                                  'kolonne for kilde
Const SortKol = 3                                  'kolonne for sorteret resultat
Sub workbook_activate()
    With ActiveWorkbook.Sheets(1)
        .Cells(kildeKol, 1).Select
        antalRækker = ActiveCell.SpecialCells(xlLastCell).Row
    End With
   
    opbygTabel
End Sub
Private Sub opbygTabel()
Dim r, count
    count = 1

Rem Adskil
    With ActiveWorkbook.Sheets(1)
        .Cells(kildeKol, 1).Select
        For r = 1 To antalRækker
            If .Cells(r, kildeKol) <> "" Then
                .Cells(r, SortKol) = Right(.Cells(r, kildeKol), 3) + " " + Left(.Cells(r, kildeKol), 8)
                count = count + 1
            End If
        Next r
    End With

Rem Sorter - her er C angivet direkte (sortKol)
    Range("c1:c1" + CStr(count - 1)).Sort Key1:=Range("C1"), Order1:=xlAscending, Header:=xlGuess, OrderCustom:=1, MatchCase _
        :=False, Orientation:=xlTopToBottom, DataOption1:=xlSortNormal, _
        DataOption2:=xlSortNormal

Rem Sæt på plads
    With ActiveWorkbook.Sheets(1)
        .Cells(1, SortKol).Select
        For r = 1 To antalRækker
            If .Cells(r, SortKol) <> "" Then
                .Cells(r, SortKol) = Mid(.Cells(r, SortKol), 5) + "-" + Left(.Cells(r, SortKol), 3)
                count = count + 1
            End If
        Next r
    End With
End Sub