如何用WorksheetFunction.Unique快速生成指定列的唯一组合？

报错原因 #

你遇到的Error 2015，核心问题是VBA原生Left函数不支持直接对整列数组做批量处理：WorksheetFunction.Index(ds,0,col1)返回的是一列二维数组，但Left只会处理数组的第一个元素，导致后续拼接的数组维度不匹配，触发Unique函数的参数错误。

解决方案1：基于Excel数组函数（适合Excel 365/2021+） #

利用Application对象的函数支持数组操作的特性，替换VBA原生Left，同时调整Unique的调用方式，代码如下：

Function listUniqueCombination(ds As Variant, ByVal col1 As Long, ByVal col2 As Long, Optional numChars As Long = 999) As Variant
    Dim col1Arr As Variant, col2Arr As Variant
    Dim combinedArr As Variant
    
    ' 从数据集提取目标列的数组
    col1Arr = WorksheetFunction.Index(ds, 0, col1)
    col2Arr = WorksheetFunction.Index(ds, 0, col2)
    
    ' 用Application.Left批量截取col1前numChars字符，再与col2拼接
    combinedArr = Application.Left(col1Arr, numChars) & "##" & col2Arr
    
    ' 调用Application.Unique去重（避免WorksheetFunction直接抛出运行时错误）
    listUniqueCombination = Application.Unique(combinedArr)
End Function

关键调整点： #

• 用Application.Left替代VBA原生Left：前者支持对整列数组的每个元素批量执行截取操作
• 用Application.Unique替代WorksheetFunction.Unique：前者在参数异常时返回错误值而非直接崩溃，容错性更强

解决方案2：基于字典去重（兼容全版本Excel） #

如果需要兼容旧版Excel（无Unique函数），或者追求更稳定的内存操作，用Scripting.Dictionary实现去重，效率同样能满足60万行数据的需求：

Function listUniqueCombination(ds As Variant, ByVal col1 As Long, ByVal col2 As Long, Optional numChars As Long = 999) As Variant
    Dim dict As Object
    Dim i As Long, lastRow As Long
    Dim key As String
    
    ' 创建字典对象（自动保证键的唯一性）
    Set dict = CreateObject("Scripting.Dictionary")
    lastRow = UBound(ds, 1)
    
    ' 遍历数据集，生成拼接键并加入字典
    For i = 1 To lastRow
        key = Left(ds(i, col1), numChars) & "##" & ds(i, col2)
        ' 字典自动忽略重复键，无需额外判断
        dict(key) = Empty
    Next i
    
    ' 将字典的唯一键转置为列数组返回
    listUniqueCombination = WorksheetFunction.Transpose(dict.Keys)
End Function

优势： #

• 兼容性拉满，支持所有带VBA的Excel版本
• 内存级操作，遍历60万行的速度接近Unique函数，且不会出现数组维度不匹配的问题

注意事项 #

1. 确保ds是已经加载到内存的二维数组（比如通过Range.Value读取），避免频繁读写工作表
2. 如果numChars超过col1单元格字符串长度，Left会返回完整字符串，无需额外处理
3. 方案1仅支持Excel 365/2021及以上版本，方案2无版本限制

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