创建求遗漏分区和剩余期数的自定义函数

WYS67

坐等。千万不敢沉了！恳请老师们帮忙写个自定义函数

lss001

以前已经有了，把它复制一下就行了
Function YILOUQY(aa As Range, ab As Range, a)
Dim ar, br, fr, gr, i&, j&, k&
    ar = aa: ReDim fr(1 To UBound(ar), 0)
    For k = UBound(ar) To 1 Step -1
        If ar(k, 1) <> "" Then Exit For
        fr(k, 0) = ""
    Next
    br = ab: ReDim gr(0 To UBound(br)): gr(0) = 0
    For i = 1 To UBound(br): gr(i) = br(i, 1): Next
    For i = 1 To k
        For j = 1 To UBound(gr)
            If ar(i, 1) > gr(j - 1) And ar(i, 1) <= gr(j) Then
                If a = 1 Then fr(i, 0) = j - 1
                If a = 2 Then fr(i, 0) = gr(j) - ar(i, 1)
                If a < 1 Or a > 2 Then fr(i, 0) = ""
            End If
        Next
        If ar(i, 1) = "" Then fr(i, 0) = ""
    Next
    YILOUQY = fr
End Function

yjh_27

参见附件。

WYS67

lss001 发表于 2018-12-11 13:13
以前已经有了，把它复制一下就行了
Function YILOUQY(aa As Range, ab As Range, a)
Dim ar, br, fr, gr, ...

已测试，结果正确，速度很快！只是当数据源是单元格调用或指定数值时，无法用普通公式计算，略有遗憾。
     但感念老师一直以来对我的默默帮助和关心，仍然万分感激老师！

WYS67

yjh_27 发表于 2018-12-11 13:32
参见附件。

已测试过，代码非常完美地实现了我心中所想！谢谢老师了！