Поиск и удаление совпадающих строк в разных листах

[hybrid84]

Добрый день, уважаемые форумчане.

Проблема следующая: есть два листа примерно по 20000 строк.
Большая часть записей совпадает, отличаются примерно 60. Искать их вручную - идиотизм.

Поиск ведется по строковому сожержанию столба "A" обоих листов.
Пример записи этого столбца - 95/21/3682/7/2009.
При полном совпадении этих записей обе строки удаляются.

В результате выполнения макроса должны остаться записи которые есть только в одном листе.

[hybrid84]

Мое решение выглядит так:

Sub Ñðàâíåíèå_ëèñòîâ_0_1()
Application.ScreenUpdating = False

Dim s1, s2 As String
Dim i, n As Integer

For i = 1 To 20000

s1 = Worksheets("Ëèñò1").Cells(i, 1).Text
For n = 1 To 20000

s2 = Worksheets("Ëèñò2").Cells(n, 1).Text
If InStr(s2, s1) Then Worksheets("Ëèñò1").Rows(i).Delete Worksheets("Ëèñò2").Rows(n).Delete


Next n

Next i

End Sub

[hybrid84]

Гы гы ))
ну млин даете,
такая чушь написана. Все смотрят никто ничего не говорит.
Попалась наконец то путняя литература.
Ответ:
Sub DelTel()
Dim iLastRow As Long, i As Long
Dim c As Range
Dim iTel As String
iLastRow = Sheets("Ëèñò1").Cells(11, 1).End(xlUp).Row
For i = 2 To iLastRow
iTel = Sheets("Ëèñò1").Cells(i, 1)
Set c = Sheets("Ëèñò2").Columns(1).Find(wha t:=iTel, lookat:=xlWhole)
If Not c Is Nothing Then c.EntireRow.Delete
Next i
MsgBox "Done!", vbInformation, ""
End Sub

единственное... как удаление строки с индексом i в первом листе лучше сделать?

[SAS888]

1. Ваше решение работать не будет, т.к. при использовании цикла For...Next, при удалении строки будет нарушаться счет цикла. В подобных случаях строки требуется перебирать снизу вверх.
2. Если сделать правильно, то будет о-о-очень медленно.
Предлагаю что-нибудь такое:

Sub Main()
    Dim i As Long, j As Long, k As Long, x As New Collection, a, b, c, d
    a = Sheets(1).UsedRange.Value: b = Sheets(2).UsedRange.Value
    ReDim c(1 To UBound(a, 1), 1 To UBound(a, 2)): ReDim d(1 To UBound(b, 1), 1 To UBound(b, 2))
    Application.ScreenUpdating = False: On Error Resume Next
    For i = 1 To UBound(a, 1)
        x.Add a(i, 1), CStr(a(i, 1))
    Next
    On Error GoTo 0: k = 1
    For i = 1 To UBound(b, 1)
        On Error Resume Next
        x.Add b(i, 1), CStr(b(i, 1))
        If Err = 0 Then
            For j = 1 To UBound(d, 2)
                d(k, j) = b(i, j)
            Next
            k = k + 1
        Else: On Error GoTo 0
        End If
    Next
    Sheets(2).UsedRange.Value = d: Set x = Nothing
    For i = 1 To UBound(b, 1)
        x.Add b(i, 1), CStr(b(i, 1))
    Next
    On Error GoTo 0: k = 1
    For i = 1 To UBound(a, 1)
        On Error Resume Next
        x.Add a(i, 1), CStr(a(i, 1))
        If Err = 0 Then
            For j = 1 To UBound(c, 2)
                c(k, j) = a(i, j)
            Next
            k = k + 1
        Else: On Error GoTo 0
        End If
    Next
    Sheets(1).UsedRange.Value = c
End Sub

[hybrid84]

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

[WIC]

Без макросов нельзя было обойтись?

ВПР, фильтром например...

[SAS888]

2 WIC

Без макросов нельзя было обойтись?
ВПР, фильтром например...

Как уже кто-то на нашем форуме говорил (извиняюсь, не помню кто), что прежде чем критиковать, нужно что-то предложить. Как Вы, например, при помощи формул, удалите строку? Или как Вы себе представляете подобный фильтр?

hibrid84

просто одну строчку подскажите пожалуйста

Какую? Что не так? Что не понятно?

[hybrid84]

Да в общем то все ок ))
Только буду разбираться как работеат твой макрос еще долго ))
Но спасибо все замечательно, правда он не удаляет из первого листа ничего, но это уже и не нужно )

слушай а можно в твой макрос добавить еще проверку?
Такого типа: если нашел совпадение,
то проверяет совпадение
по значению другой ячейки этих же строк,
ищет он по первой, а совпадение проверяет по второй.
если совпадение нет, то ищет следующее совпадение.
Если совпадений нет вообще, то не удаляет.

[WIC]

простите...

вручную удалять.
Идею, думаю, понятна: столбец добавляем. Через ВПР ищем совпадение на 2-м листе. Формула выдаст или значение или ошибку.
Фильтр на не ошибки, выделить-удалить строки.

Если уникальные значения на 2-х листах, то немного доработать...по тому же принципу.

[SAS888]

ищет он по первой, а совпадение проверяет по второй.

Т.е. нужно, чтобы строки удалялись в том случае, если в строках совпадают ячейки в столбцах "A" и "B"?

правда он не удаляет из первого листа ничего

Если есть совпадающие значения, то такого быть не может. Прикрепите пример из нескольких строк на 2-х листах, тогда работа макроса будет нагляднее.