Пересечение столбцов

[zinovevaon]

Здравствуйте! Подскажите пож-та, требуется решить след. задачу в екселе.
На одном листе в екселе в столбцах есть цифры. Необходимо закрасить в красный все ячейки, значения которых встречаются в других столбцах. То есть берем значение из ячейки A1 сравниваем его со столбцами В, С, D и тд, если в столбцах найдено такое же значение, то закрашиваем обе ячейки в красный. Берем след. ячейку A2 и сравниваем ее со столбцами B, C, D и тд. Так сравниваем все ячейки со столбца А. Затем берем ячейку B1 и сравниваем ее со столбцами A, C, D и др. при нахождении совпадающей ячейки закрашиваем в красный цвет и так просматриваем все ячейки до конца.
Решила эту задачу с помощью Условного форматирования, но надо универсальный макрос, который можно использовать постоянно.

[IgorGO]

1.был уверен до сегодня, что столбцы не пересекаются...
2.Вам нужен макрос или Вам надо закрасить в столбцах А,В,С,Д одинаковые значения, если они там встречаются?
закрасить - типичная задача для условного форматирования и формула элементарная... см.вложение

[SAS888]

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

1.был уверен до сегодня, что столбцы не пересекаются...

Да... Я их пытался "искривить", но...

Можно и макросом. К тому же, можно разные значения окрасить разным цветом. Например, так:

Sub Main()
    Dim i As Long, j As Integer: Cells.Interior.ColorIndex = xlNone
    With Application
        .FindFormat.Clear: .ReplaceFormat.Clear: .ScreenUpdating = False: j = 2
        For i = 1 To Cells(Rows.Count, 1).End(xlUp).Row
            If Cells(i, 1) <> "" Then
                If Application.CountIf(Intersect(ActiveSheet.UsedRange, [B:IV]), Cells(i, 1)) > 0 Then
                    If j > 18 Then j = 3 Else j = j + 1
                    .ReplaceFormat.Interior.ColorIndex = j
                    .ActiveSheet.UsedRange.Replace Cells(i, 1), Cells(i, 1), xlWhole, , , , , True
    End If: End If: Next: .ScreenUpdating = True: End With
End Sub

Пример во вложении. Откройте файл и запустите макрос "Main".

[zinovevaon]

Если можно легко и быстро сделать универсально для всех столбцов через условное форматирование то я ЗА, но я только как-то сложно придумала. получается надо задать условие для одной ячейки и скопировать на весь лист. но тут возникают проблемы: если значения одинаковые в ячейках А10 и D15, то их надо закрашивать, а если значения одинаковые в B10 и B25, то их закрашивать не надо, поэтому условие >1 не подходит...
я почему-то считала что столбцы оч легко можно пересечь)))

[SAS888]

А мой вариант пробовали? В нем такого нет.

[zinovevaon]

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

А мой вариант пробовали? В нем такого нет.

Попробовала! Красиво получается, только у вас сравниваются значения с первого столбца со всеми остальными столбцами и все, а мне надо чтоб и дальше шло сравнение, то есть теперь значения из столбца B сравнивались со столбцами A, C D и тд. затем столбец C сравнивался со столбцами A,B,D и тд.

[SAS888]

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

И что при этом окрашивать? По-моему, "каша" получится...
Прикрепите файл с данными, окрашенными так, как Вам требуется.

[ZORRO2005]

Может zinovevaon хочет подсвечивать дубликаты активной ячейки?

[zinovevaon]

Мне надо, примерно следующее. делала через условное форматированние, но что-то уж очень сложно получилось

[IgorGO]

я взял Ваши данные, вставил в книгу493 как значения (не копированием, а спец.вставка "значения").
что называется - найдите 10 отличий...