VBA comparar dos columnas y con colores ?

[mrocf]

Hola! tazzwt
Siempre que sea posible, hay que "escaparle" a los métodos iterativos como el que muestras pues son muy ineficientes.

Una alternativa podría ser el siguiente

Código:

Sub Clasificador()
Dim LRow As Long
Application.ScreenUpdating = False
Application.Calculation = xlCalculationManual
ActiveSheet.AutoFilterMode = False
LRow = [b1].End(xlDown).Row
Range("C2:C" & LRow).Delete xlShiftUp
With Range("C2:C" & LRow)
  .Value = Evaluate("IF(A2:A" & LRow & "=B2:B" & LRow & ", ""Bien"", ""Mal"")")
  Union([C1], .Cells).AutoFilter 1, "Bien"
  .Font.Color = RGB(0, 176, 240)
  Union([C1], .Cells).AutoFilter 1, "Mal"
  .Font.Color = RGB(255, 0, 0)
End With
ActiveSheet.AutoFilterMode = False
Application.Calculation = xlCalculationAutomatic
Application.ScreenUpdating = True
End Sub

Saludos, Cacho.