Suchen Sie einen Text oder eine Nummer aus einer Liste in einem anderen Blatt und markieren Sie jede Instanz

Question

Ich habe 2 Blätter mit mehr als 50K Datenpunkte (Blatt 1), und eine Liste mit Zahlen und Alpha-Numerische Texte mehr als 30K (Blatt 2, Spalte A). Ich möchte, dass ein Makrocode jede Zelle von Blatt 2 in Blatt 1 durchsucht und die Hintergrundfarbe jeder Instanz ändert. Beispiel: Searching: ABC123, sollte Zelle wie „STACK_OVERFLOW Abc123 "finden ## @@"

ich einen Code gefunden, aber so weit sie nicht erfüllen meine Forderung:.

Sub HighlightListed() 
Dim strConcatList As String 
Dim cell As Range 
For Each cell In Sheets("List").Range("A1:A30") 
     strConcatList = strConcatList & cell.Value & "|" 
Next cell 

For Each cell In Intersect(Sheets("Data").Range("A:A"), Sheets("Data").UsedRange) 'I assume my problem is here somewhere, its only highlights exact results. 
'If i am looking for "ABC123" it should also highlight cell like "PQRABC123" or ""XYZ_ABC123" 
    If InStr(strConcatList, cell.Value) > 0 Then 
      cell.Interior.Color = RGB(255, 0, 0) 
    End If 
Next cell 
End Sub 

ich bin ziemlich neu in VBA, so detaillierte Erklärung wird am nützlichsten

Answer 1

Try this:

Sub HighlightListed() 
     Dim searches As New Collection 
     Dim search As Variant 
     Dim cell As Range 
     For Each cell In Sheets("List").Range("A1:A30") 
      If cell.Value <> "" Then 
       searches.Add cell.Value 
      End If 
     Next cell 
     For Each cell In Intersect(Sheets("Data").Range("A:A"), Sheets("Data").UsedRange) 
      For Each search In searches 
       If InStr(0, cell.Value, Cstr(search), 1) > 0 Then 
        cell.Interior.Color = RGB(255, 0, 0) 
        Exit For 
       End If 
      Next search 
     Next cell 
End Sub