Excel宏：列中的最后一个非空单元格

Question

这是this one的后续问题。

以下公式可用于在Microsoft Excel中查找列中最后一个非空单元格的值：

=LOOKUP(2,1/(A:A<>""),A:A)

我的问题是，如何将此公式转换为宏函数？所以我可以像这样使用它：

=GetLastValueInColumn('A')

确实，我需要转换字母“A＆＃39;范围A：A，但不知道如何。

Answer 1

尝试类似的事情，

Function GetLastValueInColumn(sCOL As String)
    GetLastValueInColumn = Parent.Cells(Rows.Count, sCOL).End(xlUp).Value
End Function

对 Parent 的调用应解析为调用该函数的工作表。如果需要从VBA中调用此函数，可以扩展此函数的行为以解决另一个工作表或ActiveSheet。