如何用VBA对Excel中ListObject表格排序（排除空产品名行）

你原来的代码直接对指定Range排序，没有排除第二列为空的行，而Excel升序排序默认会把空值排在最前面，导致空行出现在产品行之前。以下是两种可行的解决方案：

方案1：利用ListObject内置排序，让空值自动排在末尾 #

这种方法简洁高效，直接通过表格的排序规则设置，让空产品名的行自动排在所有有数据行的后面，同时完成非空行的升序排序：

Sub SortTable1()
    Dim tbl As ListObject
    Dim sortCol As ListColumn
    
    ' 定位目标表格
    Set tbl = ThisWorkbook.ActiveSheet.ListObjects("tbl1")
    ' 定位产品名称列（第2列）
    Set sortCol = tbl.ListColumns(2)
    
    ' 清除原有排序规则
    tbl.Sort.SortFields.Clear
    
    ' 配置新的排序规则
    With tbl.Sort
        ' 添加排序键：产品名称列，升序
        .SortFields.Add Key:=sortCol.Range, _
                        SortOn:=xlSortOnValues, _
                        Order:=xlAscending, _
                        DataOption:=xlSortNormal
        ' 排序基础设置
        .Header = xlYes ' 表格包含表头
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin ' 中文排序用拼音，英文可改为xlStroke
        .Apply ' 执行排序
    End With
End Sub

代码说明 #

• 直接操作ListObject对象，比手动指定Range更可靠，能自动适配表格的结构变化
• 排序后，空产品名的行会自动排在所有有数据行的末尾，无需额外筛选操作

方案2：先移走空行，再排序非空行 #

如果需要彻底将空行从排序范围中排除，可先把空产品名的行移到表格最后，再对前面的非空行排序：

Sub SortTable1()
    Dim tbl As ListObject
    Dim emptyRowCount As Long
    Dim i As Long
    
    Set tbl = ThisWorkbook.ActiveSheet.ListObjects("tbl1")
    emptyRowCount = 0
    
    ' 从后往前遍历，将空产品名的行移到表格末尾
    For i = tbl.ListRows.Count To 1 Step -1
        If tbl.ListRows(i).Range.Cells(2).Value = "" Then
            tbl.ListRows(i).Range.Cut
            tbl.ListRows.Add AlwaysInsert:=True ' 在末尾新增行
            tbl.ListRows(tbl.ListRows.Count).Range.PasteSpecial xlPasteAll
            emptyRowCount = emptyRowCount + 1
        End If
    Next i
    
    ' 对前面的非空行执行排序
    With tbl.DataBodyRange.Resize(tbl.ListRows.Count - emptyRowCount, tbl.ListColumns.Count)
        .Sort Key1:=.Columns(2), Order1:=xlAscending, Header:=xlNo ' DataBodyRange不含表头，所以设为xlNo
    End With
    
    ' 清除剪切复制状态
    Application.CutCopyMode = False
End Sub

代码说明 #

• 从后往前遍历避免因行移动导致的索引错乱
• 先将所有空行移到表格末尾，再仅对非空行排序，确保排序范围完全不包含空行

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