поиск

[Азамат]

помогите пожалуйста организовать следущее:
нужно сравнить 2 файла ячейки от A1:A500
на предмет совпадения текстовой информации.
и в случае совпадения в ячейке B с номером совпадения вписать "совпадение"

[SAS888]

Если обе книги открыты, то, например, так:

Sub Compare()

    Dim i As Integer
    For i = 1 To 500
        If Workbooks("Книга1").Sheets(1).Cells(i, "A") = Workbooks("Книга2").Sheets(1).Cells(i, "A") And _
            Workbooks("Книга1").Sheets(1).Cells(i, "A") <> "" Then _
            Workbooks("Книга1").Sheets(1).Cells(i, "B") = "совпадение"
    Next

End Sub

[IgorGO]

в книге 2 в колонку В пишем:

=ЕСЛИ(СУММПРОИЗВ((A1=[Книга1]Лист1!$A$1:$A$500)*1)>0;"совпадение";"")

в книгу 1 в колонку В:

=ЕСЛИ(СУММПРОИЗВ((A1=[Книга2]Лист1!$A$1:$A$500)*1)>0;"совпадение";"")

[Азамат]

В принципе то что надо... но как то геморойно... можно чтоб из закрытых
книг делал?

[IgorGO]

можно и с закрытых.
вопрос: где производить сравнение данные?
возможно, одну книгу-таки откроем?

[Азамат]

Вот вобще что надо организовать!

имеются 2 книги DloN.xls и DloP.xls (приложенны к теме)
необходимо чтобы в книгу svod.xls попали строки в которых совпало поле Ф.И.О.
или хотя бы номера строк в которых совпадает Ф.И.О. причем совпадения могут быть в разных ячейках..
т.е. ячейка B1 в DloN.xls может совпадать с ячейкой B23 в DloP.xls в свод необходимо скопировать в лист1
строку B1 из DloN.xls и в лист2 строку 23 из DloP.xls ну или хотя бы номера совпавших строк...

[SAS888]

Посмотрите вложение. Нажмите кнопку "Найти". Т.к. книги, в которых производится поиск закрыты, то во-первых, файл "Svod.xls" должен находиться в той же папке, что и исходные файлы, во-вторых, в коде есть константа (см. комментарий в коде макроса), которую, возможно Вам придется поменять.

[Азамат]

SAS888 - супер! мегазачод! спасибо большое