每次数据更新后，T列自定义函数DPBCF的计算结果就会显示#VALUE!错误

WYS67

福彩 3D开奖数据.zip (741.22 KB, 下载次数: 227)

2021-3-19 15:06 上传

点击文件名下载附件

如截图所示，T列是自定义函数DPBCF的计算结果。

    为什么每次点击B1的更新数据按钮后，T列的计算结果就会显示#VALUE!错误？必须重新选定区域数组公式{  =DPBCF(S3:S8000)  ， 三键确定后，方能再次显示正确的计算结果【好像是不能自动更新计算结果】。

请老师们看看下面的代码，怎样修改代码，才能在每次点击B1的更新数据按钮后，都可以显示正确的计算结果？


Public Function DPBCF(rg As Range, Optional c As Variant) As Variant
    Dim arr, i, d As Object, r, brr, m, k
    Set d = CreateObject("scripting.dictionary")
    arr = rg.Value
    ReDim brr(1 To UBound(arr), 1 To 1) As Variant
    If IsMissing(c) Then c = rg.Find("*", , xlValues, 1, , 2).Row
    k = c - Application.ThisCell.Row + 1
    m = rg.Count
    For i = k + 1 To m Step 1
        brr(i, 1) = ""
    Next
    For i = m To 1 Step -1
        If arr(i, 1) <> "" And Not d.exists(arr(i, 1)) Then
            d(arr(i, 1)) = ""
            brr(k, 1) = arr(i, 1)
            k = k - 1
        End If
    Next
    For i = k To 1 Step -1
    brr(i, 1) = ""
    Next
    DPBCF = brr
End Function

WYS67

请老师们看看，怎样才能解决1楼提到的问题？

microyip

这么直接找论坛的人帮你们论坛办事？

lss001

把  If IsMissing(c) Then c = rg.Find("*", , xlValues, 1, , 2).Row
改为 If IsMissing(c) Then c = [a3].End(4).Row
Find查找地址一般用于Sub过程，函数Function不建议使用

lss001

WYS67 发表于 2021-3-19 17:02
请老师们看看，怎样才能解决1楼提到的问题？

见楼上分析......................................

WYS67

lss001 发表于 2021-3-24 14:35
见楼上分析......................................

修改后可以自动更新了。感谢老师！

玉阳山人

lss001 发表于 2021-3-23 02:08
把  If IsMissing(c) Then c = rg.Find("*", , xlValues, 1, , 2).Row
改为 If IsMissing(c) Then c = [a3 ...

如上图所示--代码中的语句  If IsMissing(c) Then c = rg.Find("*", , xlValues, 1, , 2).Row  执行C列的倒排不重复数据 （省略第二参数时）可以正确显示，就是会发生如1楼描述的错误--每次点击B1的更新数据按钮后，T列的计算结果就会显示#VALUE!错误？必须重新选定区域数组公式{  =DPBCF(S3:S8000)  ， 三键确定后，方能再次显示正确的计算结果【好像是不能自动更新计算结果】。


  改为 If IsMissing(c) Then c = [a3].End(4).Row  后，1楼的问题是解决了，却出现了错误：选定C5:C100，输入区域数组公式{  =DPBCF($A5:$A100)【如此省略第二参数后，就会发生#VALUE!错误】



  老师：麻烦您看看，应该怎样修改代码，才能既能解决1楼问题，又不会发生如本楼截图C列出现的#VALUE!错误？

玉阳山人

请老师们看看7楼的问题怎样解决？

玉阳山人

有没有办法使代码能够兼容1楼和7楼的的意外情况，两全其美？

lss001

Public Function DPBCF(rg As Range, Optional c As Variant) As Variant
    Dim arr, brr, i&, j&, k&, m&, n&, d As Object
    Set d = CreateObject("scripting.dictionary")
    arr = rg.Value
    ReDim brr(1 To UBound(arr), 1 To 1) As Variant
    m = rg.Count: n = Application.ThisCell.Row
    For j = n To m
        If Cells(j, rg.Column) = "" Then Exit For
    Next
    If IsMissing(c) Then c = j - 1
    k = c - Application.ThisCell.Row + 1
    For i = k + 1 To m Step 1
        brr(i, 1) = ""
    Next
    For i = m To 1 Step -1
        If arr(i, 1) <> "" And Not d.exists(arr(i, 1)) Then
            d(arr(i, 1)) = ""
            brr(k, 1) = arr(i, 1)
            k = k - 1
        End If
    Next
    For i = k To 1 Step -1
    brr(i, 1) = ""
    Next
    DPBCF = brr
End Function