VBA excel - 基于两列中两个值的语句结果删除整行

Question

如何使用For循环删除整行，该循环检查该行的两列中的值是否小于数字。这就是我在下面的内容。

For Each row In Sheet4.Range("A6:AJ500").Cells
    If Columns("G").value < 500 And Columns("J").value < 50 _
    Then row.EntireRow.Delete
    Next

Answer 1

你需要向后循环：

Sub foo()
  For i = 500 To 6 Step -1
    If Cells(i, "G") < 500 and Cells(i, "J") < 50 Then
      Rows(i).Delete
    End If
  Next i
End Sub