Question

VBA删除指定条件的行

请教各位大神， 我想把E列以"HWI"开头的行（也就是我用黄色标出的行）删除，但是我的程序运行的时候一直报错，请帮忙看一下错在哪里，应该怎样改正。谢谢~Sub delete() Dim r, i r=Worksheets("sheet4").range("A1048576").End(xlup).Row For i=r to 2 step -1 If Left(Worksheets("sheet4").range(E & "i"),3)="HWI" Then Row(i).delete End if NextEnd sub()

Answer 1

应该这样
If Left(Worksheets("Sheet4").Range("E" & i), 3) = "HWI" Then
Rows(i).delete
但这个帆盯代码仅能在Sheet4为活动工作坦轿穗表时运行，如果在其它表让卜为活动工作表时，会删除其它表的行。

Answer 2

'问题1：做羡不能用delete关键字做过程纯蚂拍名
'问题2：end sub后不带括号
Sub dele()
    Sheets("sheet4").Select
    r = Range("A1048576").End(xlUp).Row
    For i = r To 2 Step -1
        If Left(Cells(i, 5), 3) = "HWI" Then
    物宏        Rows(i).delete
        End If
    Next
End Sub