我需要在一片片文章中，找出下列字，我網上找的VBA，字庫少的可以，字庫多久不行，據說Array不能分行，請問應該怎么處理啊？
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
轉載請註明出處，本文鏈接：https://www.uj5u.com/qita/262233.html