根据两个不同的条件突出显示行-更新＃2

Question

（（（该帖子已从原始帖子中更新）

这是我到目前为止所拥有的：

Sub Erail_Customer_Macro1()
'
Dim rg As Range
Set rg = Range("A1:J500") 'changed to fit with the columns in your picture.

For Each Row In rg.Rows

  If (rg.Cells(Row.Row, 1).Value = "CUPE33" And rg.Cells(Row.Row, 8).Value = "QUIMA") Or (rg.Cells(Row.Row, 1).Value = "CUPE33" And rg.Cells(Row.Row, 8).Value = "CHLMA") Then
    cell.EntireRow.Interior.Color = vbRed
  End If

  Next Row

End Sub

我已将代码更新为您在上面看到的代码。它不会给我一个错误，但是也不会根据条件突出显示行。

在运行宏之前，我已经附上了单元格的屏幕截图，以及以后需要它们显示的内容。

随着时间的推移，我能够添加越来越多的条件仍然很重要。

在运行上面的宏之前（之后看起来相同，没有任何变化）

这就是我需要的样子。而且，我希望能够随着时间的推移添加越来越多的条件，以检查A列和H列之间的更多组合。我想我可以通过添加更多或条件（使用诸如_的下划线）来实现此目的。

Answer 1

只需按照您告诉我们的方法来编写代码即可：

if (RTED2 and WARMI) or (AMRPN and ABBSC) then

这当然是伪代码，但很可能会明白这一点

Answer 2

已更新您发布的值：

Sub Erail_Customer_Macro1()
'
Dim rg As Range
Dim Row as Range
Set rg = Range("A1:J500") 'changed to fit with the columns in your picture.

For Each Row In rg.Rows

  If (rg.Cells(Row.Row, 1).Value = "CUPE33" And rg.Cells(Row.Row, 8).Value = "QUIMA") _
     Or (rg.Cells(Row.Row, 1).Value = "CUPE33" And rg.Cells(Row.Row, 8).Value = "CHLMA") _
  Then
    Row.EntireRow.Interior.Color = vbRed
  End If

Next Row

End Sub