从工作表定义数组在Filter()中报错：类型不匹配

这个问题我之前也踩过坑，核心原因其实很明确：从工作表单元格区域获取的数组是二维数组，而Filter函数要求传入的必须是一维数组——这就是你直接用secondarray = ("1", "2")（一维字面量数组）能正常运行，但用单元格区域赋值就报错的关键。

下面针对不同的单元格区域情况，给出具体的解决方案：

情况1：排除项存储在单列单元格（比如Sheet1的A1:A2） #

单列的二维数组可以通过Application.Transpose直接转成一维数组：

Dim secondarray As Variant
' 将单列单元格区域转成一维数组
secondarray = Application.Transpose(Sheet1.Range("A1:A2").Value)
' 此时可以正常调用Filter函数（False表示排除匹配项）
Dim filteredResult As Variant
filteredResult = Filter(yourSourceArray, secondarray, False)

情况2：排除项存储在单行单元格（比如Sheet1的A1:B1） #

单行的二维数组需要两次Transpose转换，或者用Index函数更稳妥（避免数据量较大时Transpose的限制）：

Dim secondarray As Variant
' 方法1：两次Transpose转一维
secondarray = Application.Transpose(Application.Transpose(Sheet1.Range("A1:B1").Value))
' 方法2：用Index函数直接提取单行的一维数组
secondarray = Application.Index(Sheet1.Range("A1:B1").Value, 1, 0)

额外注意事项 #

• 如果单元格区域存在空白单元格，转成数组后会包含空字符串""，可能干扰筛选结果，建议先清理空值：

  Dim tempArr As Variant, cleanArr() As String
  Dim i As Long, validCount As Long
  tempArr = Application.Transpose(Sheet1.Range("A1:A5").Value)
  
  validCount = 0
  For i = LBound(tempArr) To UBound(tempArr)
      If Trim(tempArr(i)) <> "" Then
          validCount = validCount + 1
          ReDim Preserve cleanArr(1 To validCount)
          cleanArr(validCount) = tempArr(i)
      End If
  Next i
  
  ' 使用清理后的数组作为筛选条件
  filteredResult = Filter(yourSourceArray, cleanArr, False)
  

• 确保yourSourceArray是一维字符串数组：Filter函数仅对字符串数组生效，如果源数组是数值类型，需要先转换为字符串数组。

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