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

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 

UPDATE

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

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 

编辑：有周围是否有传递范围参数上面没有“非空”细胞会发生什么了一些讨论。由于OP没有具体说明这种情况会发生什么，这只是返回一个空的响应。

Answer 3

的UDF看起来就像这样：

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

注意，该功能将仅在细胞本身发生变化重新计算而不是当你改变上述单元格范围（该功能扫描），为了应付添加第二个虚拟参数，该虚拟参数应该设置为您要重新计算功能的范围（为简单起见，可能是整列）。