EXCEL函数公式高手请进，关于if判断公式的问题~

Question

判断B2:B30000最下面的一个非空单元格，是否等于 “完成”，如果不等于则返回0，如果等于，则返回，统计从最下面的“完成”往上，有多少个连续的“完成”

Answer 1

A1=LOOKUP(1,0/(A$2:A$30000<>""),ROW(A$2:A$30000))-LOOKUP(1,0/((A$2:A$30000<>"")*(A$2:A$30000<>"完成")),ROW(A$2:A$30000))向右复制

Answer 2

这个要用VBA处理，要写程序 吗？

追问

你帮我用vba写个

追答

下载附件，将你的B列内容粘贴，按按钮执行即可 。

Sub 按钮1_Click()
Dim lastrow As Integer, k As Integer, n As Integer
    lastrow = Cells(Rows.Count, 2).End(xlUp).Row
    If Cells(lastrow, 2) = "完成" Then
        k = 0
        n = lastrow
        Do While n > 1
            If Cells(n, 2) = "完成" Then
                k = k + 1
                n = n - 1
            Else
                Exit Do
            End If
        Loop
        MsgBox ("完成" & k & "´Î")
    Else
        MsgBox ("没有完成")
    End If
End Sub