基於條件值填充刪除行

我目前正在進行數據庫分析，並且我有一個填充單元格紅色的條件格式規則。我需要刪除整行鍼對該小區是紅色的，我能夠這樣做，如果該細胞是通過條件值的規則手工而不是充滿了色彩，這是我現在所擁有的：基於條件值填充刪除行

Sub delteRed() 

    Dim xRg As Range, rgDel As Range 
    Sheets("Hoja1").Select 
    For Each xRg In ThisWorkbook.ActiveSheet.Range("A2:A21") 
    If xRg.Interior.ColorIndex = 3 Then 
     If rgDel Is Nothing Then 
      Set rgDel = xRg 
     Else 
      Set rgDel = Union(rgDel, xRg) 
     End If 
    End If 
Next xRg 
If Not rgDel Is Nothing Then rgDel.EntireRow.Delete 

End Sub

來源

2017-08-10 SSU453

您可以創建一個按顏色過濾，隱藏這些紅色行的過濾器。如果您需要徹底清除它們，只需將可見單元格複製到新頁面？（只是VBA的替代解決方案）。另外，你使用的是什麼條件格式規則？ – BruceWayne

在VBA子程序中，您可以使用DisplayFormat來確定已由CFR調整的單元格的顏色。

If xRg.DisplayFormat.Interior.ColorIndex = 3 Then

DisplayFormat不能在UDF中使用。

來源

2017-08-10 21:31:44 Jeeped

工作完美！ – SSU453

基於條件值填充刪除行

回答

相關問題