黑白鱼
VBA之删除符合条件的行
2018-10-20 shubiao05


       如何用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

    需要注意:

    写循环语句的时候,要倒着写,因为删除行要从后入前删除才行。