анализ двух листов

[GAomega]

помогите написать макрос для анализа двух листов. (может у кого есть готовый)
Имеется
Лист 1
(столбец А)
Значение 1
Значение 2
Значение 3
...
Много

Лист 2
(столбец А)
Значение 1
Значение 2
Значение 3
...
Много

Необходимо из Лист2 брать каждое Значение и сравнивать его с массивом из Лист1. Если значения совпадают то необходимо из Лист2 скопировать всю строчку на Лист3

[Pavel55]

Попробуйте что-нибудь такое

Код: Выделить всё

Sub Analiz()
Dim iLastRowSht2 As Long
Dim iValue As String
Dim iFind As Range
Dim i As Long, n As Long
    iLastRowSht2 = Sheets("Лист2").Range("A65536").End(xlUp).Row 'последний ряд на Лист2
    n = 1
    For i = 2 To iLastRowSht2
        iValue = Sheets("Лист2").Cells(i, 1)
        Set iFind = Sheets("Лист1").Columns(1).Find(What:=iValue, LookAt:=xlWhole) 'ищем полное совпадение
        If Not iFind Is Nothing Then
            n = n + 1
            Sheets("Лист2").Cells(i, 1).EntireRow.Copy Destination:=Sheets("Лист3").Cells(n, 1)
        End If
    Next
    MsgBox "Совпадающие строки перенесены на Лист3", vbInformation, "Анализ"
End Sub

[Avsha]

EXCEL Макрос поиска совпадений
http://forum.developing.ru/showthread.php?t=11294

[Teslenko_EA]

Здравствуйте GAomega.
Надстройка Excel:
"Перенос данных из другой таблицы по значению ключевой колонки"
http://ifolder.ru/3765138