VBA如果1列中的值大于另一列中的值，则删除整行

我是新来的VBA为Excel和我坚持一个小问题。 如果D列中的值大于E列中的值，我必须删除整行

数据列表非常长，我需要继续操作直到列C中的数据结束。 任何帮助将是伟大的！

Answer 1

删除行时，从底部开始并进行处理，或者由于与新删除的行关联的重新编号，您可能会跳过行。

Sub del_D_greater_than_E() Dim rw As Long With Worksheets("Sheet5") '<~~ set this properly! For rw = .Cells(Rows.Count, "C").End(xlUp).Row To 2 Step -1 If .Cells(rw, "D").Value2 > .Cells(rw, "E").Value2 Then .Rows(rw).EntireRow.Delete End If Next rw End With End Sub 

这应该足以让你开始。 在操作过程中，您可能需要closures屏幕更新和计算。