Busque múltiples valores en Excel y resáltelos

Question

Necesito buscar 105 números de una lista de 650 números y resaltarlos si los encuentro. ¿Hay alguna forma más fácil de hacer esto? P.ej . La columna x en Excel tiene 10 valores y necesito buscar 5 valores en la columna x y resaltarlos. (Por supuesto, el número es mayor en realidad)

Answer 1

Si tiene la lista corta en la columnaAy la lista larga en la columnaBcomo:

ejecutando esta macro:

Sub dural()
   Dim nA As Long, nB As Long, v As Variant
   Dim a As Long, b As Long
   nA = Cells(Rows.Count, "A").End(xlUp).Row
   nB = Cells(Rows.Count, "B").End(xlUp).Row

   For a = 1 To nA
      v = Cells(a, "A").Value
      For b = 1 To nB
         If Cells(b, "B").Value = v Then
            Cells(b, "B").Interior.ColorIndex = 6
         End If
      Next b
   Next a
End Sub

Producirá: