小编use*_*838的帖子

有人请帮忙.我正在尝试编写一个VBA代码,在我的Excel工作表列"D"中搜索特定单词"DR",然后删除整行.工作表中出现了大量特定单词.我想要做的就是搜索这些事件,然后删除包含这些单词的整个行.我的问题是我不确定要使用什么循环结构.下面是我正在使用的代码.

    Columns("D:D").Select
    Cells.Find(What:="DR", After:=ActiveCell, LookIn:=xlFormulas, LookAt:= _
        xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False _
        , SearchFormat:=False).Activate

    Do
    Cells.Find(What:="DR", After:=ActiveCell, LookIn:=xlFormulas, LookAt:= _
        xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False _
        , SearchFormat:=False).Activate


   ActiveCell.EntireRow.Delete

Loop While (Cells.Find(What:="DR"))

我很乐意提供帮助.