[已解决]为什么显示类型不匹配？

可可豆

Dim arr1
Dim arr2
Dim i As Integer

arr1 = Range("C4:C" & [C65536].End(xlUp).Row)
arr2 = Range("F4:F" & [F65536].End(xlUp).Row)
For i = 1 To UBound(arr2)
  arr1 = Filter(arr1, arr2(i, 1), False)
Next

运行到倒数第二行时，显示错误 '13'  类型不匹配

怎么改呀？

最佳答案

月排行榜 / 总排行榜

爱疯

2010-3-21 09:22

QUOTE:

以下是引用可可豆在2010-3-21 8:41:00的发言：

Dim arr1
Dim arr2
Dim i As Integer

arr1 = Range("C4:C" & [C65536].End(xlUp).Row)
arr2 = Range("F4:F" & [F65536].End(xlUp).Row)
For i = 1 To UBound(arr2)
  arr1 = Filter(arr1, arr2(i, 1), False)
Next

运行到倒数第二行时，显示错误 '13'  类型不匹配

怎么改呀？

如果sourcearray是Null或不是一个一维数组，则产生错误。

Sub aaa()
    Dim arr1
    Dim arr2
    Dim i As Integer

    arr1 = Application.Transpose(Range("C4:C" & [C65536].End(xlUp).Row))
    arr2 = Application.Transpose(Range("F4:F" & [F65536].End(xlUp).Row))
    For i = 1 To UBound(arr2)
        arr1 = Filter(arr1, arr2(i), False)
    Next
'    MsgBox Join(arr1)
End Sub

跳转到最佳答案楼层

枯禅

Filter的语法是：Filter(sourcesrray, match[, include[, compare]])

1、sourcesrray应该是一个一维数组，你的是两维

[此贴子已经被作者于2010-3-21 9:22:12编辑过]

爱疯

QUOTE:

以下是引用可可豆在2010-3-21 8:41:00的发言：

Dim arr1
Dim arr2
Dim i As Integer

arr1 = Range("C4:C" & [C65536].End(xlUp).Row)
arr2 = Range("F4:F" & [F65536].End(xlUp).Row)
For i = 1 To UBound(arr2)
  arr1 = Filter(arr1, arr2(i, 1), False)
Next

运行到倒数第二行时，显示错误 '13'  类型不匹配

怎么改呀？

如果sourcearray是Null或不是一个一维数组，则产生错误。

Sub aaa()
    Dim arr1
    Dim arr2
    Dim i As Integer

    arr1 = Application.Transpose(Range("C4:C" & [C65536].End(xlUp).Row))
    arr2 = Application.Transpose(Range("F4:F" & [F65536].End(xlUp).Row))
    For i = 1 To UBound(arr2)
        arr1 = Filter(arr1, arr2(i), False)
    Next
'    MsgBox Join(arr1)
End Sub

依依不舍

[em04]哦，看明白了

dengqun

好长呀，不怎么看懂呀[em03]

可可豆

谢谢枯禅和爱疯