Sub 宏1()
For I = 1 To 1000
If Range("A" & I) = "D" Then
Rows(I & ":" & I).Delete Shift:=xlUp
I=I-1 '因为删了一行,所以对上移的一行重新检查
END IF
Next I
End Sub
**********************************
Sub 宏1()
For I = 1 To 200
If Range("K" & I) = "D" Then 'D是您指定的字符
Rows(I & ":" & I).Delete Shift:=xlUp
I=I-1 '因为删了一行,所以对上移的一行重新检查
END IF
Next I
End Sub
内容全部来源于网络收集，如有侵权，请联系网站删除：QQ：24596024