当我在VBA中删除debug.print时，我的代码没有被执行

Question

当我删除debug.print行时，我的代码完全跳过此循环。

For i = 2 To RowCount         
   temp1 = 0
   temp1 = InStr(Range("A" & i), "rj")
   If temp1 > 0 Then
      Rows(i).EntireRow.Delete
      Debug.Print i
      i = i - 1
  End If
Next i

Answer 1

试试这个

Dim lstRow As Long
lstRow = Sheet1.Range("A" & Rows.Count).End(xlup).Row

For i = lstRow To 2 Step -1          
  If InStr(Range("A" & i), "rj") > 0 Then
      Sheet1.Rows(i).EntireRow.Delete
  End If
Next i