公式计算结果部分显示#N/A错误

13782671637

老师们：请看附件 公式计算结果显示错误.zip (722.36 KB, 下载次数: 7)

2018-3-26 13:02 上传

点击文件名下载附件

  为什么公式部分计算结果显示#N/A错误？

13782671637

老师帮帮忙吧！

看见星光

13782671637 发表于 2018-3-26 14:16
老师帮帮忙吧！

函数返回的结果没有那么多元素，对于多选择的单元格范围则范围错误值#N/A

jiangxiaoyun

Sub vf()
    Dim arr, brr()
    arr = Range("j5", [J1024768].End(3))
    Set d = CreateObject("scripting.dictionary")
    ReDim brr(1 To UBound(arr), 1 To 1)
    For i = 1 To UBound(arr)
        If Not d.exists(arr(i, 1)) Then
            d(arr(i, 1)) = i
        Else
            d(arr(i, 1)) = i - 1 - d(arr(i, 1))
            brr(i, 1) = d(arr(i, 1))
        End If
    Next

    [L5].Resize(UBound(brr), 1) = brr
End Sub

猜得，那函数就不要写了，浪费资源。

13782671637

看见星光 发表于 2018-3-26 15:11
函数返回的结果没有那么多元素，对于多选择的单元格范围则范围错误值#N/A

老师：怎样修改代码才能屏蔽此错误？

13782671637

jiangxiaoyun 发表于 2018-3-26 15:14
Sub vf()
    Dim arr, brr()
    arr = Range("j5", [J1024768].End(3))

老师：由于许多地方都要用到此函数，有时一个工作表里同时有几个列都要使用，把列标写进代码，使用起来不太方便啊！有没有便捷的方法？

jiangxiaoyun

http://club.excelhome.net/forum. ... p;page=1#pid9455028