VBA：發現最後一排失敗，錯誤91

Question

我使用這個代碼http://ccm.net/faq/14494-vba-last-non-empty-row-all-versions

Function lastRow(sheet As Worksheet) As Long 

lastRow = sheet.Columns(1).Find("*", , , , xlByColumns, xlPrevious).Row 

End Function 

它的工作原理，如果表中包含的東西。如果它是空的或有內容，則會失敗，並顯示錯誤91（對象變量或未設置塊變量）。

爲什麼？

Answer 1

考慮：

Function lastRow(sheet As Worksheet) As Variant 
    Dim r As Range, lr As Long 
    Set r = sheet.Columns(1).Find("*", , , , xlByColumns, xlPrevious) 
    If r Is Nothing Then 
     lastRow = "Nothing in column" 
    Else 
     lastRow = r.Row 
    End If 
End Function