vba 删除特定列

光影以北

用vba删除Q列为空白的行，为什么这个命令只能删除一个空白行，最后结果还剩了一行？

Sub hong3()
Dim i As Long

  ir = Cells(Rows.Count, "Q").End(xlUp).Row
For i = 1 To ir

   If Cells(i, "Q").Value = "(空白)" Then
     Range("Q" & i & ": W" & i).Delete Shift:=xlUp
   End If
   
Next


End Sub

半百

for i = ir to 1 step -1

cjc209

顺序循环就要处理i值才行 顺序就要删除一行 i就要-1 就不会出现漏的情况