Pesquise vários valores no Excel e destaque-os

Question

Preciso pesquisar 105 números em uma lista de 650 números e destacá-los, se encontrados. Existe uma maneira mais fácil de fazer isso? Por exemplo . A coluna x no Excel tem 10 valores e preciso pesquisar 5 valores na coluna x e destacá-los. (Claro que o número é maior na realidade)

Answer 1

Se você tiver a pequena lista na colunaAe a longa lista na colunaBcomo:

executando 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

vai produzir: