сравнение столбцов

[evdss]

Добрый день!
Мне необходимо сравнить столбец А на листе1 со столбцом А на листе 3, и если нет в столбцеА на листе1, а есть на листе 3 дописать в конец листа 1. Что- то не работает. Может кто-нибудь подскажет почему.
Sub Добавление()

Dim lLastRowA As Long
Dim lLastRowC As Long
Dim i As Long
Dim rFind As Excel.Range

Sheets(3).Activate
lLastRowA = Cells(Rows.Count, "A").End(xlUp).Row

Sheets(1).Activate
lLastRowC = Cells(Rows.Count, "A").End(xlUp).Row + 1

Application.ScreenUpdating = False

Sheets(3).Activate
For i = 1 To lLastRowA Step 1
Set rFind = Sheets(3).Columns("A").Find(What:=S heets(1).Cells(i, "A").Text, LookIn:=xlValues, _
LookAt:=xlPart, SearchOrder:=xlByColumns, SearchDirection:=xlNext, _
MatchCase:=False, SearchFormat:=False)
If Not rFind Is Nothing Then

Sheets(1).Cells(lLastRowC, "A").Value = Sheets(3).Cells(i, "A").Value
lLastRowC = lLastRowC + 1
End If

Next i

MsgBox "Работа завершена!", vbInformation

Application.ScreenUpdating = True

End Sub

[kuklp]

Работает. Только я бы переписал для начала так:

Sub Добавление()
    Dim lLastRowA As Long
    Dim lLastRowC As Long
    Dim i As Long
    Dim rFind As Excel.Range
    Dim SH As Worksheet
    'Определяем, где заканчиваются данные в столбце A,
    'чтобы знать, до какой строки нам работать.
    Application.ScreenUpdating = False
    With Sheets(3)
        lLastRowA = .Cells(.Rows.Count, 1).End(xlUp).Row
        'Определяем, с какой строки заносить данные в столбец A.
        Set SH = Sheets(1)
        lLastRowC = SH.Cells(SH.Rows.Count, 1).End(xlUp).Row + 1
        For i = 1 To lLastRowA Step 1
            Set rFind = .Columns(1).Find(What:=SH.Cells(i, 1).Text, LookIn:=xlValues, _
                LookAt:=xlPart, SearchOrder:=xlByColumns, SearchDirection:=xlNext, _
                MatchCase:=False, SearchFormat:=False)
            If Not rFind Is Nothing Then
                SH.Cells(lLastRowC, 1).Value = .Cells(i, 1).Value
                lLastRowC = lLastRowC + 1
            End If
        Next i
    End With
    Application.ScreenUpdating = True
    MsgBox "Работа кода завершена!", vbInformation
End Sub

[evdss]

спасибо, но когда я запускаю какие то данные дописываются, которые есть на листе один и почему выборочно, хотя и те которых нет дописываюся в конец

[kuklp]

Если кто-то кое-де у нас порой... А конкретно выложить пример на 3 десятка строк и указать - вот это не добавило(а должно было), а это наоборот добавило(а не должно)? Рыться руками в >1000 строк в поисках того, не знаю чего мне недосуг.

[evdss]

выгрузка идет из разных источников, поэтому типы данных разные.