如何搜索包含「文本」的特定列並刪除不包含搜索的所有行

Question

VBA代碼的下面是查找文本和刪除行。但它是基於整張表格進行搜索。

我如何使它只搜索「特定的列」與列出的文字陣列和刪除包含文本行。

根據下面的代碼，它是搜索我不想要的整個工作表。

Sub DeleteSystemMessage() 
    Dim varList As Variant 
    Dim varQP As Variant 
    Dim lngarrCounter As Long 
    Dim rngFound As Range, rngToDelete As Range 
    Dim strFirstAddress As String 

    Application.ScreenUpdating = False 


'delete system message 
    varList = VBA.Array("XXXXXX", vbTextCompare) 

    For lngarrCounter = LBound(varList) To UBound(varList) 
     With Sheet1.UsedRange 
      Set rngFound = .Find(_ 
           What:=varList(lngarrCounter), _ 
           Lookat:=xlWhole, _ 
           SearchOrder:=xlByRows, _ 
           SearchDirection:=xlNext, _ 
           MatchCase:=False) 

      If Not rngFound Is Nothing Then 
       strFirstAddress = rngFound.Address 

       If rngToDelete Is Nothing Then 
        Set rngToDelete = rngFound 
       Else 
        If Application.Intersect(rngToDelete, rngFound.EntireRow) Is Nothing Then 
         Set rngToDelete = Application.Union(rngToDelete, rngFound) 
        End If 
       End If 

       Set rngFound = .FindNext(After:=rngFound) 

       Do Until rngFound.Address = strFirstAddress 
        If Application.Intersect(rngToDelete, rngFound.EntireRow) Is Nothing Then 
         Set rngToDelete = Application.Union(rngToDelete, rngFound) 
        End If 
        Set rngFound = .FindNext(After:=rngFound) 
       Loop 
      End If 
     End With 
    Next lngarrCounter 

    If Not rngToDelete Is Nothing Then rngToDelete.EntireRow.Delete 
Application.ScreenUpdating = True 


End Sub 

Answer 1

如果您更改自己的搜索代碼，它將只搜索「A」列。

Set rngFound = Sheets(1).Columns("A:A").Find(_ 
          What:=varList(lngarrCounter), _ 
          LookAt:=xlWhole, _ 
          SearchOrder:=xlByRows, _ 
          SearchDirection:=xlNext, _ 
          MatchCase:=False)