Поиск совпадений

[mistx]

Необходимо сравнить 2 столбца,
если в первом столбце (определенном диапазоне) встречается хоть одно слово из второго столбца, то пиши в 3 столбце (например) "совпадение", иначе "нет".

[motorway]

Private Sub Worksheet_Change(ByVal Target As Range)
Application.EnableEvents = False
Range("C1").Value = "Совпадений нет"

For Each cell In Range("A1:A4")
For Each cell2 In Range("B1:B4")
If (cell = cell2) Then
Range("C1").Value = "Совпадение"
GoTo LAB
End If


Next cell2
Next cell
LAB:

Application.EnableEvents = True





End Sub

[The_Prist]

Макрос...........

[mistx]

motorway
The_Prist
спасибо.
еще вопросик.
при несовпадении хотелось бы, чтобы с первого столбца (где полный список организации) скопировались несовпавшие организации в отдельный диапазон.

[motorway]

Немного переделал и добавил то, что нужно

Private Sub Worksheet_Change(ByVal Target As Range)
Application.EnableEvents = False

i = 1
Range("C1").Value = "Совпадений нет"

For Each cell In Range("A1:A4")
For Each cell2 In Range("B1:B4")
Cells(cell.Row, 4).Clear
If (cell = cell2) Then
Range("C1").Value = "Совпадение"
GoTo LAB
End If

Next cell2
Cells(i, 4).Value = cell
i = i + 1
LAB:
Next cell

Application.EnableEvents = True

End Sub

[mistx]

motorway
переделал в макрос, что-то он завис при выполнении.
The_Prist
есть еще одна особенность.
в 1 столбце у меня 525 например строк,
во 2 693 орг-й
Можно ли сделать чтобы сравнивались организации по всему массиву, а не по параллельно
строка со строкой

[The_Prist]

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

Можно ли сделать чтобы сравнивались организации по всему массиву, а не по параллельно строка со строкой

У меня макрос и так берет каждое слово в стрке столбца 1 и ищет его во ВСЕМ столбце 2. Вы хоть попробовали прежде чем спросить?

[The_Prist]

Вот макрос с выводом списка несовпадений.

[mistx]

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

У меня макрос и так берет каждое слово в стрке столбца 1 и ищет его во ВСЕМ столбце 2. Вы хоть попробовали прежде чем спросить?

я попробывал, поэтому и спросил.
вставил в 1 столбец первый список организаций
а во второй - второй.
в итоге в 3 столбце во всех строчках получилось "Совпало"
а этого не может быть

[The_Prist]

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

а этого не может быть

Может. Т.к. у Вас и во втором и в первом столбце помимо названий организаций присутствуют слова типа "предприятие", "организация" и т.п. Макрос их опредляет как совпадение и пишет совпало. Программе не объяснишь, что это не надо брать во внимание - она не знает, где название организации, а где просто слово.