比较两个单元格的颜色并删除行

Question

我正在尝试突出显示工作表单元格中包含相同红色字符串的两列中的单元格，然后删除包含具有两个红色单元格的行的所有行。

这是我到目前为止提出的。第一阶段有效，但后来我尝试比较两个单元格的颜色，但没有成功。

Option Explicit

Sub Macro1()

Dim WhatFor As String

WhatFor = InputBox("Enter your search word to highlight", "Search Criteria")
If WhatFor = Empty Then Exit Sub

Range("A1").Select
Selection.CurrentRegion.Select
Selection.FormatConditions.Add Type:=xlTextString, String:=WhatFor, _
  TextOperator:=xlContains
Selection.FormatConditions(Selection.FormatConditions.Count).SetFirstPriority

With Selection.FormatConditions(1).Font
    .Color = -16383844
    .TintAndShade = 0
End With
With Selection.FormatConditions(1).Interior
    .PatternColorIndex = xlAutomatic
    .Color = 13551615
    .TintAndShade = 0
End With
Selection.FormatConditions(1).StopIfTrue = False

End Sub


Sub Macro2()

Dim i As Integer
Dim cell As Range

cell = ActiveWorkbook.ActiveSheet.Range

i = 1

Do While Cells("A, i").Value <> ""

    If cell("A, i").Interior And cell("F, i").Interior = 13551615 Then:      
        Rows(i).EntireRow.Delete
    End If

    i = i + 1

Loop

End Sub

Answer 1

您的代码中的错误在于您的 IF 语句：

  If (Cells(i, "A").Interior.Color = 13551615) And (Cells(i, "F").Interior.Color = 13551615) Then

应该是：

If (cell("A, i").Interior = 13551615) And (cell("F, i").Interior = 13551615) Then:

很遗憾，条件格式不会影响 .InteriorColor。它确实改变了单元格的颜色，但我们不能这样检查。

目前无法检查实际显示的颜色。

可以构建一个函数来模拟单元格的所有条件格式的条件，但只要 Microsoft 为条件格式添加另一种类型的条件，就必须更新该函数。可以找到一个非常好的示例：here:（请注意，此函数返回 colorindez 而不是颜色）

---

另一个逻辑问题是删除行的方式：

'This method does not check each row!
i = 1
Do While Cells(i, "A").Value <> ""
    If '<your condition>
        Rows(i).EntireRow.Delete
    End If
i = i + 1
Loop

假设i = 5，并且您想删除该行。 原来的第5行被删除，第6行变成第5行，第7行变成第6行，以此类推

然后 i 变为 6，然后您检查该行（最初是第 7 行 ...）

这样一来，原来的第 6 行就永远不会被检查...

在这种情况下，通常最好从最后一行开始，然后向上工作。或者您可以使用.rows 属性和FOR EACH 构造：

Dim row As Range

For Each row In [A1].CurrentRegion.Rows
  If Intersect(row, [B:B]).Value Like "*" & WhatFor  & "*" Then
    row.Delete
  End If
Next row

（此版本只检查1列，以B列为例）

---

但是，您的问题的答案是 jsotola 所说的： “给单元格着色完全没有意义？只需删除行”——jsotola 17 分钟前

---

如果我想删除行而不给单元格着色 - 基本代码应该如何？我需要比较“搜索”中的单元格而不是“相等”。仅比较每个单元格中的部分字符串。

谢谢 :-) - yaeer，1 分钟前