刪除行如果單元格包含「V」的Excel VBA

Question

我是新到Excel VBA和已經看過了一些關於這個問題和答案，但不明白爲什麼我的宏不工作。我有：

i = 1 
For Each row In ActiveSheet.UsedRange.Rows 
    'test for v in column f and delete if there isn't one 
    str = Cells(i, "F").Value 
    If InStr(1, str, "V") <> 0 Then 
     Debug.Print str 
    Else 
     Rows(i).Delete    
    End If 

這會打印出包含V的每個str，但不會刪除else之後的行。我錯過了什麼？我試過行（I）.EntireRow.Delete但也不能工作。

感謝

Answer 1

你是不是增加我和它沒有正確地與您的第一行初始化它的使用範圍行。所以，在你的情況下，始終停留在1

在許多情況下用for-each循環，你不會使用我計數器，但有時你會的。

解決方法：更換 與str = Cells(i, "F").Valuestr = range(row.row, "F").Value

與row.Delete

最後更換Rows(i).Delete，你需要一個next在年底或你會得到一個編譯錯誤。這將完成你的for-each循環。