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