Pesquisar vários valores no Excel e destacá-los

Question

Eu preciso pesquisar 105 números de uma lista de 650 números e destacá-los, se encontrados. Existe uma maneira mais fácil de fazer isso? Por exemplo . Coluna x em exceel tem 10 valores e eu preciso procurar 5valores na coluna xe realçá-lo. (Claro que o número é maior em reais)

    

Answer 1

Se você tiver a lista curta na coluna A e a lista longa na coluna B , como:

executandoestamacro:

Subdural()DimnAAsLong,nBAsLong,vAsVariantDimaAsLong,bAsLongnA=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

produzirá: