Excel表格多列高级筛选VBA代码报错及表格消失问题求助

问题根源分析 #

你的代码存在几个关键错误，直接引发了表格消失和运行报错：

• 范围引用顺序错误：DataBodyRange("G1:A" & LastTransRow) 和 CopyToRange:=Sheet11.Range("K2:E19999") 都是列从右到左的反向引用，Excel无法正确识别有效范围，甚至可能误覆盖数据。
• 最后一行获取逻辑不合理：用DataBodyRange(19999, 1).End(xlUp).Row获取最后一行稳定性极差，如果表格实际行数不足19999，会引用到表格外的无效单元格，导致范围计算错误。
• 目标区域指定错误：K2:E19999这种跨列反向范围不符合高级筛选的区域规范，无法正确定位输出位置，容易造成数据覆盖或筛选结果异常。

修正后的代码 #

'Assuming the name of the table is "RawData"
Dim rawTable As ListObject
Set rawTable = Sheet9.ListObjects("RawData")

' 直接用ListObject属性获取有效数据行数，更可靠
Dim lastTransRow As Long
lastTransRow = rawTable.ListRows.Count

' 高级筛选：范围按从左到右顺序指定，目标区域只需定义首行标题范围
rawTable.DataBodyRange.Range("A1:G" & lastTransRow).AdvancedFilter _
    Action:=xlFilterCopy, _
    CriteriaRange:=Sheet11.Range("A2:B3"), _
    CopyToRange:=Sheet11.Range("E2:K2"), ' 仅需指定首行，Excel会自动扩展结果行
    Unique:=True

额外注意事项 #

• 条件区域规范：CriteriaRange必须包含与源表格完全一致的列标题，否则筛选规则无法匹配生效。
• 目标区域简化：CopyToRange只需指定结果输出的首行标题单元格，无需写死到19999行，Excel会根据筛选结果自动扩展行数。
• 范围引用规则：所有Range引用必须遵循从左到右、从上到下的顺序，禁止反向引用。

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