Obj Var or With Block Var未設置

Question

我必須在2天內完成所有問題。但這裏還有一個。

我有一些代碼，有人幫助我，我得到一個對象變量錯誤。

Dim firstAddress As String 
Dim c As Range 
Dim rngToDelete As Range 

With Worksheets(5).Range("c1:c1500") 
    Set c = .Find("-", LookIn:=xlValues) 
    If Not c Is Nothing Then 
     firstAddress = c.Address 
     Do 
      If rngToDelete Is Nothing Then 
       Set rngToDelete = c 
      Else 
       Set rngToDelete = Union(rngToDelete, c) 
      End If 
      Set c = .FindNext(c) 
      If c Is Nothing Then Exit Do 
     Loop While c.Address <> firstAddress 
    End If 
End With 

If rngToDelete Is Nothing Then rngToDelete.EntireRow.Delete 

它是在最後rngToDelete.EntireRow.Delete

不知道擋出原因，只能認爲它可能有一些做的事實，沒有「 - 」被發現。

請幫忙。

Answer 1

必須顛倒的邏輯：

​​