Сравнение двух столбцов на одном листе

[jm2m]

да невнимательность....... но gt и lol макрос нашел а lal не попал

[Hugo121]

lal не попал потому, что в начальных условиях было "столбца А (30 тыс строк) и столбца С (500 строк )" - т.е. диапазон можно определять по первому столбцу.
Я так и сделал.
А lal в C сидит ниже - его нет в сравниваемых данных в столбце C, поэтому его и нет в совпадениях.
Перенесите его в 33 строку - и всё ОК.

[jm2m]

по моему у меня лыжи не едут
смотрю пример - lal в столбике А в 25 строке в столбике С в 44
почему тогда не входит в диапазон?

[jm2m]

получается что данные сравниваются при условии 30 тыс строк данных в А и 500 строк данных в С? а если данные к примеру в одном из столбцов выйдут из диапазона?

[Serge 007]

Сообщение от jm2m

заменил AS5 на AS25000 везде) не ищет , только по первой ячейке С1
Господа ткните пальцем - сделай так и так.
Во вложении пример

Вы формулу только в ячейке D1 написали, а надо во всём диапазоне
Как быстро заполнить 30 тысяч ячеек ссылку давал ранее

[jm2m]

Хьюго, вот в примере части списков , не понимаю почему не ищет
Егоров Юрий Владимирович ?
Серж я понял, буду читать ...

[jm2m]

Серж, расплодил формулу по всем ячейкам D , и вот что странно если копируешь ячейку из А в С сразу показывает в D совпадение....но если в С копируешь столбец с фамилиями из другой таблицы и есть совпадения по А и С то в D ничего нет

[Hugo121]

"Егоров Юрий Владимирович         "

- вот интересно, почему не ищет?
Нет, конечно на практике всегда "от дурака" нужно application.trim использовать...

[Hugo121]

Добавил:

Sub compare()
    Dim tm!: tm = Timer
    Dim a(), i&, ii&, t$

    With Sheets(1)    'используется номер листа
        a = Range(.[c1], .Range("A" & .Cells(Rows.Count, 1).End(xlUp).Row)).Value

        ReDim b(1 To UBound(a), 1 To 1)

        With CreateObject("Scripting.Dictionary")

            For i = 1 To UBound(a)
                .Item(Application.Trim(a(i, 1))) = 0&
            Next

            For i = 1 To UBound(a)
                t = Application.Trim(a(i, 3))
                If Len(t) Then
                    If .exists(t) Then
                        ii = ii + 1
                        b(ii, 1) = t
                    End If
                End If
            Next
        End With
        If ii > 0 Then .[d1].Resize(ii, 1) = b
    End With

    MsgBox "Выполнено за " & Format((Timer - tm) / 24 / 60 / 60, "nn:ss") & " сек."
End Sub

В этом коде первый столбец должен быть длиннее третьего.
Если возможны варианты - то или массив нужно делать по самому длинному столбцу, или лучше добавить ещё один массив (так кстати и чуть быстрее будет работать - не нужно будет перебирать пустые ячейки, которые сейчас отсекаются If Len(Application.Trim(a(i, 3))) Then).

[Serge 007]

Сообщение от jm2m

Серж, расплодил формулу по всем ячейкам D , и вот что странно если копируешь ячейку из А в С сразу показывает в D совпадение....но если в С копируешь столбец с фамилиями из другой таблицы и есть совпадения по А и С то в D ничего нет

Причин может быть много, одну уже назвал Игорь.
Что бы не гадать - нужен файл с проблемой. Оставьте только то значение, которое не ищется, остальные удалите