[Alex Dark]

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

Но нужно чтоб было немного не так

Ну извиняй... В твоем алгоритме сравнение шло по вертикали и по горизонтали. Я его просто правильно переписал.

PS

Sub Main3()
    Sheets(3).Cells.ClearContents:
    Sheets(4).Cells.ClearContents:
    Sheets(3).Activate
    i = 1
    i3 = 1
    i4 = 1
    Do While Not IsEmpty(Sheets(1).Cells(i, 1).Value)
        j = 1
        Sheets(1).Rows(i).Copy Sheets(3).Rows(i3)
        Sheets(1).Rows(i).Copy Sheets(4).Rows(i4)
        ok2 = 0
        Do While Not IsEmpty(Sheets(2).Cells(j, 1).Value)
            If Sheets(1).Cells(i, 1).Value = Sheets(2).Cells(j, 1).Value Then
                Sheets(4).Select
                Rows(i4).Delete
                i3 = i3 + 1
                ok2 = -1
                Exit Do
            Else
                'разные
                ok2 = ok2 + 1
            End If
            j = j + 1
        Loop
        If Not ok2 = -1 Then
            Sheets(3).Select
            Rows(i3).Delete
            i4 = i4 + 1
        End If
        i = i + 1
    Loop
End Sub