Buongiorno a tutti.
Ho una semplice (ma complicata per me) domanda.
Devo ordinare in Excel dei dati misti tra lettere e numeri, ma l'ordinamento standard non fa al caso mio: mi spiego.

Da una serie di dati, ad esempio 1 2 3 4 5 11 50 111 1A 1B 1C 2A 2B 2C 11A 11B etc... l'ordinamento standard mi propone questa sequenza: 1 11 111 11A 11B 1A 1B 1B 2 2A 2B 2C 3 4 5 50.
Quella di cui io ho invece bisogno è prettamente numerica, come se la lettera dopo il numero non contasse, ovvero: 1 1A 1B 1C 2 2A 2B 2C 3 4 5 11 11A 11B 50 111.

Mi hanno detto che con una macro è possibile farlo, ma non ci ho mai messo mano. Chi di voi risolve per primo il mio dilemma?
Grazie a tutti per la collaborazione.

salve
una macro potrebbe essere quella che segue:
La macro considera che i valori da ordinare siano nella colonna A e che le colonne B e C siano vuote perchè vengono utilizzate come appoggio dalla macro. Quindi per vedere il funzionamento prova a inserire in un foglio vuoto (Foglio1) i valori di prova
1 2 3 4 5 11 50 111 1A 1B 1C 2A 2B 2C 11A 11B da cella A1 in giù esegui la macro e vedi se il risultato è quello voluto.

Sub OrdinaNumeriLettere()
Dim Area As Range, AreaO As Range
Dim Cl As Range, i As Long, ABC As String, NR As String
With Sheets("foglio1")
Set Area = .Range("a1", .Range("a1").End(xlDown))
For Each Cl In Area
For i = 1 To Len(Cl)
If IsNumeric(Mid(Cl, i, 1)) Then
NR = NR & Mid(Cl, i, 1)
Else
ABC = ABC & Mid(Cl, i, 1)
End If
Next
Cl.Offset(0, 1).Value = NR
Cl.Offset(0, 2).Value = ABC
NR = ""
ABC = ""
Next
Set Area = Nothing
Set Area = .Range("B1", .Range("d1").End(xlDown))
Area.Sort Key1:=Range("B1"), Order1:=xlAscending

Set AreaO = .Range("B1", .Range("B1").End(xlDown))
For Each Cl In AreaO
If Cl.Offset(0, 1).Value <> "" Then
Cl.Offset(0, -1).Value = Cl.Value & Cl.Offset(0, 1).Value
Else
Cl.Offset(0, -1).Value = Cl.Value
End If
Next Cl
Area.ClearContents
Set Area = Nothing
Set AreaO = Nothing
End With
End Sub

saluti
Andrea

---

Salve
sarebbe utile postare sempre le domande spiegando tutto senza limitarsi a delle esemplificazioni che poi si dimostrano
non pertinenti o incomplete.
Prova ad eseguire questo codice. (In questo caso la colonna d'appoggio è la colonna "C")


Sub OrdinaNumeriLettere()
Dim Area As Range
Dim Cl As Range, i As Long, NR As String
Dim ctr As Boolean
With Sheets("foglio1")
Set Area = .Range("a1", .Range("a1").End(xlDown))
For Each Cl In Area
For i = 1 To Len(Cl)
If i = 1 And Not IsNumeric(Mid(Cl, i, 1)) Then
Cl.Offset(0, 2).Value = Cl.Value
ctr = 1
Exit For
End If
If IsNumeric(Mid(Cl, i, 1)) Then
NR = NR & Mid(Cl, i, 1)
End If
Next
If Not ctr Then
Cl.Offset(0, 2).Value = NR
NR = ""
End If
ctr = 0
Next
Set Area = Nothing
Set Area = .Range("A1", .Range("C1").End(xlDown))
Area.Sort Key1:=Range("C1"), Order1:=xlAscending
Columns(3).ClearContents
Set Area = Nothing
End With
End Sub

saluti
Andrea

---