求助vbA自定义函数实现筛选功能，返回值全为0

a704019026

这是我的代码：
Function Wlookup(V, vY, vh, Optiona)
Dim arr, arr1, arr2()
Dim k As Integer
arr = vY
arr1 = vh
For x = 1 To UBound(arr1)
    If arr(x, 1) = V Then
         k = k + 1
        ReDim arr2(1 To k, UBound(arr1, 2))
         arr2(k, UBound(arr1, 2)) = arr1(x, UBound(arr1, 2))
     End If
  Next x
Wlookup = arr2
End Function

现在运行函数返回的结果全为0，如图错误结果。怎样修改代码，使返回的结果正确  如图正确  谢谢各位......
目前的函数结果全为0如下图  需要各位帮忙修改代码

想要的函数结果如下图

cui26896

这个帖的问题，我在EH中好象回复过了吧。

蜀西

学习了！！！！！