如何获取某个范围内具有velue Excel VBA的最后一行

Function GetLastRowWithValues(rng As Range) As Long
    Dim lastRow As Long
    lastRow = rng.Rows.Count
    
    While rng.Cells(lastRow, 1).Value = "" And lastRow > 1
        lastRow = lastRow - 1
    Wend
    
    GetLastRowWithValues = lastRow
End Function

Sub Test()
    Dim lastRow As Long
    Dim rng As Range
    
    ' 假设数据范围是A1:A10
    Set rng = Range("A1:A10")
    
    lastRow = GetLastRowWithValues(rng)
    
    MsgBox "具有value的最后一行是：" & lastRow
End Sub