VBA腳本在excel上刪除含特定字符串的行

-2

我目前正在寫一個在excel上刪除包含特定字符串的整行的宏的過程。我正在做一些數據分析，並希望過濾出一個不需要信息的電子表格。VBA腳本在excel上刪除含特定字符串的行

的任意例子：

我怎麼會去製作一個刪除行包括紅色，藍色和黃色的腳本？

2017-06-06 Kev5ter

告訴我們到目前爲止 –

你所寫的內容如果你不知道從哪裏開始，看字面此頁面上的「相關」的帖子中的任何。注意：你需要以相反的順序做這件事。從[this]開始（https://stackoverflow.com/questions/41023377/remove-duplicate-rows-excel-vba?rq=1），看看是否指向正確的方向。 –

搭載David - 每天至少有一篇文章要求刪除包含特定文本的行的代碼。幾乎可以肯定在某處找到一個工作示例。 – dwirony

我使用此代碼。

Sub test() 
    Dim rngDB As Range, rngU As Range, rngF As Range 
    Dim vColor, i As Integer, Adr As String 

    Set rngDB = ActiveSheet.UsedRange 
    vColor = Array("red", "yellow", "blue") 

    For i = 0 To UBound(vColor) 
     With rngDB 
      Set rngF = .Find(vColor(i), LookIn:=xlValues, Lookat:=xlWhole) 
      If rngF Is Nothing Then 
      Else 
       Adr = rngF.Address 
       Do 
        If rngU Is Nothing Then 
         Set rngU = rngF 
        Else 
         Set rngU = Union(rngU, rngF) 
        End If 
        Set rngF = .FindNext(rngF) 
       Loop Until Adr = rngF.Address Or rngF Is Nothing 
      End If 
     End With 
    Next i 
    If rngU Is Nothing Then 
    Else 
     rngU.EntireRow.Delete 
    End If 
End Sub

來源

2017-06-07 03:52:44

VBA腳本在excel上刪除含特定字符串的行

回答

相關問題