excelvba 自定义函数不能返回正确值，总是返回0

youyouxiaoyu

  Public Function aa()
    Dim arr
    Dim r&, i&, n&, j&
        With Sheets("供应商信息")
            r = .UsedRange.SpecialCells(xlCellTypeLastCell).Row
            arr = .Range("a2:m" & r)
        End With
        ReDim brr(1 To UBound(arr), 1 To 10)
        For i = 1 To UBound(arr)
            If arr(i, 1) = "大连" And arr(i, 2) = "国际海运" Then
                n = n + 1
                For j = 1 To 10
                    brr(n, j) = arr(i, j + 3)
                Next
            End If
        Next
        aa = brr(1, 1)
End Function

microyip

没附件对照，不清楚。你可以设置断点，然后F8逐步执行看看原因

youyouxiaoyu

microyip 发表于 2018-8-18 12:44
没附件对照，不清楚。你可以设置断点，然后F8逐步执行看看原因

大神，我上传附件啊，我已经通过vba做了一个数组，但是自定义函数最后输出函数结果的时候无法给函数赋值，着急啊

youyouxiaoyu

大神，我上传附件啊，我已经通过vba做了一个数组，但是自定义函数最后输出函数结果的时候无法给函数赋值，着急啊
  管理
回复 编辑评分

youyouxiaoyu

microyip 发表于 2018-8-18 12:44
没附件对照，不清楚。你可以设置断点，然后F8逐步执行看看原因

大神一定要帮忙看看，我实在是搞不清楚为什么不能把数组某个数值定义给自定义函数输出？

microyip

最后一句

1. Sheets("查询").Range("c20").Resize(n, 2) = brr

复制代码