運行時錯誤91當試圖找到

Question

我運行時出現運行時錯誤91。誰能告訴我我要去哪裏？

Sub deletingstuff2() 

Application.ScreenUpdating = False 
Dim i As Long, lngEndRowInv As Long, wsh As Worksheet 
Set wsh = ThisWorkbook.ActiveSheet 
i = 1 
lngEndRowInv = wsh.Range("C" & Rows.Count).End(xlUp).Row **<<ERROR IS HERE** 

While i <= lngEndRowInv 
If Cells(i, "C") = "Blue" Then 
Cells(i, "C").EntireRow.Delete 
ElseIf Cells(i, "C") = "Diamond" Then 
Cells(i, "C").EntireRow.Delete 
i = i - 1 
lngEndRowInv = lngEndRowInv - 1 
End If 
i = i + 1 
Wend 
end sub 

Answer 1

顯然你的意思wsh.Rows.Count，不Rows.Count。