要*号通配符。这里筛选包括"轻"字的行。
Dim x
x = "轻"
ActiveSheet.Range("$A$1:$A$4").AutoFilter Field:=1, Criteria1:="=*" & x & "*", _
Operator:=xlAnd
if (InStr(Cells(？，？), i) <> 0) then
cells(?,?).Interior.ColorIndex = 3
endif
以上代码是cells（？，？）中有i，那个cells（？，？）单元格变色
内容全部来源于网络收集，如有侵权，请联系网站删除：QQ：24596024