VBA filter中数组的声明

erin373

filter函数产生的应该是数组，为社么Dim时 不能Dim ARR1(),而是必须是Dim ARR1 As Variant，不然就会提示type dismatch.谢谢各位！

Sub DD()
Dim Arr() As Variant
Dim ARR1 As Variant  '为社么不能Dim ARR1()
Dim ARR2 As Variant
Arr = Array("ABC", "A", "D", "CA", "ER")
ARR1 = VBA.Filter(Arr, "A", True) '筛选所有含A的数值组成一个新数组
ARR2 = VBA.Filter(Arr, "A", False) '筛选所有不含A的数值组成一个新数组
Debug.Print Join(ARR2, ",") '查看筛选的结果
End Sub

feiren228

Dim ARR1() 声明的是动态数组
在后面必须redim 指定大小

erin373

feiren228 发表于 2015-1-30 15:12
Dim ARR1() 声明的是动态数组
在后面必须redim 指定大小

我把 Dim ARR1 As Variant  改成 Dim ARR1() 就会报错，不知道原因

fxl447098457

filter得到是字符串数组
Dim ARR1() As String 就可以了。

lcs_2046

Dim arr1()定义了一个动态数组，不能直接赋值