如果行中的单元格有一些特殊值，我有一个代码来更改行颜色。但是现在我需要更改行颜色，如果单元格值的最后两个字母是“AP”。例如，如果A列中的任何单元格的值为Orange11AP，则行颜色应更改为红色。我有点坚持单元格值，因为它是字母和数字的混合。有人可以帮助我吗？
答案 0 :(得分：0)
假设cell为Range变量，将当前单元格保存在循环中，您可能需要使用：
If Right(cell,2) = "AP" Then cell.EntireRow.Interior.Color = vbRed
答案 1 :(得分：0)
为了安全起见，使其不区分大小写。
如果LCase（右（Activecell.Value，2））= LCase（＆＃34; AP＆＃34;）那么Activecell.EntireRow.Interior.Color = vbRed