对列字母数字和数字升序进行排序，然后需要字母数字数据顶部和下一个数字数据

Question

col A
gsdgdf2
jhgd742   
2375832
9879872

排序后

col A
2375832
9879872
gsdgdf2
jhgd742

我需要VBA代码首先显示字母数字，然后按数字显示数字，如下所示：

gsdgdf2
jhgd742
2375832
9879872

Answer 1

您可以通过选择要排序的列来使用this code：

Sub Sort_Special()
    Dim i As Long
    With Selection
        For i = 0 To 9
            .Replace What:=i, Replacement:="ZZZZZ" & i, LookAt:=xlPart, MatchCase:=False
        Next i
        .Sort Key1:=.Cells(1), Order1:=xlAscending, Header:=xlNo
        For i = 0 To 9
            .Replace What:="ZZZZZ", Replacement:="", LookAt:=xlPart, MatchCase:=False
        Next i
    End With
End Sub