用于突出显示基于数组的excel单元格的代码
有人可以帮我弄清楚如何修改这个，以便search和突出显示关键字是来自不同表格的范围，例如表格（“DATASHEET”）。范围（“B3：B41”）？
Sub Highlight_Keywords() Dim vntWords As Variant Dim lngIndex As Long Dim rngFind As Range Dim strFirstAddress As String Dim lngPos As Long vntWords = Array("sales", "fms", "siebel", "knowledgeview", "bcs", "sap", "icm", "deal hub", "its", "stg", "ssm", "gbs", "presentation central", "tsm", "methodweb", "isc", "iot", "wwgpe", "crm", "salesone", "knac", "igs", "marketing", "edvisor", "partnerworld", _ "golden circle", "gs method", "knowledge view", "stsm", "smb", "spc", "passport advantage", "references", "global business services", "sales one", "igf", "market intelligence", "ibv", "itsm", "presentation", _ "bcs marketplace", "isv", "method web", "knowledgegate", "system sales", "field management system", "crm siebel", "global technology services", "issc", "techline", "gsar", "finance", "global services", "ontarget", "ssi", "bcrs", "sales productivity center", _ "fastpass", "gs risk", "ica", "referral", "delivery excellence", "isca", "powerpoint template", "sage", "icm assetweb", "ibm global services", "customer references", "presentation template", "sales portal", "business intelligence", "7 keys", "method", "systems sales", _ "what makes you special", "stg stsm 2006", "reference", "salary letter", "sales plan", "gbsc", "global services method", "gsmethod", "sales compass", "attach connector", "seven keys", "value creation", "fss", "gsm", "know your industry", "public sector") With ActiveSheet.UsedRange For lngIndex = LBound(vntWords) To UBound(vntWords) Set rngFind = .Find(vntWords(lngIndex), LookIn:=xlValues, LookAt:=xlPart) If Not rngFind Is Nothing Then strFirstAddress = rngFind.Address Do lngPos = 0 Do lngPos = InStr(lngPos + 1, rngFind.Value, vntWords(lngIndex), vbTextCompare) If lngPos > 0 Then With rngFind.Characters(lngPos, Len(vntWords(lngIndex))) .Font.Bold = True .Font.Size = .Font.Size + 2 .Font.ColorIndex = 3 End With End If Loop While lngPos > 0 Set rngFind = .FindNext(rngFind) Loop While rngFind.Address <> strFirstAddress End If Next End With End Sub 谢谢！
vntWords = Sheets("DATASHEET").Range("B3:B41").Value ... For x=lbound(vntWords,1) to ubound(vntWords,1) 'look for vntWords(x,1) Next x