你还在用鼠标手动点“升序”“降序”，还在一个个筛选项里勾来勾去？要是每次整理报表都这么干，遇到几千行数据基本一下午就没了。VBA里处理排序和筛选，本质上就两大块：Range.Sort负责排序，AutoFilter负责自动筛选，再加上一个平时不太常用但极其好用的AdvancedFilter高级筛选。这篇文章不绕弯子，直接从参数拆到实例，再到我实际踩过的坑，一次讲透。
这块内容我建议不管是刚接触VBA入门的新手，还是已经在用VBA for WPS或Excel的日常工作流老手，都先收藏。排序和筛选看着简单，实际用起来坑不少——表格里有合并单元格会报错、筛选后复制只带出了隐藏行、自定义排序顺序和想象中完全不一样……这些我都遇到过，下面整理出来，避免你再撞一遍。
1. 先把需求理清楚：排序和筛选到底在解决什么问题
写代码之前，先别急着录宏。我见过很多人拿到任务直接开干，写到一半才发现方向错了。排序和筛选的业务本质其实完全不同，先分清楚你要处理的是哪种场景。
1.1 排序要解决的三大场景
排序本质是改变数据的物理顺序。什么时候非排序不可？
第一类是数据排名。比如销售榜单要按销售额从高到低排，成绩表要按总分排名。这类需求对“谁在前谁在后”有硬性要求，排序是最直观的方案。
第二类是同类归组。比如把同一个部门、同一个客户的所有记录聚合到一起，方便后续分类汇总或打印存档。这种场景下排序就是为了让相同值挨在一起。
第三类是数据预处理。比如做VLOOKUP之前需要按查找列排序，或者做某些逐行对比前需要让时间戳有序。这种排序往往是下一步操作的前置条件，排序本身不是最终目的。
那什么时候不需要排序？如果你只是想找出一条符合条件的数据，那用Find或Filter函数更快，把整表搬来搬去反而浪费性能。排序是有开销的——数据量大时尤其明显，动辄几万行数据，排一次序消耗的时间跟你的排序字段数量、区域大小、是否触发重算都有关系。所以动手前先想清楚：这一步是为了呈现，还是为了计算？
1.2 筛选要解决的三大场景
筛选不改变行的物理位置，它只是把不符合条件的行临时隐藏。什么时候用筛选？
第一类是按条件查看子集。比如只看某个状态为“已完成”的订单，或者只看某个日期范围内的流水。这类是筛选的高频用法，日常报表里点下拉箭头就是在干这个。
第二类是筛选后的批处理。比如筛选出所有欠费用户之后批量发送提醒、批量修改状态。这里要注意——筛选后可见区域和实际数据区域不是一个概念，操作不当会误伤隐藏行，后面我会专门讲。
第三类是数据去重和抽样。Excel的去重本质上是高级筛选的一种应用，很多同事点了“删除重复项”就完事儿，但用代码控制去重逻辑可以做得更精细。
排序和筛选经常组合使用：先筛选出一个子集，再对这个子集排序，最后把结果固化。想清楚场景，再去看API怎么调，效率会高很多。
2. Range.Sort方法核心参数详解与单列排序实操
Range.Sort是VBA里处理排序的主入口，绝大多数排序需求最终都落到这个方法的参数组合上。别看它参数多，真正决定排序行为的就那几个。
2.1 Sort方法的完整语法长什么样
先列一下Range.Sort的标准语法：
Range.Sort Key1, Order1, Key2, Type, Order2, Key3, Order3, _ Header, OrderCustom, MatchCase, Orientation, _ SortMethod, DataOption1, DataOption2, DataOption3参数看着唬人，实际大多数场景用到的就这些：
- Key1、Key2、Key3：排序关键字区域。可以传一个单元格或一个区域，建议只传该列范围内的任意单个单元格（比如Range("A1")），代码会自动扩到整列可用区域。
- Order1、Order2、Order3：对应每个关键字的排序方向，xlAscending升序或xlDescending降序。
- Header：告诉Excel第一行是不是标题，取值为xlYes、xlNo或xlGuess。强烈建议永远显式指定，不要用xlGuess，猜错了数据直接乱套。
- Orientation：排序方向，xlTopToBottom是按行排（默认），xlLeftToRight是按列排。做横向表排序时会用到后者。
- MatchCase：是否区分大小写。排序文本时如果想让“a”和“A”分开排，设置为True。
- SortMethod：xlPinYin按拼音排，xlStroke按笔画排。中文排序用拼音还是笔画往往是个隐藏需求。
其它参数日常用到的频率低一些，但并不意味着可以不管。比如DataOption1负责设置将文本和数字分别处理还是统一处理，默认排序时文本和数字是分开排的，这个细节特容易踩坑，后面我会展开说。
2.2 一个最常用的单列排序实例
以销售表为例，A列是销售员，B列是销售额，第一行是标题。要把销售额从高到低排：
Sub SortBySales() Dim ws As Worksheet Set ws = ThisWorkbook.Worksheets("销售表") With ws.Sort .SortFields.Clear .SortFields.Add Key:=ws.Range("B2"), SortOn:=xlSortOnValues, Order:=xlDescending .SetRange ws.Range("A1").CurrentRegion .Header = xlYes .Apply End With End Sub这个写法用到了SortFields对象，它和传统的Range.Sort直接传参写法不同。SortFields的可读性更好，添加条件、设置顺序、设定范围分步进行，后续要改成多列排序也只需要再Add一个字段。
我还是得提一下传统写法，因为很多老代码都在用：
Sub SortBySales_Legacy() Dim ws As Worksheet Set ws = ThisWorkbook.Worksheets("销售表") ws.Range("A1").CurrentRegion.Sort _ Key1:=ws.Range("B2"), Order1:=xlDescending, Header:=xlYes End Sub两种写法结果一致，后者更简洁，前者更灵活。团队协作时我更推荐SortFields写法——代码一眼能看出排序了哪几列，哪列升序哪列降序。
2.3 排序时的边界问题：Area与UsedRange
排序最怕的是区域选错。用CurrentRegion有一个前提：数据区域必须是连续的单块矩形，中间不能有空行或空列。一旦数据中间出现了真空行，CurrentRegion只会识别到空行上面的部分，下面的数据根本不会参与排序，结果就是半个表动了半个表没动。
如果数据表中间允许有空行，那老老实实用UsedRange也不靠谱——如果有些行被格式刷过但没数据，UsedRange会把这些行列都算进去。我个人的处理办法是先定位真正的数据边界：
Dim lastRow As Long Dim lastCol As Long lastRow = ws.Cells(ws.Rows.Count, "A").End(xlUp).Row lastCol = ws.Cells(1, ws.Columns.Count).End(xlToLeft).Column Set sortRange = ws.Range(ws.Cells(1, 1), ws.Cells(lastRow, lastCol))这段代码的意思是：从A列最底部往上找第一个非空单元格，得到最后一行；从第一行最右侧往左找第一个非空单元格，得到最后一列。用这种方式圈定的区域不依赖数据连续性，比CurrentRegion可靠得多。
3. 多级排序与自定义排序顺序的实战方案
单列排序只是入门，我实际工作中一半以上的排序需求都是多条件排序。比如“先按部门排，再按销售额排”，或者更复杂的“先按状态排，再按日期排，再按金额排”。
3.1 多关键字排序：怎么写不易错
用SortFields实现多列排序非常直观：
Sub MultiKeySort() Dim ws As Worksheet Set ws = ThisWorkbook.Worksheets("订单") With ws.Sort .SortFields.Clear .SortFields.Add Key:=ws.Range("C2"), SortOn:=xlSortOnValues, Order:=xlAscending ' 部门 .SortFields.Add Key:=ws.Range("D2"), SortOn:=xlSortOnValues, Order:=xlDescending ' 销售额 .SortFields.Add Key:=ws.Range("A2"), SortOn:=xlSortOnValues, Order:=xlAscending ' 日期 .SetRange ws.Range("A1").CurrentRegion .Header = xlYes .Apply End With End Sub三个Add的顺序就是排序的优先级顺序：先部门升序，部门相同再比销售额降序，销售额还相同再比日期升序。这个顺序非常关键——新手最容易犯的错是把优先级最高的列放在最后一个Add里，结果排出来的效果完全不对。
做个类比：就像字典查字，先按部首分，同部首的再按笔画排，笔画还一样的再按拼音排。排序字段的优先级是从上往下递减的，写的时候脑子里要时刻有这层概念。
3.2 自定义序列：按“未开始-进行中-已完成”排序
工作中还有一种高频需求，就是状态字段的排序不能按字母也不能按拼音，而要按业务顺序。比如“未开始”“进行中”“已完成”这三个值，字母序下“已完成”在第一位，但业务上你希望“未开始”排最前面。
这时候VBA里有一个很低调但极其好用的方法——自定义序列。利用Worksheet对象的CustomOrder方法把自定义序列临时加进去：
Sub CustomOrderSort() Dim ws As Worksheet Set ws = ThisWorkbook.Worksheets("任务") ' 清理之前可能残留的自定义序列 On Error Resume Next Application.DeleteCustomList Application.CustomListCount ' 新增一个临时自定义序列 Application.AddCustomList Array("未开始", "进行中", "已完成", "已暂停") ' 用最后一个自定义序列排序 ws.Range("A1").CurrentRegion.Sort _ Key1:=ws.Range("B2"), _ Order1:=xlAscending, _ Header:=xlYes, _ OrderCustom:=Application.CustomListCount + 1 End Sub这里的关键参数是OrderCustom，它指向自定义序列的编号。刚添加的序列号是Application.CustomListCount（添加后总数），但Sort的OrderCustom参数要求传入的序列号比添加后的总数大1，这是不少人在这个坑里卡半天的原因。
还有个更轻量级的办法：如果你不想动全局自定义列表，就加一个辅助列，用Match函数把顺序编号算出来，再按辅助列排序。这种方法适合不想影响用户Excel环境的场景：
' 假设F列为空，作为辅助列 ' F2输入公式: =MATCH(B2, {"未开始","进行中","已完成","已暂停"}, 0) ws.Range("F2:F" & lastRow).Formula = _ "=MATCH(B2, {""未开始"",""进行中"",""已完成"",""已暂停""}, 0)"排完序后把F列公式删掉即可。这个方法优雅之处在于，它不依赖任何全局设置，随时可以用，即使发给同事运行也不会污染他们的Excel配置。
3.3 中文排序：拼音还是笔画，取决于具体场景
中文排序有个绕不开的问题——按拼音还是按笔画。默认情况下Excel中文排序是按拼音来的。比如“安”“白”“吃”，会按“a、b、c”的拼音顺序排。但某些场景下拼音排序并不合理，比如人名册按姓氏笔画排序时，就必须用笔画模式。
用SortMethod参数可以切换：
Sub SortByStroke() Dim ws As Worksheet Set ws = ThisWorkbook.Worksheets("姓名册") With ws.Sort .SortFields.Clear .SortFields.Add Key:=ws.Range("A2"), SortOn:=xlSortOnValues, Order:=xlAscending .SetRange ws.Range("A1").CurrentRegion .Header = xlYes .SortMethod = xlStroke ' 按笔画排序 .Apply End With End Sub如果用的是Range.Sort传统写法，SortMethod作为倒数第三个参数传入：
ws.Range("A1").CurrentRegion.Sort _ Key1:=ws.Range("A2"), Order1:=xlAscending, Header:=xlYes, _ SortMethod:=xlStroke这里给个小提示：WPS的VBA环境对SortMethod的兼容性和Excel略有差异，如果发现按笔画排序不生效，先用Application.Version确认一下宿主版本。在WPS里跑代码时，有些参数会被静默忽略，不会报错但结果不对，这种情况只能换成辅助列思路处理：加一列笔画数字段，手动算好再排。
4. AutoFilter：自动筛选的完整实战手册
筛选是比排序更常用的操作。AutoFilter方法有个很大的优点是：它是非破坏性的——原始数据没有被删除，只是被隐藏了。这一点对操作安全非常重要，错了随时可以撤销或重新筛选。
4.1 AutoFilter参数结构与筛选状态判断
AutoFilter的基本调用方式是：
Range.AutoFilter Field:=1, Criteria1:=条件Field参数是从筛选区域第一列开始算的列号。比如区域是从B列开始的，那B列Field就是1，C列Field就是2。这个细节经常搞混。
筛选前先判断工作表中是否已经开启了筛选状态：
If ws.AutoFilterMode Then ws.AutoFilterMode = False ' 相当于点掉“筛选”按钮 End If执行完筛选后，检查是否有符合条件的行：
Dim visibleCount As Long If ws.AutoFilterMode And Not ws.Rows(1).Hidden Then On Error Resume Next visibleCount = ws.Range("A2:A" & lastRow).SpecialCells(xlCellTypeVisible).Rows.Count On Error GoTo 0 End If If visibleCount = 0 Then MsgBox "没有符合条件的结果" Exit Sub End IfSpecialCells(xlCellTypeVisible)是获取可见区域的关键API。注意一个坑：如果筛选结果只有一行且这行是标题下方的第一行数据，SpecialCells计算行数不一定等于1。原因在于如果区域里只有一处可见单元格，SpecialCells会把它当作整个区域来计数。这种情况下加上On Error保护和后续判断方式更稳妥。
4.2 文本、数字、日期三大筛选条件实战
文本筛选最常见的需求是精确匹配和模糊匹配：
' 筛选部门为"销售部" ws.Range("A1").CurrentRegion.AutoFilter Field:=2, Criteria1:="销售部" ' 筛选包含"张"的姓名（模糊匹配用通配符） ws.Range("A1").CurrentRegion.AutoFilter Field:=1, Criteria1:="=*张*"筛选时用通配符需要注意两部分写法：星号*代表任意多个字符，问号?代表单个任意字符。模糊匹配的时候，Criteria1需要写成"=张"，这里等号不能省略，省略了VBA会把这个字符串当作字面值而非通配符模式来处理，结果会变成一个都筛不出来。别问我怎么知道的，问就是试错过。
数字筛选的条件组合通过Array传参实现多值筛选：
' 筛选销售额为1000、2000、3000的记录 ws.Range("A1").CurrentRegion.AutoFilter Field:=3, _ Criteria1:=Array("1000", "2000", "3000"), Operator:=xlFilterValues大于等于某值要用运算符连接字符串：
' 筛选销售额 >= 5000 ws.Range("A1").CurrentRegion.AutoFilter Field:=3, Criteria1:=">=5000" ' 筛选销售额在5000到10000之间（且） ws.Range("A1").CurrentRegion.AutoFilter Field:=3, _ Criteria1:=">=5000", Operator:=xlAnd, Criteria2:="<=10000"日期筛选是新手崩溃重灾区。VBA里日期容易因为系统区域设置不同而解析出错。稳定写法是先把日期格式化成标准字符串再传入：
Dim startDate As String Dim endDate As String startDate = Format(DateSerial(2025, 1, 1), "yyyy-mm-dd") endDate = Format(DateSerial(2025, 12, 31), "yyyy-mm-dd") ws.Range("A1").CurrentRegion.AutoFilter Field:=5, _ Criteria1:=">=" & startDate, Operator:=xlAnd, Criteria2:="<=" & endDate关于日期筛选，我强烈建议不要依赖Operator:=xlAnd这种方式去处理复杂日期条件。Excel的AutoFilter对日期的底层判断和分组是依赖本地区域设置的，同一个日期在不同区域语言的Excel里可能被解释成不同的月份和日子。最稳妥的筛选方案是先给日期所在列加一个辅助列，用Text()或Format()把日期转成yyyy-mm-dd的字符串，然后再对辅助列做文本匹配筛选。这种方式看着多了一步，但彻底绕开了日期格式的雷区。我一般在正式处理报表前会先跑一条代码检查系统日期格式：
Debug.Print Application.International(xlDateOrder)如果是非“年月日”的日期顺序，日期字符串筛选取值务必谨慎。
4.3 多列同时筛选与清除筛选
多列筛选其实是逐列添加筛选条件，AutoFilter每调用一次且都传入了Field参数，不会重置之前的筛选规则，它只是把新条件叠加到对应列上：
Dim rng As Range Set rng = ws.Range("A1").CurrentRegion rng.AutoFilter Field:=2, Criteria1:="销售部" ' 先筛部门 rng.AutoFilter Field:=3, Criteria1:=">5000" ' 再筛销售额 rng.AutoFilter Field:=4, Criteria1:="=已完成" ' 再筛状态清除某一列或全部筛选：
' 清除所有筛选（保留标题行的筛选下拉按钮） ws.AutoFilter.ShowAllData ' 彻底删除筛选下拉按钮 ws.AutoFilterMode = False注意ShowAllData和AutoFilterMode=False的本质区别：前者只是取消所有筛选条件、显示所有行，但下拉箭头还在；后者是完全退出筛选模式。如果你后面还要叠加其他筛选条件，用ShowAllData更合适；如果这个表的筛选动作彻底结束了，直接用False。
4.4 筛选后复制可见区域到新表
筛选完了不能只停留在“看一眼”的层面，业务上通常是筛选后把结果复制到新表或粘到邮件里。直接Range.Copy会把隐藏行也一起复制了，所以要借助SpecialCells(xlCellTypeVisible)：
Sub CopyVisibleToNewSheet() Dim ws As Worksheet Dim destWs As Worksheet Dim lastRow As Long Dim filterRange As Range Set ws = ThisWorkbook.Worksheets("数据源") lastRow = ws.Cells(ws.Rows.Count, "A").End(xlUp).Row ' 先筛选 ws.Range("A1").CurrentRegion.AutoFilter Field:=2, Criteria1:="销售部" ' 定位可见区域（注意包含表头） On Error Resume Next Set filterRange = ws.Range("A1:F" & lastRow).SpecialCells(xlCellTypeVisible) On Error GoTo 0 If filterRange Is Nothing Then MsgBox "没有可见数据" ws.AutoFilterMode = False Exit Sub End If ' 创建新表并复制 Set destWs = ThisWorkbook.Worksheets.Add(After:=ThisWorkbook.Sheets(ThisWorkbook.Sheets.Count)) destWs.Name = "筛选结果" filterRange.Copy Destination:=destWs.Range("A1") ' 清理筛选状态 ws.AutoFilterMode = False End Sub这里有个重要坑：如果只是筛选出连续多行，没有跨区域不连续的话，SpecialCells返回的Range可以一次性复制；但复制过程如果筛选出的行跨越了多个不连续区域，部分复制内容在新表里会出现隔行粘贴的情况。解决办法是先在源表把可见行填到一个临时辅助区域，再整体复制。当然大多数报表筛选结果都是连续的，可以用上面这段代码，稳健性要求高再多包一层Union处理。
4.5 特定行数筛选与“多行筛选序列”需求的变通处理
有的场景不是筛选值本身，而是筛选出某些特定位置的行，比如排行榜前N名、某客户最近的几条记录。这个我做一个小案例分享：
如果数据源里已经有“序号”列，直接筛选序号<=N即可：
ws.Range("A1").CurrentRegion.AutoFilter Field:=1, Criteria1:="<=" & n如果没有序号列，可以先加一个临时的辅助列填上1、2、3...行号，然后筛选完再删掉这列。如果数据表是已经排好序的（比如按销售额降序排好了），筛选出前10行可以先把A列行号填入辅助列，筛选辅助列数值<=10。
下面是一段常用的“加辅助行号再筛选”的稳健代码：
Sub FilterTopN() Dim ws As Worksheet Dim lastRow As Long Dim i As Long Set ws = ThisWorkbook.Worksheets("订单") lastRow = ws.Cells(ws.Rows.Count, "A").End(xlUp).Row ' 判断是否存在辅助列，这里假设G列为空 If ws.Cells(1, 7).Value <> "" Then MsgBox "G列不是空列，请换一列做辅助列" Exit Sub End If ' 辅助列填充行号（从数据第一行开始，含表头） For i = 1 To lastRow ws.Cells(i, 7).Value = i Next i ' 筛选出行号 <= 20 的数据，即前20行 ws.Range("A1:G" & lastRow).AutoFilter Field:=7, Criteria1:="<=20" End Sub注意辅助列也要纳入AutoFilter的区域，且表头要有一致的标题，否则下拉菜单会傻掉。
5. AdvancedFilter高级筛选：条件区域与去重的组合用法
AutoFilter虽然灵活，但有场景搞不定：比如复制筛选结果到其他区域、两表比对取差集、筛选条件动态变化、复杂跨列或公式条件。这时候要升级到AdvancedFilter。
5.1 AdvancedFilter的核心逻辑
AdvancedFilter的核心不是直接传条件字符串，而是指定一个条件区域。条件区域的规则很独特：同一行内的条件是与（AND）关系，不同行之间是或（OR）关系。
举个例子。
条件区域写法：
- A1单元格为空，B1为空（表头）
- A2填“部门”，B2填“销售部”表示筛选部门为“销售部”
- A3填“状态”，B3填“已完成”
这样二维表结构下同一行不同列的条件是与关系；不同行之间（比如A2/C2都有条件）则是或关系。
5.2 用AdvancedFilter实现去重
去重是AdvancedFilter最高频的应用，比手工删除重复项更可控：
Sub DeDuplication() Dim ws As Worksheet Dim lastRow As Long Set ws = ThisWorkbook.Worksheets("原始数据") lastRow = ws.Cells(ws.Rows.Count, "A").End(xlUp).Row ws.Range("A1:A" & lastRow).AdvancedFilter _ Action:=xlFilterCopy, _ CopyToRange:=ws.Range("E1"), _ Unique:=True End Sub这个代码把A列去重结果直接复制到E列。注意两点：CopyToRange只需给一个起始单元格（比如E1）或者和源区域字段一致的表头行；要用Unique:=True开启去重。如果你希望去重后还能看到重复次数，可以结合COUNTIF先统计再高级筛选。
5.3 AdvancedFilter跨表筛选的可靠方案
条件区域放到独立的工作表里，结构更清晰，不易误伤原始数据：
Sub AdvancedFilter_CopyToNew() Dim srcWs As Worksheet Dim condWs As Worksheet Dim dstWs As Worksheet Dim lastRow As Long Set srcWs = ThisWorkbook.Worksheets("数据源") Set condWs = ThisWorkbook.Worksheets("条件区") ' 清空条件区里的旧条件 condWs.Range("A1:B10").ClearContents ' 写入条件：部门为销售部，销售额大于3000 condWs.Range("A1") = "部门" condWs.Range("A2") = "销售部" condWs.Range("B1") = "销售额" condWs.Range("B2") = ">3000" ' 目标工作表 Set dstWs = ThisWorkbook.Worksheets.Add(After:=ThisWorkbook.Sheets(ThisWorkbook.Sheets.Count)) dstWs.Name = "高级筛选结果" lastRow = srcWs.Cells(srcWs.Rows.Count, "A").End(xlUp).Row srcWs.Range("A1:F" & lastRow).AdvancedFilter _ Action:=xlFilterCopy, _ CriteriaRange:=condWs.Range("A1:B2"), _ CopyToRange:=dstWs.Range("A1:F1"), _ Unique:=False End Sub条件区域里写上“销售额”表头和下方“>3000”，就能做到用比AutoFilter更复杂且更稳定的数值条件。AdvancedFilter真正的优势在于：它可以复用同一套条件区域配合宏录制多次筛选，后续改条件只需要修改条件单元格内容，代码一行都不用动。
6. 不写回表格的排序与筛选：数组、字典与SortedList
有些场景下，数据不需要在Excel工作表上体现过程，排序和筛选只是内存里的一个步骤。特别是数据量大、不希望屏幕闪烁时，直接在VBA数组里处理比反复读写单元格快几个数量级。
6.1 数组排序：用内置ArrayList或自写快排
VBA没有原生的Array.Sort，但有一个很多人忽略的现成库——ArrayList（来自.NET的System.Collections），通过VBA引用可以轻松调用：
Sub SortArrayWithArrayList() Dim arr As Variant Dim list As Object arr = Array("banana", "apple", "cherry", "date") Set list = CreateObject("System.Collections.ArrayList") Dim i As Long For i = LBound(arr) To UBound(arr) list.Add arr(i) Next i list.Sort ' 排序后输出 For i = 0 To list.Count - 1 Debug.Print list(i) Next i End SubArrayList的Sort有两个重载：无参排序是自然序（字符串按字符代码、数字按数值），如果需要对对象数组按某个字段排序，可以用ArrayList.Sort自定义IComparer实现的思路，但在VBA中实现比较器比较麻烦。对于简单的字符串数组，ArrayList足够；对于结构化数据，可以用下面这套基于ADODB的内存查询方案。
6.2 用ADODB对内存结果做SQL式筛选与排序
更高级的玩法是利用ADODB把Excel区域当作数据库来查询。对几万行数据做筛选和排序，这条路线性能极其优秀：
Sub QueryWithAdo() Dim conn As Object Dim rs As Object Dim ws As Worksheet Dim sql As String Set ws = ThisWorkbook.Worksheets("销售表") Set conn = CreateObject("ADODB.Connection") ' 连接当前工作簿 conn.Open "Provider=Microsoft.ACE.OLEDB.12.0;" & _ "Data Source=" & ThisWorkbook.FullName & ";" & _ "Extended Properties=""Excel 12.0;HDR=YES;IMEX=1;"";" sql = "SELECT 销售员, SUM(销售额) AS 总销售额 " & _ "FROM [销售表$] " & _ "WHERE 状态 = '已完成' " & _ "GROUP BY 销售员 " & _ "ORDER BY SUM(销售额) DESC" Set rs = conn.Execute(sql) ' 输出到新表 Dim destWs As Worksheet Set destWs = ThisWorkbook.Worksheets.Add(After:=ThisWorkbook.Sheets(ThisWorkbook.Sheets.Count)) destWs.Range("A1").CopyFromRecordset rs rs.Close conn.Close End Sub这段SQL同时完成了筛选（WHERE）、聚合（GROUP BY）、排序（ORDER BY），一步到位，而且数据量越大，相对单元格操作越有优势。需要注意：ACE.OLEDB.12.0连接字符串在WPS里可能不适用，WPS环境中直接用原生VBA循环配合字典我一般用下面这种替代方案。
6.3 字典对象在排序筛选里的典型用法
VBA的Dictionary可以用来做频次统计和筛选分类：
Sub DictGrouping() Dim ws As Worksheet Dim dict As Object Dim lastRow As Long Dim i As Long Dim key As String Dim val As Double Set dict = CreateObject("Scripting.Dictionary") Set ws = ThisWorkbook.Worksheets("订单") lastRow = ws.Cells(ws.Rows.Count, "A").End(xlUp).Row ' 遍历统计每个销售员的销售额 For i = 2 To lastRow key = ws.Cells(i, 2).Value val = ws.Cells(i, 3).Value If dict.Exists(key) Then dict(key) = dict(key) + val Else dict.Add key, val End If Next i ' 字典没有排序能力，需要把键取出来放数组再排 Dim keys As Variant Dim vals As Variant keys = dict.keys vals = dict.items ' 冒泡排序：根据值从高到低排 Dim m As Long Dim n As Long Dim tmpK As String Dim tmpV As Double For m = 0 To dict.Count - 2 For n = m + 1 To dict.Count - 1 If vals(m) < vals(n) Then tmpV = vals(m): vals(m) = vals(n): vals(n) = tmpV tmpK = keys(m): keys(m) = keys(n): keys(n) = tmpK End If Next n Next m ' 输出结果 For i = 0 To dict.Count - 1 ws.Cells(i + 2, 7).Value = keys(i) ws.Cells(i + 2, 8).Value = vals(i) Next i End Sub字典本身无序，但它天然解决了去重和累计的问题。配合数组排序后输出，基本能满足绝大多数分组汇总需求。排序算法如果嫌冒泡效率低，数据量大可以换成简单插入排序或快排，VBA纯数组操作即使上万数据也只是毫秒级差异。
7. 效率优化与防止排序筛选的连带事故
VBA处理排序筛选影响的不只是功能正确性，还会影响用户体验和数据安全。以下几条是我在大型报表自动化项目里总结的实战经验。
7.1 关闭屏幕刷新与手动计算模式
处理几千行数据的多重排序筛选时，如果屏幕闪烁不停，体验很差，速度也慢。建议在代码开头和结尾加上这几行：
Sub OptimizeBegin() Application.ScreenUpdating = False Application.Calculation = xlCalculationManual Application.EnableEvents = False End Sub Sub OptimizeEnd() Application.ScreenUpdating = True Application.Calculation = xlCalculationAutomatic Application.EnableEvents = True End Sub注意关闭事件（EnableEvents）的好处不止是提速，更重要的是防止DataChange、SelectionChange等事件侦听器在排序过程中多次触发造成递归或重入问题。如果你代码改动了单元格内容，但没关EnableEvents，Workbook_SheetChange事件会触发一系列后续动作，一旦处理函数影响了排序区域，排查起来非常痛苦。
务必把功能代码写在OptimizeBegin和OptimizeEnd之间，并且用Error Handler确保意外报错时也能恢复原始设置：
Sub SafeSort() On Error GoTo CleanFail Application.ScreenUpdating = False Application.Calculation = xlCalculationManual ' 真正的排序代码... CleanExit: Application.ScreenUpdating = True Application.Calculation = xlCalculationAutomatic Exit Sub CleanFail: MsgBox "执行出错: " & Err.Description Resume CleanExit End Sub7.2 排序筛选与公式单元格的联动问题
如果工作表里有VLOOKUP、SUMIF这类公式引用排序区域，排序后公式结果可能不会立即按预期更新。在手动计算模式下尤其如此。解决方案是排序结束后主动Calculate一次，或者在排序前把公式区域的值先定住（选择性粘贴为数值）。如果业务逻辑要求保留公式，但排序结果必须立即可用，用Calculate刷新当前区域或整个工作簿。
7.3 合并单元格与隐藏行列的连带事故
排序时目标区域绝不能包含合并单元格，否则Excel会直接抛错。排序前最好检测区域内是否有MergeCells：
Function HasMergedCells(rng As Range) As Boolean Dim cell As Range For Each cell In rng If cell.MergeCells Then HasMergedCells = True Exit Function End If Next cell End Function隐藏行和隐藏列也不要直接排序。如果先筛选后排序，排序会打乱原有的隐藏状态，可能出现隐藏行错位造成数据丢失假象。稳妥的做法是先取消所有筛选（ShowAllData）再排序，或者把筛选和排序逻辑分阶段做好。
7.4 保护工作表中代码执行异常
工作簿如果加了工作表保护，排序和筛选动作通常会被禁止，除非你在保护时勾选了“排序”和“使用自动筛选”的权限。代码执行前可能需要解除保护：
ws.Unprotect Password:="123456" ' 排序筛选代码... ws.Protect Password:="123456"对用户环境不清楚时，尽量不要硬编码密码在代码里。实践中我更多是把需要执行宏的区域的“锁定”属性去掉，这样保护表也能运行宏，不用暴露密码。操作路径是选中相关单元格区域 -> 设置单元格格式 -> 保护 -> 取消勾选“锁定”。这样工作表保护后的排序区域不会中断宏的执行。
8. 常见问题速查表与排查心法
最后把这几年遇到的实战问题整理成速查表，遇到异常直接对照排查。
| 现象 | 大概率原因 | 解决办法 |
|---|---|---|
| 排序后数据不完整，后半段没动 | 使用的CurrentRegion遇到空行截断 | 改用End(xlUp)方式确定lastRow，按实际边界排序 |
| 中文排序结果和预期不符 | 拼音排序不符合业务场景 | 指定SortMethod:=xlStroke或使用辅助列编号 |
| 自定义序列排序导出结果错乱 | OrderCustom参数传错了序列号 | 确保传入值=新增后的CustomListCount+1 |
| 筛选后复制出现隐藏行数据 | 直接使用了Range.Copy | 用SpecialCells(xlCellTypeVisible)后再Copy |
| 日期筛选筛不出任何记录 | 系统日期格式与传参格式不匹配 | 用yyyy-mm-dd字符串辅列或显式DateSerial |
| 模糊筛选结果为空 | 通配符字符串没有加等号 | Criteria1写成"=文本" |
| 多列筛选条件相互覆盖 | 在循环中重复调用AutoFilter时没注意Field参数 | 每次都传入不同的Field参数；需要重置就先AutoFilterMode=False |
| 排序列包含合并单元格 | Range.Sort不支持合并单元格 | 排序前取消合并或跳过该区域 |
| 打印输出和列表区域不一致 | 使用了UsedRange定位数据区域 | 改为基于具体列End(xlUp)定位真实lastRow |
| 代码在WPS里运行结果和Excel不一样 | WPS对部分VBA API兼容性不同 | 先确认API支持情况，换辅助列或Evaluate函数绕过 |
排查心法我总结为一句口诀：先看区域，再看参数，最后看宿主。绝大多数排序筛选问题都出在“你以为的区域”和“代码真实作用的区域”不一致上。第二个高频问题则是参数的类型和语义理解错了——比如Field到底是第几列、OrderCustom指向哪个序列、Criteria1里要不要带等号。先把这两个方向查清楚，你就已经解决九成的问题了。
上面这些内容算是我这几年做Excel自动化项目时一点一滴攒下来的实操经验。最后再透露一个小技巧：写调试代码时，可以在排序和筛选取值之后，先用Debug.Print把条件打印到立即窗口（Ctrl+G可查看），确认参数拼接无误后再执行真正的排序筛选动作。这一步能帮你省下大量反复撤销重试的时间。日常用宏处理数据前，也建议第一时间备份原表——排序筛选是破坏性操作里最容易被忽视的两种，备份一下总没什么坏处。
