сравнить

[Посетитель 07.08.2023]

Здравствуйте, помогите пожалуйста - Сравнить столбцы  С7..С40 с D7..D40, F7..F40 с G7..G40, I7..I40 с J7..J40, L7...L40 с M7..M40, R7..R40 с S7..S40, O7..O40 с P7..P40, U7..U40 с V7..V40, X7..X40 с Y7..Y40, AA7..AA40 с AB7..AB40, AD7..AD40 с AE7..AE40, AG7..AG40 с AH7..AH40, AJ7..AJ40 с AK7..AK40, если не совпадает, то выделить красным цветом. Сделать через vba. Макрос должен отрабатывать при открытии файла.....Заранее благодарю

[Администратор]

Например столбцы: С7..С40 с D7..D40.
Сравнить надо C7 с D7? Если не совпали, то закрасить эти две ячейки?
Затем сравнить C8 с D8? Если не совпали, то закрасить эти две ячейки?
Так? Или я что-то не учёл?

[Посетитель 07.08.2023]

да! C7 с D7, С8 c D8, С9 c D9 и тд до 40
так же F7 с G7, F8 с G8 и тд
I7 c j7, I8 с J8 и тд
например, если не совпали C9 и D9, закрасить их

[Администратор]

Макрос

Sub Макрос()
   
    Dim i As Long, j As Long
   
    ' Отключение монитора, чтобы ускорить макрос.
    Application.ScreenUpdating = False
   
    ' Закраска.
    For j = Columns("C").Column To Columns("AJ").Column Step 3
        For i = 7 To 40
            If Cells(i, j).Value <> Cells(i, j + 1).Value Then
                Cells(i, j).Resize(, 2).Interior.Color = vbRed
            End If
        Next i
    Next j
   
    ' Сообщение.
    Application.ScreenUpdating = True
    MsgBox "Готово.", vbInformation

End Sub

[свернуть]

[Посетитель 07.08.2023]

Что то не срабатывает

[Администратор]

У меня на том файле, который вы предоставили, работает.
В чём выражается "не срабатывает"? Ошибка происходит или неправильный результат?

[Посетитель 07.08.2023]

Ошибки нет, но и ничего не закрасил. Т.е. нет результата

[Администратор]

Вы запускаете на том файле, который предоставили на форуме?
Вот файл после макроса.
Сообщение "Готово" было у вас?

[Посетитель 07.08.2023]

Да. Я его сохранила с расширение трен.xlsm макроса. Макрос вставила в VBA Лист1(Лист1)

[Посетитель 07.08.2023]

"Готово" не было

[Администратор]

Я забыл, что вы просили, чтобы макрос запускался при открытии. Сейчас посмотрю.

[Посетитель 07.08.2023]

Спасибо

[Администратор]

Макрос я поместил в ЭтаКнига.

[Посетитель 07.08.2023]

Все работает! Благодарю Вас