刪除行單元格中的內容與環

Question

我有以下幾點：

For i = 1 To 400: 
    If Cells(i, 7) = "Client" Then 
    Cells(i, 1).EntireRow.Delete 
    End If 
Next i 

問題是說，我有兩個小區（10,7）和細胞（11,7）Client。 行（10）被刪除後，行（11）變成新行（10），我正在尋找行（11）中的Client，我不會找到它（除非客戶端在行中）從一開始），所以我最終有很多行沒有刪除。

Answer 1

插入或刪除Excel表中的行應該從最後一行開始。

For i = 400 To 1 Step -1 
    If Cells(i, 7) = "Client" Then Cells(i, 1).EntireRow.Delete 
Next i 

Answer 2

如果你在if條件中減去變量i，它是否工作。

例子：

For i = 1 To 400 
    If Cells(i, 7) = "Client" Then 
     Cells(i, 1).EntireRow.Delete 
     i = i – 1 
    End If 
Next i