删除条目后Excel表格指定区域排序时表头被误包含的问题

问题根源 #

你当前使用Range.Sort时，默认的Header参数为xlGuess，Excel会自动猜测排序范围是否包含表头。删除条目后表格结构发生变化，导致Excel误将A2识别为数据行的一部分，进而把表头纳入排序范围。

解决方案1：明确指定Header参数 #

在Sort语句中添加Header:=xlNo，明确告知Excel当前排序范围不含表头：

wl.Range("A3", "L" & w_last_row).Sort _
    Key1:=wl.Range("A3", "A" & w_last_row), _
    Order1:=xlAscending, _
    Header:=xlNo

解决方案2：直接使用ListObject排序（更推荐） #

既然操作的是结构化表格（ListObject），直接调用表格自带的Sort方法更稳定，完全不会出现表头误判问题：

With wl.ListObjects("waiting_list").Sort
    .SortFields.Clear
    .SortFields.Add Key:=wl.ListObjects("waiting_list").ListColumns(1).Range, _
                    SortOn:=xlSortOnValues, _
                    Order:=xlAscending
    .Header = xlYes
    .Apply
End With

这种方法依赖表格原生结构，无需手动计算最后一行，也不会误触空行或表头。

额外优化：last_row函数简化 #

如果仅需获取表格数据区域的最后一行，可直接利用ListObject的DataBodyRange属性：

Function last_row(sheet_name, col_to_check)
    If sheet_name = "wl" Then
        Set ws = Sheets("Membership Waiting List")
        Set tbl = ws.ListObjects("waiting_list")
    ' 其他工作表的处理逻辑
    End If
    ' 有数据行则返回最后一行行号，无数据则返回表头行号
    If Not tbl.DataBodyRange Is Nothing Then
        last_row = tbl.DataBodyRange.Columns(col_to_check).Cells(tbl.DataBodyRange.Rows.Count).Row
    Else
        last_row = tbl.HeaderRowRange.Row
    End If
End Function

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