如何在VBA中正确执行Rows(Unique(Filter))函数？出现类型不匹配错误

你遇到的类型不匹配错误，核心原因是Excel公式和VBA对函数的处理逻辑不同：

• 在Excel单元格公式里，ROWS(UNIQUE(FILTER(...)))可以直接返回结果的行数，因为公式会自动把数组转换为可计算行数的对象；
• 但在VBA中，Application.Filter和Application.Unique返回的是Variant数组，而非Range对象，你试图用针对Range的.Rows方法去处理数组，自然会触发类型不匹配。

修正后的代码 #

Dim ldRng As Range
Dim filteredArr As Variant
Dim uniqueArr As Variant
Dim ans As Long

Set ldRng = ActiveSheet.ListObjects("TimeTable").ListColumns("Load ID").DataBodyRange

' 先过滤掉空值，得到非空值数组
filteredArr = Application.Filter(ldRng, ldRng)

If Not IsError(filteredArr) Then
    ' 对非空值数组去重
    uniqueArr = Application.Unique(filteredArr)
    ' 通过数组上下界计算行数
    ans = UBound(uniqueArr, 1) - LBound(uniqueArr, 1) + 1
Else
    ' 若过滤后无数据，行数设为0
    ans = 0
End If

If ans = 2 Then
    ActiveCell.Value = ActiveCell.Offset(-1, 0).Value + 1
    ActiveCell.Offset(0, 1).Value = mi.ReceivedTime
    ActiveCell.Offset(0, 2).Value = Replace(fName, ".pdf", ext, 1)
End If

关键说明 #

1. 数组处理逻辑：用UBound和LBound计算数组的行数，这是VBA中获取数组元素数量的标准方式，适配所有数组索引规则；
2. 空值校验：如果原区域全为空，Application.Filter会返回错误值，通过IsError判断可以避免运行时崩溃；
3. 变量类型优化：把ans改为Long类型（而非Variant），更符合行数的数值类型定义，减少类型转换问题。

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