Найти общие строки в двух диапазонах

Question

Я пытаюсь найти общие строки, содержащиеся в двух диапазонах. Как использовать функцию пересечения для сравнения каждой ячейки в диапазоне?

Если пробовать просто пересечение, но оно всегда говорит, что пересечения нет.

Sub MAIN()
    Set Rng1 = Range("L1:M1")
    Set Rng2 = Range("V2")
    Set intersec = Intersect(Rng1, Rng2)
    If Not intersec Is Nothing Then
        If intersec.Cells.Count = Rng2.Cells.Count Then
            'something
        End If
    End If
End Sub

Если rng2 содержал «a», а rng1 содержал «a» и «b», тогда я хочу, чтобы intersec содержал «a».

Answer 1

Попробуйте это:

Sub MAIN()
    Set rng1 = Range("L1:M1")
    Set rng2 = Range("V2")

    Set intersec = rng1.Find(rng2.Value)

    If Not intersec Is Nothing Then

            'something

    End If
End Sub

Функция поиска сделает всю работу за вас