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

Question

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

Answer 1

Если у вас есть краткий список в колонкеАи длинный список в столбцеБнравиться:

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

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

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