嘿，我完全get到你的需求了——你要的不是常规按数值大小排序，而是按数字的字符串字典序来排列这些最多6位的数字，对吧？看你举的例子，常规排序会把2放在最前面，但你希望保持1开头的先出现，接着是2、3开头的，而且是按每一位字符依次比对的顺序来排。

我给你整理几个实用的方案，从简单到自动化都有：

最省心的内置功能方案（不用写代码） #

其实Excel自带的排序功能就能直接满足你的需求，步骤超简单：

• 选中你要排序的数字列
• 点击菜单栏的「数据」→「排序」
• 在弹出的排序对话框里，点击右下角的「选项」按钮
• 在排序选项里，选择「按字母排序」（这个选项会把数字当作文本处理，按字符的字典序比对）
• 确定后执行排序，就能得到你想要的结果啦！

用这个方法得到的排序结果就是你想要的：
10
1010
11
111
2
201
300100
3210

你提到的手动分隔符方案 #

你之前想的加.分隔每一位的思路是可行的，适合临时应急：

• 比如把10改成1.0，1010改成1.0.1.0，2改成2.
• 然后对处理后的列做升序排序，排序完成后再用替换功能把所有.删掉就行
• 不过这个方法需要手动处理数据，适合偶尔用一次的场景

自动化VBA宏方案（适合重复操作） #

如果你需要经常按这个规则排序，写个VBA宏就能一键搞定，步骤如下：

1. 选中要排序的单元格区域
2. 按下Alt + F11打开VBA编辑器
3. 右键点击你的工作簿名称→「插入」→「模块」
4. 把下面的代码粘贴进去：

Sub CustomStringSort()
    Dim rng As Range
    Dim arr() As Variant
    Dim i As Integer, j As Integer
    Dim temp As Variant
    
    ' 这里默认处理选中的区域，也可以改成固定范围比如Range("A1:A8")
    Set rng = Selection
    arr = rng.Value
    
    ' 按字符串字典序做冒泡排序
    For i = LBound(arr) To UBound(arr) - 1
        For j = i + 1 To UBound(arr)
            ' 把单元格内容转成字符串再比较，避免数值排序逻辑
            If CStr(arr(i, 1)) > CStr(arr(j, 1)) Then
                temp = arr(i, 1)
                arr(i, 1) = arr(j, 1)
                arr(j, 1) = temp
            End If
        Next j
    Next i
    
    ' 将排序后的内容写回单元格
    rng.Value = arr
End Sub

5. 回到Excel，按下Alt + F8，选择CustomStringSort并执行，就能快速完成排序啦

这个宏的核心是把每个数字转换成字符串来比较，完全遵循你要的字符顺序规则，不用手动修改任何数据，重复使用超方便。

备注：内容来源于stack exchange，提问作者esse jkr