Поиск одинаковых строк

[timsi]

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

Ну, тогда можно и так:

Sub Main()

    Dim i As Long, x As Range, Fst As String
    Application.ScreenUpdating = False
    Workbooks("Книга1.xls").Sheets(1).Activate
    With Workbooks("Книга2.xls").Sheets(1)
        Columns("A").Interior.ColorIndex = xlNone
        .Columns("A").Interior.ColorIndex = xlNone
        For i = 1 To Cells(Rows.Count, "A").End(xlUp).Row
            Set x = .Columns("A").Find(what:=Cells(i, "A"), LookAt:=xlWhole)
            If Not x Is Nothing Then
                Cells(i, "A").Interior.ColorIndex = 6
                Fst = x.Address
                Do
                    .Cells(x.Row, "A").Interior.ColorIndex = 6
                    Set x = .Columns("A").FindNext(x)
                Loop While Fst <> x.Address
            End If
        Next
    End With
                    
End Sub

Добрый день всем. Огромное спасибо автору этого макроса. Очень помог. Есть вопрос: Если книга одна и диапазоны сравнения (D5:D70 и E5:E70), как выделить различия в диапазонах или сделать выборку этих значений. Заранее спасибо.

[SAS888]

Конкретно для Ваших диапазонов, можно так:

Sub Main()
    Dim i As Integer, cell As Range: Application.ScreenUpdating = False
    [D5:E70].Interior.ColorIndex = xlNone
    For Each cell In [D5:E70]
        i = 5 - cell.Column Mod 2
        If Range(Cells(5, i), Cells(70, i)).Find(cell, , , xlWhole) Is Nothing Then cell.Interior.ColorIndex = 6
    Next
End Sub

Либо запускать макрос при активном листе с проверяемыми данными, либо при каждом обращении к ячейке (диапазону) добавить ссылку на этот лист.

P.S. Можно сделать и выборку. Прикрепите пример файла с данными и укажите, что выбирать и куда вставлять. А также, могут ли значения повторяться и что в этом случае делать.

[0creator0]

EugeneS большое спасибо , очень благодарен!!!!

[Rysalochka]

Помогите пожалуйста написать макрос, который будет находить строки, которые не повторяются и кидать их на другой лист. Или лучше удалять те данные, которые повторяются(но удалять он их должен полностью, т. е. если 6 повторилась пять раз, то пять строк и нужно удалить). Я применила автофильтр-поэтому смотреть нужно только по последнему столбцу.( в моем случае по столбцу G)
Прмер:изначально было

13 маша петя коля 6
24 маша петя коля 6
44 маша петя коля 7
77 маша петя коля 8
55 маша петя коля 6

Нужно, чтобы получилось так:
44 маша петя коля 7
77 маша петя коля 8

[EugeneS]

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

Помогите пожалуйста написать макрос, который будет находить строки, которые не повторяются и кидать их на другой лист. Или лучше удалять те данные, которые повторяются(но удалять он их должен полностью, т. е. если 6 повторилась пять раз, то пять строк и нужно удалить)

можно, например, так, см. вложение

[SAS888]

А можно сделать и существенно быстрее. Например, так (см. вложение).

[Rysalochka]

Спасибо огромное!!!!!!!!!!!!!!!!

[timsi]

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

Конкретно для Ваших диапазонов, можно так:

Sub Main()
    Dim i As Integer, cell As Range: Application.ScreenUpdating = False
    [D5:E70].Interior.ColorIndex = xlNone
    For Each cell In [D5:E70]
        i = 5 - cell.Column Mod 2
        If Range(Cells(5, i), Cells(70, i)).Find(cell, , , xlWhole) Is Nothing Then cell.Interior.ColorIndex = 6
    Next
End Sub

Либо запускать макрос при активном листе с проверяемыми данными, либо при каждом обращении к ячейке (диапазону) добавить ссылку на этот лист.

P.S. Можно сделать и выборку. Прикрепите пример файла с данными и укажите, что выбирать и куда вставлять. А также, могут ли значения повторяться и что в этом случае делать.

Это просто гениально, спасибо огромное. Я новичок в VBA, прочитал огромное количество постов нигде не мог найти решения. Но за то благодаря вашим сообщениям, смог кое-что понять, а также прислушался к вашим советам о литературе по VBA. Ещё раз спасибо.
И вы правильно поняли, что это только одна часть задачи. Просто не хотел показаться наглым, да и полного понимания, что нужно, не было.
Моя же задача такова: из двух приложений ( SAP and Access ) на одном екселевском листе сформированы два столбца , их то мы и сверяем на идентичность. При нахождении различий, смотрим таблицу соответствия на листе 2 и изменяем данные в столбце D (лист 1). Файл приложил. Ещё раз огромное спасибо.
p.s. Надеюсь, что смог внятно изложить проблему.

[SAS888]

timsi
Посмотрите вложение. Запустите макрос "Main". Сделал так, как понял. Макрос перебирает ячейки в столбце "D" и ищет каждое значение в столбце "E". Если такого нет, то ищет это значение в столбце "A" 2-го листа, и при совпадении, заменяет значение текущей ячейки на значение из столбца "C" найденной строки. Для визуализации работы, ячейки, значения которых были изменены, окрашиваются в светло-зеленый цвет. Ячейки, значения которых не найдены, окрашиваются в желтый цвет. Для проверки, с Вашего позволения, добавил еще одно значение в сравниваемый столбец (столбец "D" 1-го листа).

[0creator0]

Здравствуйте есть маленькая проблемка буду рад если кто-нибудь подскажет её решить
Есть файл , всё сортирует, делает замечательно, но есть один недочёт когда он соединяет две ячейки со словами они получаются в одну строку , а хотелось бы что бы они были в одной ячейки, но с переносом по строчное, то есть
На вкладке Сумма есть такое выражение в одну строку
Ушко 20-а ГОСТ 1050-88
А надо в одной ячейке, но в две строки, то есть
Ушко
20-а ГОСТ 1050-88