Поиск нескольких значений в Excel и выделить их

Question

Мне нужно найти 105 номеров из списка 650 номеров и выделить их, если они найдены. Есть ли более простой способ сделать это? Например, Столбец x в Exceel имеет 10 значений, и мне нужно найти 5 значений в столбце x и выделить его. (Конечно, число больше в действительности)

Answer 1

Если у вас есть короткий список в столбце A и длинный список в столбце B, например:

запустив этот макрос:

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

будет производить: