Vba 基于数组高亮显示excel单元格的代码

有人能帮我弄清楚我该如何修改它，以便搜索和突出显示关键字是从不同工作表的范围，例如工作表（“数据表”）。范围（“B3:B41”）

子高亮显示_关键字（）
Dim vntWords作为变体
暗指数和长指数一样
变暗rngFind As范围
Dim strFirstAddress作为字符串
暗LNGPO尽可能长
VNTWORD=阵列（“销售”、“fms”、“siebel”、“knowledgeview”、“bcs”、“sap”、“icm”、“交易中心”、“its”、“stg”、“ssm”、“gbs”、“演示中心”、“tsm”、“methodweb”、“isc”、“iot”、“wwgpe”、“crm”、“salesone”、“knac”、“igs”、“营销”、“edvisor”、“partnerworld”、\U
“金环”、“gs方法”、“知识视图”、“stsm”、“smb”、“spc”、“passport advantage”、“references”、“global business services”、“sales one”、“igf”、“市场情报”、“ibv”、“itsm”、“presentation”、\
“bcs市场”、“isv”、“method web”、“knowledgegate”、“系统销售”、“现场管理系统”、“crm siebel”、“全球技术服务”、“issc”、“techline”、“gsar”、“财务”、“全球服务”、“ontarget”、“ssi”、“bcrs”、“销售生产力中心”
“fastpass”、“gs风险”、“ica”、“推荐”、“卓越交付”、“isca”、“powerpoint模板”、“sage”、“icm assetweb”、“ibm全球服务”、“客户参考”、“演示模板”、“销售门户”、“商业智能”、“7键”、“方法”、“系统销售”
“什么让你与众不同”、“stg stsm 2006”、“推荐信”、“薪酬信”、“销售计划”、“gbsc”、“全球服务方法”、“gsmethod”、“销售指南针”、“附加连接器”、“七把钥匙”、“价值创造”、“fss”、“gsm”、“了解你的行业”、“公共部门”）
使用ActiveSheet.UsedRange
对于lngIndex=LBound（vntWords）到UBound（vntWords）
设置rngFind=.Find（vntWords（lngIndex），LookIn:=xlValues，LookAt:=xlPart）
如果不是rngFind，那就什么都不是了
strFirstAddress=rngFind.Address
做
lngPos=0
做
lngPos=InStr（lngPos+1，rngFind.Value，VNTWORD（lngIndex），vbTextCompare）
如果lngPos>0，则
使用rngFind.Characters（lngPos，Len（vntWords（lngIndex）））
.Font.Bold=True
.Font.Size=.Font.Size+2
.Font.ColorIndex=3
以
如果结束
lngPos>0时循环
设置rngFind=.FindNext（rngFind）
在rngFind.Address strFirstAddress时循环
如果结束
下一个
以
端接头

---

谢谢大家!

提示：

ActiveSheet.UsedRange

这是它当前搜索的位置：）您认为我们应该用什么替换它？：）对不起，我可能需要更具体一些。我的意思是更改数组vntWords=array（“不同表的元素”）

vntWords =  Sheets("DATASHEET").Range("B3:B41").Value
...
For x=lbound(vntWords,1) to ubound(vntWords,1)
   'look for vntWords(x,1)
Next x

vntWords =  Sheets("DATASHEET").Range("B3:B41").Value
...
For x=lbound(vntWords,1) to ubound(vntWords,1)
   'look for vntWords(x,1)
Next x