再excel中vb编程

来源：百度知道 编辑：UC知道 时间：2024/05/27 05:12:07
请教各位大侠...怎样在excel的vb中实行在某个列范围内选中一个固定字母值得数据所在的行并执行删除该行命令...请大家share下程序代码谢谢...
大侠可以提供个msn我这边还是不能实现..谢谢

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