Excel VBA双击表头排序时忽略前导引号的实现方案咨询

优化后完整代码 #

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    Dim ColumnCount As Integer
    Dim SortColumn As Range
    Dim TempCol As Integer
    
    '清除原有排序规则
    ActiveSheet.Sort.SortFields.Clear
    
    '设置可双击排序的表头范围
    ColumnCount = Range("A1:J1").Columns.Count
    Cancel = False
    If Target.Row = 1 And Target.Column <= ColumnCount Then
        Cancel = True
        Application.ScreenUpdating = False
        
        '获取双击的表头列
        Set SortColumn = Range(Target.Address)
        
        '更新表头高亮样式
        Rows(1).Interior.Color = xlNone
        SortColumn.Interior.ColorIndex = 15
        
        '处理歌曲名称列特殊排序需求：插入临时列存储去引号后的内容
        If SortColumn.Address = Range("F1").Address Then
            Columns("F:F").Insert Shift:=xlToRight
            TempCol = 6 '临时列插入后列号为6
            '将原F列（插入列后变为G列）去引号后写入临时列
            Columns(TempCol).Formula = "=SUBSTITUTE(G1,"""","""")"
            Columns(TempCol).Value = Columns(TempCol).Value
            Set SortColumn = Cells(1, TempCol)
        End If
        
        '添加排序规则：主规则+次级规则（专辑→碟号→轨号）
        With ActiveSheet.Sort
            .SortFields.Add Key:=SortColumn, SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
            .SortFields.Add Key:=Range("E1"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
            .SortFields.Add Key:=Range("B1"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
            .SortFields.Add Key:=Range("C1"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
            
            '执行排序
            .SetRange Range("A1").CurrentRegion
            .Header = xlYes
            .MatchCase = False
            .Orientation = xlTopToBottom
            .SortMethod = xlPinYin
            .Apply
        End With
        
        '删除临时辅助列（如果之前插入过）
        If TempCol <> 0 Then
            Columns(TempCol).Delete
        End If
        
        Application.ScreenUpdating = True
    End If
End Sub

方案说明 #

• 全程关闭屏幕更新，插入和删除临时列的操作用户完全无感知，不存在固定辅助列，工作表结构和原有完全一致
• 临时列仅在需要按歌曲名称列排序时创建，排序完成后立即删除，不会残留任何多余数据
• 完全保留原始歌曲名称中的引号内容，不会修改原始数据
• 其余逻辑和原代码完全兼容，原有使用习惯不受影响

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