如何用Excel公式或VBA提取两列中字符数≤3的有序唯一值？

如果你的Excel版本支持动态数组函数，直接用一行公式就能搞定需求，步骤很简单：

1. 假设原始数据分别在A列和B列，在第三列（比如C1单元格）输入以下公式：

=SORT(UNIQUE(FILTER(VSTACK(A:A,B:B),LEN(VSTACK(A:A,B:B))<=3)))

2. 公式各部分的作用拆解：
   • VSTACK(A:A,B:B)：把A列和B列的数据合并成一个垂直数组
   • FILTER(...,LEN(...)<=3)：从合并后的数组里筛选出字符数≤3的元素
   • UNIQUE(...)：对筛选结果去重，只保留唯一值
   • SORT(...)：把去重后的内容按字母顺序排序

输入公式后，Excel会自动把结果填充到C列的对应单元格，不用手动下拉。

要是你的Excel版本不支持动态数组，或者需要批量重复处理这类数据，用VBA宏会更灵活：

1. 按Alt + F11打开VBA编辑器
2. 右键点击当前工作簿，选择「插入」→「模块」
3. 粘贴以下代码：

Sub ExtractSortUnique()
    Dim ws As Worksheet
    Dim cell As Range
    Dim uniqueItems As New Collection
    Dim arr() As String
    Dim i As Integer, j As Integer
    Dim temp As String
    
    ' 指定要处理的工作表，可根据实际修改名称
    Set ws = ThisWorkbook.ActiveSheet
    
    ' 遍历A列和B列的非空单元格
    For Each cell In ws.Range("A:A,B:B")
        If cell.Value <> "" And Len(cell.Value) <= 3 Then
            ' 利用集合自动去重的特性，重复值会报错，所以跳过错误
            On Error Resume Next
            uniqueItems.Add cell.Value, Key:=UCase(cell.Value)
            On Error GoTo 0
        End If
    Next cell
    
    ' 将集合内容转成数组
    ReDim arr(1 To uniqueItems.Count)
    For i = 1 To uniqueItems.Count
        arr(i) = uniqueItems(i)
    Next i
    
    ' 对数组进行字母排序（冒泡排序）
    For i = 1 To UBound(arr) - 1
        For j = i + 1 To UBound(arr)
            If UCase(arr(i)) > UCase(arr(j)) Then
                temp = arr(i)
                arr(i) = arr(j)
                arr(j) = temp
            End If
        Next j
    Next i
    
    ' 把排序后的结果写入C列，从C1开始
    ws.Range("C1").Resize(UBound(arr), 1).Value = Application.Transpose(arr)
End Sub

4. 回到Excel界面，按Alt + F8选择ExtractSortUnique宏并运行，结果会自动写入C列。

你提到的高级筛选确实很难直接实现这个需求，原因在于：

• 高级筛选的条件区域通常只能针对单一数据列设置规则，要同时处理两列的话需要构建复杂的多列条件区域
• 结合「字符长度≤3」的条件时，还得额外加辅助列计算每个单元格的字符长度，操作繁琐还容易出错，所以用公式或VBA会高效得多。

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