排序并忽略前導引號

此 VBA 代碼通過雙擊列標題按任何列對我的乙烯基收藏目錄進行排序。

對于我的古典黑膠唱片，將近一半的歌曲標題都在引號中，因此當對該列進行排序時，它會先按字母順序對帶引號的標題進行排序，然后是不帶引號的標題。

有沒有一種方法添加一行代碼，這樣排序，這樣，當它會忽略領先引號"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

uj5u.com熱心網友回復：

Excel在對資料進行排序時一直存在這個問題。這是因為它使用 ASCII 字符代碼來確定排序順序（這里有更多詳細資訊：https : //exceljet.net/excel-functions/excel-char-function）。特殊字符和標點符號的 ASCII 值低于字母，因此它們排在最前面。這是設計使然。

排序時沒有真正的方法可以“忽略”引號，但解決此問題的一種方法是從您嘗試排序的單元格中洗掉所有引號。您可以嘗試在 SET 陳述句后立即添加此代碼：

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

警告！！！這實際上會修改您所有的歌曲標題（它將洗掉該列中的雙引號），因此請在嘗試此操作之前備份您的檔案。

uj5u.com熱心網友回復：

一種方法是添加一個帶有 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") 需要

標籤：擅长 vba 排序 特殊的角色

上一篇：關于leetcode217的問題：包含重復

下一篇：在ListviewVirtualmode中無法獲得我的值