如何用VBA删除指定条件的行?
请参考下面的代码:
Sub test_del_blank()
Dim row2 As Integer, i As Integer
row2 = ActiveWorkbook.Worksheets(2).UsedRange.Rows.Count
'MsgBox "" & row2
For i = row2 To 2 Step -1 '删除行,要从后面往前删除,谨记
If Cells(i, "C") = "" Then '判断第三列是否为空
Rows(i).Delete '若为空,则删除
End If
Next
End Sub
需要注意:
写循环语句的时候,要倒着写,因为删除行要从后入前删除才行。
已有 0/17415 人参与