如何获得列中的第一个非空单元格？

Question

如果一个单元格是空的，我希望它在上面的单元格中查找。如果那个是空的，它将在上面的单元格中查找，直到找到一个非空单元格。当它发生时，它应该返回它。这将是一个名为loopUp 的UDF。然后，当我在这样的单元格公式中使用它时：=loopUp(D24)，并且范围 D18:D24 为空，它将显示 D17 中的内容。

这里有一些伪：

Function loopUp(Cell)
    while Cell is empty
        Cell becomes cell above
    return cell

我是 VBA 新手。我坚持的事情是如何传递一个单元格的地址而不是它的值。

Answer 1

根据 Siddharth 的最后建议，这里有一个解决方法。

Function LoopUp(rng As Range) As Variant

Dim intCnt As Long

LoopUp = "Nothing found"

For intCnt = rng.Row To 1 Step -1
    If Not IsEmpty(Cells(intCnt, rng.Column)) Then
        LoopUp = Cells(intCnt, rng.Column)
        Exit For
    End If
Next


End Function

更新

这可能是一个更好、更简洁、更易于理解的解决方案。我测试了一下，但有人可能会破坏它！

Function LoopUp(rng As Range) As Variant

If Not IsEmpty(rng) Then LoopUp = rng
Else
    If rng.End(xlUp).Row = 1 Then LoopUp = "Nothing found" Else LoopUp = rng.End(xlUp)
End If 

End Function

Answer 2

Function LoopUp(rng as Range)
    With rng.Cells(1)
        If Len(.Value) > 0 Then
            Lookup = .Value
        Else
            LoopUp = .End(xlUp).Value
        End If
    End With
End Function

编辑：关于如果在传递的 Range 参数上方没有“非空”单元格会发生什么的讨论。由于 OP 没有指定在这种情况下应该发生什么，这只会返回一个空响应。

Answer 3

UDF 将如下所示：

Function loopUp(Cell)
  Do While IsEmpty(Cell)
    Set Cell = Cell.Offset(-1)
  Loop
  loopUp = Cell
End Function

请注意，只有当 Cell 本身发生变化时才会重新计算该函数，而不是当您更改 Cell 上方的范围（函数扫描）时，为了解决这个问题，添加第二个虚拟参数，该参数应设置为您的范围希望重新计算要监视的函数（为简单起见，可能是整个列）。