Sortere talkolonne

Sub Makro1()

    With ActiveWorkbook.ActiveSheet.Sort
        .SetRange Selection
        .Header = xlYes
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
 
End Sub

NB.
den sorterer kun den ene kolonne, så de andre følger ikke med

Hvis du har dine data i A1:A7 kan du prøve denne matrixformel i B1:

=SMALL(--(LEFT($A$1:$A$7;2)&RIGHT($A$1:$A$7;2));ROWS($1:1))
Kopier ned.

på dansk:

=MINDSTE(--(VENSTRE($A$1:$A$7;2)&HØJRE($A$1:$A$7;2));RÆKKER($1:1))

Brug format 00-00

TAk til begge. Xl-enthusiast tror jeg, jeg kan klare.
Hilsen fra en anden xl-elsker.