在工作表函数中使用UDF返回值

Question

我创建了一个UDF，它返回特定列中最后一个填充的行。现在，它返回最后一个填充行的行号。我的问题是，如何在工作表函数中使用此值？

例如，=COUNTBLANK("B2:B&LastRow(2))，其中LastRow(2)返回一个整数。

Answer 1

首先是 UDF

Public Function LastRow(Rin As Range) As Long
    cl = Rin.Column
    LastRow = Cells(Rows.Count, cl).End(xlUp).Row
End Function

然后在工作表中使用它：

=COUNTBLANK(INDIRECT("B2:B"& LastRow(B:B)))

Answer 2

为什么在使用公式达到所需目的时使用VBA？

要获取列中的最后一行，请使用此公式。

=MATCH(9.9E+307,A:A,1)

以上将为您提供A列的最后一行

要将其与您的配方一起使用，请尝试此操作。

=COUNTBLANK(INDIRECT("B2:B"& MATCH(9.9E+307,B:B,1)))