Sub SSK()
Dim i As Integer
Dim MyKeys
'建立要bai设置颜色的文本数组
MyKeys = Array("妯","碡","轴","鵙","局","菊","橘","局","镞","卒","族","足","术","竺","舳","筑","躅","烛","逐","竹","俗","秫","塾","孰","赎","熟","蹼","濮","醭","璞","仆","觳","斛","鹘","骨","氟","讣","茯","艴","怫","黻","蝠","匐","洑","绂","祓","绋","佛","幞","袱","辐","幅","拂","伏","服","福","顿","髑","黩","讟","椟","渎","犊","牍","独","毒","读","裼","隰","檄","熄","锡","媳","袭","习","席","殛","戢","鶺","蒺","踖","墼","芨","嫉","藉","革","亟","棘","汲","岌","笈","唧","脊","辑","楫","瘠","籍","急","及","即","吉","集","疾","级","极","靮","蹢","嫡","镝","翟","觌","籴","狄","迪","荻","的","涤","笛","敌","荸","踯","摭","埴","掷","跖","侄","职","执","殖","植","值","直","什","十","拾","蚀","识","实","食","石","噱","学","絜","勰","颉","胁","协","苶","倔","爝","劂","桷","攫","觖","孓","珏","玦","潏","鴂","獗","鐍","屩","噱","橛","掘","嚼","抉","崛","蕨","厥","谲","诀","爵","绝","决","觉","脚","颉","拮","桔","讦","桀","撷","疖","孑","诘","碣","睫","捷","劫","竭","截","节","杰","洁","结","跕","咥","垤","昳","瓞","鲽","耋","蹀","喋","碟","谍","堞","牒","迭","叠","蝶","蹩","别","晢","蜇","翟","辙","辄","磔","蛰","宅","谪","折","哲","啧","咋","鲗","舴","帻","赜","择","贼","泽","则","折","舌","揢","壳","咳","鹖","盍","纥","貉","龁","阖","翮","核","劾","盒","涸","鬲","嗝","膈","轕","骼","蛤","隔","葛","革","阁","格","额","德","得","作","昨","浞","鷟","诼","擢","缴","琢","啄","着","茁","濯","斫","浊","酌","橐","膜","帼","掴","国","佛","凙","铎","夺","铂","僰","襮","餺","镈","荸","浡","孛","渤","鹁","怫","礴","踣","搏","钹","勃","雹","膊","舶","帛","驳","箔","柏","百","白","薄","伯","喋","轧","炸","扎","札","闸","砸","杂","挟","呷","黠","柙","硖","狎","辖","匣","狭","侠","恝","鵊","蛱","戛","颊","荚","铗","浃","划","猾","轧","茷","垡","阀","筏","罚","伐","乏","笪","鞑","繨","瘩","怛","答","达","察","魃","茇","跋","拔","滑","夹","捽","瘃","蠋","鹄","茀","纛","鼻","絷","穴","撷","缬","矍","角","楬","摺","责","曷","合","笮","镯","灼","活","卜","哳","铡","扎","摘","诎","蛐","屈","曲","鞫","踘","鞠","掬","锔","屋","突","秃","叔","菽","淑","噗","仆","扑","窟","哭","歘","唿","惚","忽","揖","壹","腊","晳","螅","蟋","窸","晰","蜥","淅","析","膝","悉","吸","夕","惜","昔","息","踢","剔","缉","嘁","漆","戚","柒","七","霹","劈","襀","唧","咭","屐","击","绩","激","迹","积","滴","逼","织","汁","只","虱","湿","失","吃","哕","曰","约","噎","薛","削","楔","蝎","歇","帖","贴","阙","缺","切","瞥","撇","捏","撧","撅","揭","接","跌","憋","鳖","蛰","着","搕","颏","瞌","客","嗑","喝","咯","纥","疙","胳","割","鸽","作","棁","卓","涿","拙","捉","桌","饦","托","脱","缩","说","朴","泼","摸","啯","蝈","郭","剟","踔","裰","咄","掇","撮","戳","戌","鲅","钵","拨","剥","扎","咂","匝","押","压","鸭","瞎","挖","禢","铩","煞","杀","撒","掐","邋","浃","夹","栝","刮","发","大","耷","褡","嗒","搭","答","锸","插","擦","八"
)
Dim TotalRange As Range
Dim ThisRange As Range
'指定要设置的单元格区域
Set TotalRange = [A1:A29]
'用循环开始设置
For Each ThisRange In TotalRange
For i = 0 To UBound(MyKeys)
'调用自定义过程
Call MyReplace(ThisRange, MyKeys(i))
Next i
Next
End Sub
'自定义过程，对单元格里的指定文字设置为红色
Sub MyReplace(ByVal MyRange As Range, ByVal MyKey As String)
Dim LinStr As String
Dim L As Integer
Dim i As Integer
L = Len(MyKey)
LinStr = MyRange.Text
i = InStr(1, LinStr, MyKey)
Do While i <> 0
MyRange.Characters(Start:=i, Length:=L).Font.Color = RGB(255, 0, 0)
i = InStr(i + L, LinStr, MyKey)
Loop
End Sub
