如果 Raw 中的单元格具有唯一值，则更改行行颜色答案

【问题标题】：Change row Row color if the cell in Raw has unique value如果 Raw 中的单元格具有唯一值，则更改行行颜色
【发布时间】：2016-07-03 07:50:34
【问题描述】：

如果行中的单元格有一些特殊值，我有一个代码来更改行颜色。但是现在如果单元格值的最后两个字母是“AP”，我需要更改行颜色。例如，如果 A 列中的任何单元格的值为 Orange11AP，则行颜色应更改为红色。我有点坚持单元格值，因为它是字母和数字的混合体。有人可以在这里帮助我吗？

【问题讨论】：

【解决方案1】：

假设cell 作为Range 变量在循环中保存当前单元格，您可能需要使用：

If Right(cell,2) = "AP" Then cell.EntireRow.Interior.Color = vbRed

【讨论】：

对不起，伙计们，我没有完全理解你。如果单元格 P 中有任何木板值，我当前的代码将更改单元格 D 的字体颜色。但现在我的要求更改为每当单元格 P 的值末尾有一个“AP”时，然后整行（从 A 到Q) 应变为红色。以下是我当前的代码
count2 = Range("F:F").SpecialCells(xlLastCell).Row
For n = 2 To count2
If Range("P" & n).Value = vbNullString Then
Range("D" & n).Font.Bold = True
Range("D" & n).Font.Color = RGB(0, 0, 255)

【解决方案2】：

为了安全起见，使其不区分大小写。

如果 LCase(Right(Activecell.Value,2)) = LCase("AP") 那么 Activecell.EntireRow.Interior.Color = vbRed

【讨论】：