如何通过VBA的Range.Sort方法，在不新增辅助列的情况下按AX列单元格首字母进行多列排序？

嘿，这个需求我之前折腾过好一会儿！直接用Range.Sort的默认参数确实做不到只按首字母排序，不过咱们可以换个思路——用Excel的自定义排序规则结合VBA来实现，完全不用加辅助列～

核心思路是：先创建一个包含A-Z（按需也可以加大小写）的自定义排序列表，让Excel在排序AX列时，只匹配单元格的首字母来分组，再结合你需要的J、L列完成多列排序。具体代码和步骤如下：

完整实现代码 #

Sub SortByFirstLetter()
    Dim ws As Worksheet
    Dim sortRange As Range
    Dim customList As Variant
    Dim customListNum As Long
    
    ' 绑定目标工作表和排序区域，和你原代码的范围一致
    Set ws = ThisWorkbook.Worksheets("Master")
    Set sortRange = ws.Range(ws.Cells(ws.Range("BorderFirstRow").Row + 1, "A"), _
                            ws.Cells(ws.Range("BorderLastRow").Row - 1, "ZZ"))
    
    ' 创建自定义排序序列：包含所有可能的首字母（这里用A-Z大写，不区分大小写）
    customList = Array("A", "B", "C", "D", "E", "F", "G", "H", "I", "J", "K", "L", "M", _
                       "N", "O", "P", "Q", "R", "S", "T", "U", "V", "W", "X", "Y", "Z")
    
    ' 检查自定义序列是否已存在，不存在就添加（避免重复添加报错）
    On Error Resume Next
    customListNum = Application.GetCustomListNum(customList)
    If Err.Number <> 0 Then
        Application.AddCustomList ListArray:=customList
        customListNum = Application.GetCustomListNum(customList)
    End If
    On Error GoTo 0
    
    ' 配置多列排序规则
    With sortRange.Sort
        .SortFields.Clear ' 清空原有排序规则
        ' 第一排序键：AX列，用自定义首字母序列排序
        .SortFields.Add Key:=ws.Columns("AX"), _
                        SortOn:=xlSortOnValues, _
                        Order:=xlAscending, _
                        CustomOrder:=customListNum
        ' 第二排序键：J列，常规升序
        .SortFields.Add Key:=ws.Columns("J"), _
                        SortOn:=xlSortOnValues, _
                        Order:=xlAscending
        ' 第三排序键：L列，常规升序
        .SortFields.Add Key:=ws.Columns("L"), _
                        SortOn:=xlSortOnValues, _
                        Order:=xlAscending
        ' 应用排序范围和基础设置
        .SetRange sortRange
        .Header = xlNo
        .Orientation = xlTopToBottom
        .Apply ' 执行排序
    End With
    
    ' 可选：如果不想在Excel中保留这个自定义序列，排序后可以删除它
    ' Application.DeleteCustomList customListNum
End Sub

关键细节说明 #

• 自定义序列的作用：Excel会按照这个序列的顺序来匹配AX列单元格的首字符，不管单元格后面跟着什么内容，都会先按首字母分组排序。
• 大小写兼容：如果你的AX列有小写字母开头的内容，这个代码也能正常工作（Excel自定义排序默认不区分大小写）；如果需要严格区分大小写，把自定义序列改成包含大小写字母即可（比如Array("A", "a", "B", "b", ...)）。
• 避免重复报错：代码里加了错误处理，防止重复添加同一个自定义序列导致的报错，很实用。

你之前查Range.Sort方法没找到对应参数，是因为直接用Key指定单元格区域时，默认只会按完整内容排序；但通过自定义排序序列，我们就绕开了这个限制，完美实现只按首字母排序的需求，还不用动原数据或加辅助列～

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