I5:I700动态显示的公式

玉阳山人

各位大神老师，请看附件 求I列动态显示的公式.zip (23.41 KB, 下载次数: 14)

2018-1-16 14:45 上传

点击文件名下载附件

    按里面的要求编写I列公式【由于实际工作表行数很多，请避免使用随数据递增范围扩大而导致运算速度下降的函数】

sdc3211772

K5：=IFERROR(1/(1/INDEX(E:E,SMALL(IF(ROW($5:501)<=COUNT(E:E)+4,IF(FREQUENCY(-$E$5:$E500-0.9,-$E$5:$E500-ROW($5:500)%%%),ROW($5:500),1),1=2),ROW(A1)))),"")  三键
L5：=IF(K5="","",COUNT(K:K)+1-COUNT(K$5:K5))

sdc3211772

VBA:
Sub ddddd()

Dim d As Object, arr, i%, n%, ar
Set d = CreateObject("scripting.dictionary")
arr = Range("e1", Cells(Rows.Count, "e").End(xlUp))
Range("k5:l10000").ClearContents
For i = UBound(arr) To 1 Step -1
    d(arr(i, 1)) = ""
    If d.Count = Cells(3, "i") Then Exit For
Next
For i = UBound(arr) To UBound(arr) - d.Count + 1 Step -1
    n = n + 1
    ar = d.keys
    Cells(i, "k") = ar(n - 1)
    Cells(i, "l") = n
Next
End Sub

玉阳山人

sdc3211772 发表于 2018-1-16 17:21
VBA:
Sub ddddd()

老师：我对VBA是门外汉。由于此公式在工作表中要经常使用。能否改为自定义函数   DAOXU(指定列区域）。
      如数据源在B列，工作表数据输入范围是B5:B10000,C5:C10000为倒序显示列，则输入自定义函数DAOXU的区域数组公式 =DAOXU(B5:B10000),C列便可动态显示。

玉阳山人

sdc3211772 发表于 2018-1-16 17:21
K5：=IFERROR(1/(1/INDEX(E:E,SMALL(IF(ROW($5:501)

为什么L5：=IF(K5="","",COUNT(K:K)+1-COUNT(K$5:K5))的公式引用列修改为=IF(H5="","",COUNT(H:H)+1-COUNT(H$5:H5))就得不出正确结果，必须的依赖公式K5：=IFERROR(1/(1/INDEX(E:E,SMALL(IF(ROW($5:501)<=COUNT(E:E)+4,IF(FREQUENCY(-$E$5:$E500-0.9,-$E$5:$E500-ROW($5:500)%%%),ROW($5:500),1),1=2),ROW(A1)))),"")  三键

     才能得出正确结果。这是什么原因？

玉阳山人

忙活了大半天，突然脑子不犯迷糊了。G5  =IF(($C5="")+(ROW()<COUNT($C$5:$C$700)+5-$G$3),"",COUNT($C$5:$C$700)+5-ROW())  下拉，OK！