我有一个管理员工案件量的表格，之前在网上找到了一些VBA代码，能帮我有效排序数据，但现在每次点击按钮执行后，一保存就崩溃。我是个新手，代码是从这个网站的各种问题里拼凑出来的（顺便说一句，谢谢！这个资源太赞了！）

有没有人能帮我看看代码里有没有明显的问题？我的工作表只有在点击按钮执行后立即保存才会崩溃。

附代码：

Private Sub CommandButton2_Click()

Dim LRow As Long

Dim rngDB As Range

Dim v As Integer

Dim Ws As Worksheet

Application.AddCustomList ListArray:=Array("TBC", "Waiting", "Active", "Closed")

v = Application.CustomListCount

Set Ws = ActiveWorkbook.Worksheets("Cases")

With Ws
LRow = .Cells(.Rows.Count, "A").End(xlUp).Row

Set rngDB = .Range("A5", .Range("T" & LRow))

.Sort.SortFields.Clear

.Sort.SortFields.Add Key:=.Range("J3"), Order:=xlAscending, CustomOrder:=v

.Sort.SortFields.Add Key:=.Range("G1"), Order:=xlDescending

With .Sort
.SetRange rngDB
.Header = xlNo
.Orientation = xlTopToBottom
.Apply
End With

End With

Application.DeleteCustomList v

End Sub

嘿，我看了你的代码，发现几个很可能导致保存崩溃的关键点，尤其是排序部分的引用问题，这大概率是核心诱因：

问题1：排序Key引用了排序范围外的单元格 #

你设置的排序范围是rngDB = .Range("A5", .Range("T" & LRow))，也就是从第5行开始的数据区域，但添加排序字段时用的是.Range("J3")和.Range("G1")——这两个单元格完全不在你要排序的范围内！Excel处理这种跨范围的排序引用时，很容易出现内存异常或数据冲突，进而导致保存时崩溃。

正确的做法是引用排序范围内的对应列，比如用rngDB.Columns("J")（或者rngDB.Columns(10)，因为J是第10列）指定排序Key，这样就能和排序区域完全对应。

问题2：自定义列表的添加/删除逻辑有隐患 #

你每次点击按钮都添加新的自定义列表然后立即删除，但如果之前已经存在相同的列表，Application.AddCustomList会抛出隐性错误；另外用Application.CustomListCount获取刚添加的列表索引也不可靠——如果执行过程中有其他自定义列表被添加（比如用户手动添加），这个索引就会出错，导致删除错误的列表，留下异常数据。

我们可以先检查列表是否已存在，避免重复添加；如果必须删除，也要确保只删我们自己添加的列表。

修改后的代码 #

这里给你调整后的代码，解决了上面的问题：

Private Sub CommandButton2_Click()
    Dim LRow As Long
    Dim rngDB As Range
    Dim customListIndex As Integer
    Dim Ws As Worksheet
    Dim listExists As Boolean
    Dim i As Integer
    
    ' 先检查自定义列表是否已存在
    listExists = False
    For i = 1 To Application.CustomListCount
        If Join(Application.GetCustomListContents(i), ",") = "TBC,Waiting,Active,Closed" Then
            customListIndex = i
            listExists = True
            Exit For
        End If
    Next i
    
    ' 如果不存在则添加
    If Not listExists Then
        Application.AddCustomList ListArray:=Array("TBC", "Waiting", "Active", "Closed")
        customListIndex = Application.CustomListCount
    End If
    
    Set Ws = ActiveWorkbook.Worksheets("Cases")
    With Ws
        LRow = .Cells(.Rows.Count, "A").End(xlUp).Row
        Set rngDB = .Range("A5", .Range("T" & LRow))
        
        ' 清空之前的排序字段
        .Sort.SortFields.Clear
        
        ' 引用排序范围内的J列作为第一个排序Key
        .Sort.SortFields.Add Key:=rngDB.Columns("J"), _
                            Order:=xlAscending, _
                            CustomOrder:=customListIndex
        
        ' 引用排序范围内的G列作为第二个排序Key
        .Sort.SortFields.Add Key:=rngDB.Columns("G"), _
                            Order:=xlDescending
        
        With .Sort
            .SetRange rngDB
            .Header = xlNo ' 注意：如果A5是表头行，改成xlYes
            .Orientation = xlTopToBottom
            .Apply
        End With
    End With
    
    ' 只删除我们自己添加的列表（如果是新添加的）
    If Not listExists Then
        On Error Resume Next ' 防止删除时出错
        Application.DeleteCustomList customListIndex
        On Error GoTo 0
    End If
End Sub

额外小建议 #

• 确认.Header = xlNo是否正确：如果A5:T5是表头行，记得改成xlYes，否则排序会把表头当成数据行处理。
• 可以在代码开头加Application.ScreenUpdating = False，结尾加Application.ScreenUpdating = True，既能避免屏幕闪烁，也能提升代码运行的稳定性。

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