Excel VBA 列唯一值排序并归集至追踪表单元格的最佳方法

当前实现基础 #

• 已通过Scripting.Dictionary脚本字典完成目标列非空值的去重归集
• 去重结果可输出至VBA立即窗口（Immediate Window）查看
• 现存短板：字典原生键值集无内置排序能力，排序逻辑实现难度高，归集结果无法批量定向输出到追踪电子表格的指定单元格

高性价比实现方案 #

方案1：最小改动适配现有字典逻辑 #

• 完全保留现有字典去重的遍历逻辑，不改动原有J列取值、非空判断、大写转存的规则
• 字典构建完成后，提取所有键值存入一维数组，借助Excel原生排序能力完成排序：
  • 新增临时工作表，把数组内容批量写入临时表A列
  • 调用临时表的Sort方法按升序/降序完成排序，无需手写冒泡、快排等排序算法
  • 把排序后的结果批量写入追踪表的指定目标单元格区域
  • 用完临时表后删除，避免残留冗余对象
    优势：改动量最小，和现有代码逻辑完全兼容，没有额外学习成本

方案2：全原生能力无代码依赖的极简方案 #

• 直接对目标列（J4:J至最后数据行）调用Excel高级筛选功能，勾选"选择不重复的记录"，直接输出带原生排序规则的去重结果
• 把筛选得到的结果批量复制到追踪表指定区域
  优势：完全不需要手动编写去重、排序逻辑，万行级数据处理性能稳定，排序规则和日常Excel操作的感知完全一致

方案3：大数据量场景的高性能方案 #

• 把当前工作簿作为数据源，通过ADO连接执行SQL查询，直接对目标列执行去重+排序操作：
  • 查询语句核心逻辑为SELECT DISTINCT 目标列 FROM 数据区域 WHERE 目标列 IS NOT NULL ORDER BY 目标列
  • 把查询返回的有序唯一值结果集直接写入追踪表的指定单元格
    优势：十万行级以上数据的处理速度远快于逐行遍历建字典的方式，排序逻辑通过SQL实现无需额外开发

适配现有代码的改造参考 #

在原有字典遍历打印立即窗口的环节，替换为排序+定向输出逻辑即可，核心片段参考：

' 原有字典构建完成后，替换原来的For Each key In d.keys Debug.Print环节
If d.Count > 0 Then
    ' 提取字典键值数组
    Dim keyArr As Variant
    keyArr = d.keys
    ' 借助临时工作表完成排序
    Dim tempWs As Worksheet
    Set tempWs = ThisWorkbook.Worksheets.Add
    tempWs.Range("A1").Resize(UBound(keyArr) + 1, 1).Value = Application.Transpose(keyArr)
    ' 按字母顺序升序排序
    tempWs.UsedRange.Sort Key1:=tempWs.Range("A1"), Order1:=xlAscending
    ' 写入追踪表指定起始单元格，示例为追踪表C3位置
    Dim trackWs As Worksheet
    Set trackWs = ThisWorkbook.Worksheets("追踪表")
    trackWs.Range("C3").Resize(tempWs.UsedRange.Rows.Count, 1).Value = tempWs.UsedRange.Value
    ' 清理临时对象
    Application.DisplayAlerts = False
    tempWs.Delete
    Application.DisplayAlerts = True
End If

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