Question

vba中函数使用数组问题

vba中函数使用数组问题我使用countif函数，定义范围的时候想用二维数组的第j列，我写的是a=Application.WorksheetFunction.Countif（WorksheetFouction.Index（data，0，j），1）其中data是二维数组名。请问错在哪里呢？

Answer 1

在工作表输入countif函数时候，第一个参数明确告诉你是range，如图

所以你那样引用是不对的，比如以下代码肯定是不行的

Sub test()
    Dim a
    a = Array(1, 2, 3)
    MsgBox Application.CountIf(a, 1)
End Sub

如果你要用这个函数，必须把数组写入单元格，再引用，如下

Sub test()
    Dim a
    a = Array(1, 2, 3)
    [A1:C1] = a
    MsgBox Application.CountIf(Range("A1:C1"), 1)
End Sub

追问

不想赋值，太影响速度了。大神有别的思路吗？对数组中的某一列进行条件筛选

追答

如果不想赋值，就放弃使用CountIf，使用循环遍历数组再判断