Excel中按PT-、PC-前缀及数字升序排序：宏或函数实现

当前B列内容为PT-、PC-前缀的条目混合无序，期望排序后所有PT-开头的条目按数字从小到大排列在前，接着是PC-开头的条目按数字从小到大排列（示例顺序：PT-1、PT-2、PT-3、PC-1、PC-2、PC-3）。以下提供两种实现方案：

方法一：辅助列+内置排序（无需VBA） #

• 插入辅助列（比如C列），在C1单元格输入公式：

  =IF(LEFT(B1,3)="PT-",1,IF(LEFT(B1,3)="PC-",2,3))&TEXT(--RIGHT(B1,LEN(B1)-3),"0000")
  

  公式说明：
  • 给PT-标记为1，PC-标记为2，其他内容标记为3，确保优先级顺序
  • 提取前缀后的数字并转为固定长度文本，避免数字排序时出现PT-10排在PT-2前的问题
• 选中B列和C列的数据区域，点击「数据」选项卡的「排序」按钮：
  • 主要关键字选择C列，排序依据选「单元格值」，次序选「升序」
  • 排序完成后可隐藏辅助列C列

方法二：VBA宏代码（一键排序） #

按Alt+F11打开VBA编辑器，插入新模块，粘贴以下代码：

Sub CustomSortPTPC()
    Dim ws As Worksheet
    Set ws = ActiveSheet ' 如需指定工作表，改为Set ws = ThisWorkbook.Worksheets("你的工作表名")
    
    ' 清空原有排序规则
    ws.Sort.SortFields.Clear
    
    ' 第一排序条件：按前缀优先级排序（PT- > PC- > 其他）
    ws.Sort.SortFields.Add Key:=ws.Range("B:B"), _
        SortOn:=xlSortOnValues, Order:=xlAscending, _
        CustomOrder:="PT-,PC-"
    
    ' 第二排序条件：按前缀后的数字升序排列
    ws.Sort.SortFields.Add Key:=ws.Range("B:B"), _
        SortOn:=xlSortOnValues, Order:=xlAscending, _
        DataOption:=xlSortTextAsNumbers
    
    ' 执行排序
    With ws.Sort
        .SetRange ws.Range("B1:B" & ws.Cells(ws.Rows.Count, "B").End(xlUp).Row)
        .Header = xlYes ' 若B列无表头，改为xlNo
        .MatchCase = False
        .Orientation = xlTopToBottom
        .Apply
    End With
End Sub

使用提示：

• 运行宏前确保目标工作表处于激活状态
• 若B列没有表头，将代码中的.Header = xlYes修改为.Header = xlNo
• 代码会自动识别B列最后一行数据，无需手动调整范围

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