用于提取单元格值的 vba 访问函数

Question

我正在尝试编写一个函数，用于提取某个列的第一个先前的 valorized 单元格的单元格字符串值。

我试图更好地解释： 我有一个女巫专栏，并非所有的单元格都包含相同的值。 因此，如果我想构建一个接受参数 1 单元格的函数，例如'A5'。 如果进入 A5 单元格没有任何值，它会检查前一个单元格（A4）是否有一些值。如果再次失败，它会递归返回（A3..A2..A1）直到找到东西。

Public Function getPreviousValorizedCellValue(ByVal cell As Range) As String
If (cell.Value = "") Then
    Set cell = cell.Offset(-1, 0)
    getPreviousValorizedCellValue (cell)
Else: getPreviousValorizedCellValue = cell.Value
End If
End Function

它不起作用。 Excel给我错误

有什么想法吗？

Answer 1

试试这个：

Public Sub TestgetPrevious()
    Dim cell As Range

    Set cell = ActiveSheet.Range("A5")

    MsgBox getPreviousValorizedCellValue_v2(cell)
End Sub


Public Function getPreviousValorizedCellValue_v2(ByVal cell As Range) As String
    Debug.Print cell.Address

    If cell.Row <= 0 Then Exit Function

    If (Trim(cell.Value = "")) Then
        If cell.Row > 1 Then
            Set cell = cell.Offset(-1, 0)

            getPreviousValorizedCellValue_v2 = getPreviousValorizedCellValue_v2(cell)
        Else
            getPreviousValorizedCellValue_v2 = ""
        End If
    Else
        getPreviousValorizedCellValue_v2 = cell.Value
    End If

End Function

Answer 2

试试下面的代码。

Function Foo(iRange As Range)

For i = iRange.Row To 1 Step -1
    If Trim(Range("A" & i).Value) <> "" Then
        Foo = Range("A" & i).Value 'Put the code you want here
        Exit Function
    End If
Next i

End Function