怎样在excel的vb中实行在某个列范围内选中一个固定字母值得数据所在的行并执行删除该

jiejie33

　　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 IEnd Sub

春风风风

安全无副作用，能让男人“硬度”强三倍，你还等什么？--------丽科吉www.hnlikeji.com/