Excelmacros：列中最后一个非空单元格

这是一个后续问题。

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

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

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

 =GetLastValueInColumn('A') 

事实上，我需要将字母“A”转换成范围A：A，但不知道如何。

Answer 1

尝试一下，

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

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