Excel中1.2.3格式层级值精准排序求助（无需新增列）

针对你遇到的Excel内置排序对多位数层级值排序异常的问题，提供两种无需拆分列的解决方案：

方案1：VBA一键排序（推荐） #

通过VBA宏实现一键按层级数值排序，无需新增列，适合普通用户操作：

1. 按Alt+F11打开VBA编辑器
2. 右键目标工作簿 → 插入 → 模块
3. 粘贴以下代码（根据实际数据范围修改标注部分）：

Sub SortHierarchicalValues()
    Dim targetCol As String: targetCol = "A" ' 修改为你的目标列（如"C"）
    Dim dataStartRow As Long: dataStartRow = 1 ' 含表头填1，不含填2
    Dim lastCol As String: lastCol = "E" ' 修改为数据区域的最后一列
    
    Dim ws As Worksheet, lastRow As Long, dataRange As Range
    Set ws = ActiveSheet
    lastRow = ws.Cells(ws.Rows.Count, targetCol).End(xlUp).Row
    Set dataRange = ws.Range(targetCol & dataStartRow & ":" & lastCol & lastRow)
    
    With ws.Sort
        .SortFields.Clear
        ' 按层级三段数值排序
        .SortFields.Add Key:=ws.Range(targetCol & dataStartRow & ":" & targetCol & lastRow), _
            SortOn:=xlSortOnValues, Order:=xlAscending, _
            CustomFormula:="=VALUE(MID(SUBSTITUTE(" & targetCol & dataStartRow & ",""."",REPT("" "",20)),1,20))"
        .SortFields.Add Key:=ws.Range(targetCol & dataStartRow & ":" & targetCol & lastRow), _
            SortOn:=xlSortOnValues, Order:=xlAscending, _
            CustomFormula:="=VALUE(MID(SUBSTITUTE(" & targetCol & dataStartRow & ",""."",REPT("" "",20)),21,20))"
        .SortFields.Add Key:=ws.Range(targetCol & dataStartRow & ":" & targetCol & lastRow), _
            SortOn:=xlSortOnValues, Order:=xlAscending, _
            CustomFormula:="=VALUE(MID(SUBSTITUTE(" & targetCol & dataStartRow & ",""."",REPT("" "",20)),41,20))"
        .SetRange dataRange
        .Header = IIf(dataStartRow = 1, xlYes, xlNo)
        .MatchCase = False
        .Orientation = xlTopToBottom
        .Apply
    End With
End Sub

4. 添加一键按钮：
   • 切换到Excel界面，点击「开发工具」→ 插入 → 按钮（表单控件）
   • 绘制按钮后选择刚创建的SortHierarchicalValues宏，点击确定即可

原理：将每个层级段用空格填充至固定长度，转换为数值后按三段依次排序，实现自然排序效果。

方案2：数组公式生成排序结果（无宏环境适用） #

若无法启用宏，可在空白列输入数组公式生成排序后的层级值：

=INDEX($A$2:$A$6,MATCH(SMALL(VALUE(LEFT(SUBSTITUTE($A$2:$A$6,".",REPT(" ",20)),60)),ROW(A1)),VALUE(LEFT(SUBSTITUTE($A$2:$A$6,".",REPT(" ",20)),60)),0))

• 替换$A$2:$A$6为你的目标数据区域（不含表头）
• 输入后按Ctrl+Shift+Enter（Excel 365/2021直接按Enter），下拉填充得到排序结果

原理：将层级值转换为等长字符串后转数值，通过SMALL和MATCH定位排序后的位置。

内容的提问来源于stack exchange，提问作者Philip N