一般采用倒序的方式：例如，将D列中为“否”的整行删除： Sub test() For i = Cells(Rows.Count, 4).End(xltoup).Row To 1 If Range("D" & i) = "否" Then Range("D" & i).EntireRow.Delete End If Next End Sub
