범위의 특정 텍스트가있는 셀 삭제

Question

범위가 5k 정도이므로 특정 텍스트가있는 셀을 제거하고 싶습니다. I.E. 그리고, a, is, that, or, with, 등등. 이것에 대한 방법이 있습니까? 도와주세요.

[A2].Select 
Range("A2", Selection.End(xlDown)).Select 

Dim crnge As Range 
Dim wdelim 
Dim rdelim 

wdelim = Split("on,the,this,in,at,of,for,what,w,all,on,with", ",") 

Set crnge = Selection 

For Each rdelim In wdelim 
    crnge.wdelim.Select 
    .Delete (xlUp) 
Next 

나는이 코드가 작동하지 않는다는 것을 알고있다. 이것은 내가하려는 것이지만 어떻게해야할지 모르겠다.

Answer 1

여기 배열의 각 요소에 대한 데이터를 필터링하고 보이는 셀의 전체 행을 모두 삭제합니다.

Sub DeleteFilteredRows() 
    Dim v 
    With Application 
     .ScreenUpdating = False 
     .Calculation = xlCalculationManual 
    End With 

    For Each v In Split("on,the,this,in,at,of,for,what,w,all,on,with", ",") 
     With Range("A1").CurrentRegion 
      On Error Resume Next 
      'If you want all rows that have any of this phrases anywhere in 
      'the cell use: Criteria1:="=*" & v & "*"        

      .AutoFilter Field:=1, Criteria1:="=" & v , Operator:=xlAnd 
      .Offset(1).SpecialCells(xlCellTypeVisible).EntireRow.Delete 
      On Error GoTo 0 
      .AutoFilter 

     End With 

    Next 

    With Application 
     .ScreenUpdating = True 
     .Calculation = xlCalculationAutomatic 
    End With 
End Sub