Нахождение одинаковых значений и выделение

[Liilla]

Здравствуйте! Хотела бы обратиться с такой задачей. Есть книги и в них некоторые значения. Необходимо имея значения в одной книге сравнить со значениям в остальных и при нахождении совпадений выделить их цветом.
Например:
Лист 1 (77, 38, 67, 98);
Лист 2 (76, 98, 66, 97);
Лист 3 (75, 37, 65, 96);
Лист 4 (38, 36, 64, 91);
Лист 5 (97, 34, 63, 92);
Ключевые данные находятся в Листе 6 (62, 38, 97, 98)
В остальных листах должны быть выделены значения 38, 97, 98.
Заранее благодарна, за любую информацию.



--------- примечание модератора - вдруг кому пригодится --------------

Надстройка LOOKUP предназначена для сравнения и подстановки значений в таблицах Excel.

Если вам надо сравнить 2 таблицы (по одному столбцу, или по нескольким),
и для совпадающих строк скопировать значения выбранных столбцов из одной таблицы в другую,
надстройка «Lookup» поможет сделать это нажатием одной кнопки.

В настройках программы можно задать:

• где искать сравниваемые файлы (использовать уже открытый файл, загружать файл по заданному пути, или же выводить диалоговое окно выбора файла)
• с каких листов брать данные (варианты: активный лист, лист с заданным номером или названием)
• какие столбцы сравнивать (можно задать несколько столбцов)
• значения каких столбцов надо копировать в найденные строки (также можно указать несколько столбцов)

Скачать надстройку для сравнения таблиц Excel и копирования данных из одинаковых строк

[Hugo121]

Sub tt()
    Dim cc As Range, sh, x As Range
    For Each cc In Sheets(6).[a1].CurrentRegion.Cells
        For Each sh In Worksheets
            If sh.Index <> 6 Then
                Set x = sh.UsedRange.Find(cc.Value)
                If Not x Is Nothing Then
                    x.Interior.ColorIndex = 6
                End If
            End If
        Next
    Next
End Sub

Индекс цвета не подбирал.

[nerv]

\немножко глупости и халтуры : )

Sub io()
Dim v, x As Object
On Error Resume Next
For Each x In Sheets
    If Not x Is Sheets(6) Then
        For Each v In Sheets(6).UsedRange.Value
            x.UsedRange.Find(v).Interior.Color = vbGreen
        Next
    End If
Next
End Sub

[Liilla]

Большое спасибо за код