GBKEE

Sub yy()
    Dim x$, i%, c As Range
    x = "QWERT"
    For Each c In Range("c:c").SpecialCells(xlCellTypeConstants)
        i = InStr(x, UCase(c))
        If i Then c(1, -1).Resize(, 3).Interior.ColorIndex = i + 2
    Next
End Sub

GBKEE

¦^´_ 8# mark15jill

1. Sub Ex()
   
2.     Dim x(), i, c As Range
   
3.     x = Array("³¯¤@", "®}¤G", "±i¤T", "§õ¥|", "¤ý¤­")
   
4.     For Each c In Range("c:c").SpecialCells(xlCellTypeConstants)
   
5.         i = Application.Match(c, x, 0)
   
6.         If IsNumeric(i) Then c(1, -1).Resize(, 3).Interior.ColorIndex = i + 2  '¦â½L¤¤ªº¯Á¤Þ­È
   
7.     Next
   
8. End Sub

½Æ»s¥N½X