Как ускорить работу этого макроса?

[Neo007]

Подскажите, пожалуйста, как ускорить (оптимизировать) работу этого макроса? Строк около 5500 шт. обрабатывает в течение 5 минут. В кратце: Два листа, формат обоих один и тотже. Содержат в себе базу данных по ценам ежемесячно со столбца 12 по 23 (критерий j). Первый лист - один период, второй лист - другой. Задача макроса выявить в каких месяцах расхождения в той или иной строчках.

Sub Compare()
Dim c As String, irow As Integer, d As Single, e As Single

For i = 2 To Sheets("Sheet1").Cells(Rows.Count, "Z").End(xlUp).Row
c = Sheets("Sheet1").Cells(i, "Z")

With Sheets("Sheet2").Range("Z:Z")

Set z = .Find(c, LookIn:=xlValues)

If z Is Nothing Then
Sheets("Sheet1").Range("A" & i & ":X" & i & "").Font.ColorIndex = 3
Sheets("Sheet1").Cells(i, "Y") = "Не найден"
Else
irow = z.Row
End If
End With
For j = 12 To 23 'Месяца с Января по Декабрь
d = Sheets("Sheet1").Cells(i, j)
e = Sheets("Sheet2").Cells(irow, j)
If d = e Then
Sheets("Sheet1").Cells(i, j).Font.ColorIndex = 10
Sheets("Sheet2").Cells(irow, j).Font.ColorIndex = 10
Else
Sheets("Sheet1").Cells(i, j).Font.ColorIndex = 3
Sheets("Sheet1").Cells(i, j).AddComment
Sheets("Sheet1").Cells(i, j).Comment.Text Text:="Стало " & e & ""
Sheets("Sheet2").Cells(irow, j).Font.ColorIndex = 3
Sheets("Sheet2").Cells(irow, j).AddComment
Sheets("Sheet2").Cells(irow, j).Comment.Text Text:="Было " & d & ""
End If
Next

Sheets("Sheet1").Cells(i, "AA").Font.ColorIndex = 10
Sheets("Sheet2").Cells(irow, "AA").Font.ColorIndex = 10
Next
End Sub

[EducatedFool]

Немного ускорит код добавление этой строки в начало макроса:
Application.ScreenUpdating = False

Ускорить можно - до 2-4 секунд. Но сложно. В этом случае код надо переписывать с нуля.

Почему 2-4 секунды, а не 1? Потому что, если значения и цвета мы можем записать одновременно в целый диапазон ячеек, то комментарии придётся добавлять в каждую ячейки по отдельности.

• Во-первых, поиск производим не на листах, а в массивах (для этого потребуется считать значения ячеек в массив)
• Цвет шрифта у ячеек не меняем сразу, а формируем некий диапазон, подлежащий закрашиванию. Как только все условия будут проверены (и диапазон сформирован), красим все ячейки одной командой.
• Запись в столбец Y производим не по одной ячейке, а переносим заранее составленный массив в этот диапазон

Пример кода писать не буду - это долго, да и сложно сделать, не увидев файла.