排序并忽略前导引号

Question

此 VBA 代码通过双击列标题按任意列对我的黑胶唱片收藏目录进行排序。

在我的古典黑胶唱片中，将近一半的歌曲标题都用引号引起来，因此当对该列进行排序时，它会按字母顺序对标题进行排序， 先是引号，然后是标题没有 em> 引号。

有没有办法添加一行代码，以便在排序时忽略前导引号，使"ac" 出现在ab 之后等等？

我现在的解决方法是使用隐藏的帮助列来去除引号，但我希望有一个更简洁的解决方案。

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    Dim KeyRange    As Range
    Dim ColumnCount As Integer
    
    'Clear previous sorts
    ActiveSheet.Sort.SortFields.Clear
    
    'Clear contents of hidden helper column
    Columns("K").ClearContents
    
    'Copy and Paste songname column to helper column
    Range("F:F").Copy Range("K:K")
    
    'Strip quotes from helper column
    Application.ScreenUpdating = FALSE
    ActiveSheet.Columns("K").Replace What:="""", Replacement:="", LookAt:=xlPart, MatchCase:=False
    Application.ScreenUpdating = TRUE
    
    'Set range of header columns that will sort on double-click
    ColumnCount = Range("A1:J1").Columns.Count
    Cancel = FALSE
    If Target.Row = 1 And Target.Column <= ColumnCount Then
        Cancel = TRUE
        
        'Get cell address of double-clicked header cell
        Set SortColumn = Range(Target.Address)
        
        'Set fill color of currently sorted column header
        Rows(1).Interior.Color = xlNone
        SortColumn.Interior.ColorIndex = 15
        
        With ActiveSheet
            'Sort by hidden column if songname column is double-clicked
            If SortColumn = Range("F1") Then
                Range("K1").Select
            Else
                SortColumn.Select
            End If
            'Sort by selected column followed by album, disc, then track
            .Sort.SortFields.Add Key:=Selection, _
            SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
            .Sort.SortFields.Add Key:=Range("E1"), _
                                 SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
            .Sort.SortFields.Add Key:=Range("B1"), _
                                 SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
            .Sort.SortFields.Add Key:=Range("C1"), _
                                 SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
        End With
        
        With ActiveSheet.Sort
            'Set flexible sort range to all data before reaching entirely empty row or column
            .SetRange Range("A1").CurrentRegion
            .Header = xlYes
            .MatchCase = FALSE
            .Orientation = xlTopToBottom
            .SortMethod = xlPinYin
            .Apply
        End With
        
    End If
End Sub

Answer 1

Excel 在对数据进行排序时一直存在这个问题。这是因为它使用 ASCII 字符代码来确定排序顺序（更多详细信息：https://exceljet.net/excel-functions/excel-char-function）。特殊字符和标点符号的 ASCII 值低于字母，因此它们排在最前面。这是设计使然。

排序时没有真正的“忽略”引号的方法，但解决此问题的一种方法是从您尝试排序的单元格中删除所有引号。您可以尝试在 SET 语句之后立即添加此代码：

ActiveSheet.KeyRange.Cells.Replace _
    What:="""", _
    Replacement:="", _
    LookAt:=xlPart, _
    MatchCase:=False

警告！！！这实际上会修改您所有的歌曲标题（它将删除该列中的双引号），因此请在尝试之前备份您的文件。

Answer 2

一种方法是用F数据添加一个虚拟列K，清除“，排序，擦除K列...

我相应地修复了代码

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    Dim KeyRange As Range
    Dim ColumnCount As Integer
    Dim dstRng as Range               ' placeholder 2 add column "K"
    
    ActiveSheet.Sort.SortFields.Clear
    
    ColumnCount = Range("A1:J281").Columns.Count
    Cancel = False
    
    If Target.Row = 1 And Target.Column <= ColumnCount Then
        Cancel = True
    
        Set KeyRange = Range(Target.Address)
        Set dstRng = KeyRange.Resize(, 1).Offset(, KeyRange.Columns.Count - 1) 'Added column K
        KeyRange.Resize(,1).Offset(,5).copy    ' copy column F
        dstRng.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
    :=False, Transpose:=False
        dstRng.Replace What:="""", Replacement:="", LookAt:=xlPart, _
    SearchOrder:=xlByColumns, MatchCase:=False, SearchFormat:=False, _
    ReplaceFormat:=False

        With ActiveSheet  ' columns F,B,C >> K,B,C
            .Sort.SortFields.Add Key:=KeyRange, _
              SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
            .Sort.SortFields.Add Key:=Range("K1"), _
              SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
            .Sort.SortFields.Add Key:=Range("B1"), _
              SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
            .Sort.SortFields.Add Key:=Range("C1"), _
              SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
        End With
    
        With ActiveSheet.Sort
            .SetRange Range("A1:K281")
            .Header = xlYes
            .MatchCase = False
            .Orientation = xlTopToBottom
            .SortMethod = xlPinYin
            .Apply
        End With
        dstRng.ClearContents

    End If
End Sub

始终在副本上运行 1st，保护原始 Excel 文件。

注意：我使用 KeyRange 进行处理，但可能需要一些 set SrcRng = Range("A1:J281")